Чтение DOS файла

[natasha]

нужно просматривать файлы формата DOS
Я читаю файл так
AssignFile(F, 'c:\1.txt');
reset(f);
while not EOF(f) do
begin
readln(f, st);
ShowMessage(st);
end;
closefile(f);

выводит каракули, что естественно.
Как прочитать????

[Tronix]

Хинт: OEMToAnsi, ANSIToOEM.

[natasha]

И как этим пользоваться?

[Alex Cones]

Так же как и StrToInt

[Serge_Bliznykov]

И как этим пользоваться?

примерно вот так:

function StrOemToAnsi(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;

AssignFile(F, 'c:\1.txt');
reset(f);
while not EOF(f) do
begin
   readln(f, st);
   st := StrOemToAnsi( st );
   ShowMessage(st); 
end;
closefile(f);