Необходимо при нажатии кнопки распечатать текст, находящийся в окне Memo. Проблема в том, что текст этот в кодировке DOS.
После распечатывания таким способом

   int lines_kol = Memo1->Lines->Count;
  TPrinter *Prntr = Printer();
  TRect r = TRect(200, 200, Prntr->PageWidth - 200, Prntr->PageHeight - 200);
  Prntr->BeginDoc();
  Prntr->Canvas->TextRect(r, 200, 200,Memo1->Lines->Text);
  Prntr->EndDoc();

вместо русских букв печатаются иероглифы.

Пробую изменить кодировку текста, но после запуска программы вылетает непонятная ошибка. Подскажите из-за чего она возникает.

void __fastcall TForm1::Button3Click(TObject *Sender)
{
   int lines_kol = Memo1->Lines->Count;
  TPrinter *Prntr = Printer();
  TRect r = TRect(200, 200, Prntr->PageWidth - 200, Prntr->PageHeight - 200);
  Prntr->BeginDoc();
  for(int i = 0; i < lines_kol; i++)
  {
  char *newstr;
  AnsiString st=Memo1->Lines->Strings[i];
  OemToChar(st.c_str(),newstr);
  Prntr->Canvas->TextRect(r, 200, 200,AnsiString(newstr));

  }
  Prntr->EndDoc();
}

Из-за того, что не выделил память под строку... Вот так:

  for(int i = 0; i < lines_kol; i++)
  {
    AnsiString st=Memo1->Lines->Strings[i];
    char *newstr = new char[st.Length() + 1];

    OemToChar(st.c_str(),newstr);
    Prntr->Canvas->TextRect(r, 200, 200, AnsiString(newstr));
    delete newstr;
  }

ошибки не будет, но у меня создается впечатление, что все строки будут печататься строго в одном месте листа, и накладываться одна на другую...

При использовании этой строки

OemToChar(st.c_str(),newstr);

вылетает ошибка

Если перед ней поставить знак коментария, то ошибки нету.

У меня не вылетает, у тебя вылетает? Ну, тогда не знаю, что тебе сказать...

Все, разобрался. Ошибка появлялась почему-то при использовании функции OemToChar, но не из-за нее. Оказалось до этого был выход за пределы массива.

volvo, Спасибо за помощь!