[greenbegin]

Сообщение от Decoding

Попробуй так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  _Input, _Output: PChar;
begin
   GetMem( _Input, 256 );
   GetMem( _Output, 256 );
   _Input := 'Строка в DOS кодировке';
   OemToChar( _Input, _Output );
   Edit1.Text := _Output;
end;

Попробовал. При компиляции выделяет строку:

Код:

_Input:=memo1.Lines[i];

Я ее вставил вместо строки:

Код:

_Input:='Строка в DOS кодировке';

Ошибка:

Код:

Incompatible types: 'String' and 'PAnsiChar'