[Dimo444ka]

Имеется файл формата *.001 в ASCII, как мне его засунуть в TMemo и при нажатии кнопки, текст перекодировался в обычную кирилицу.
Помогите пожалуйста, нужно срочно.

[san-46]

Для "засовывания" содержимого файла в Memo применяется метод
Memo1.Lines.LoadFromFile(XXXX.001).
Для перекодировки из ASCII в Win1251 применяется процедура API
OemToChar.

Код:

S := Memo1.Lines.Text;
if S <> '' then 
  OemToChar(@S1[1], @S1[1]);

S определана как String;

[Dimo444ka]

вот сделал процедуру для кнопки
procedure TForm1.Button2Click(Sender: TObject);
begin
S := Memo1.Lines.Text;
if S <> '' then
OemToChar(@S1[1], @S1[1]);
end;

S,S1:String - это так?
почему то не перекодировывает...

[san-46]

Прошу прощения, поспешил.
Надо так:

Код:

S := Memo1.Lines.Text;
if S <> '' then begin
  OemToChar(@S[1], @S[1]); //здесь ошибочно указал "S1", вместо "S"
  Memo1.Lines.Text := S;
end;

Переменная только одна: S : String;.

[Dimo444ka]

Спасибо большое за помощь!