![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перекодировка файла [D7, Win2k]
Kniaz © (2004-10-18 10:28:00)Есть досавская программа, которая записывает в файл некую информацию. И есть программа на Delphi которая обрабатывает этот файл. Как в программе на Delphi поменять кодировку этого файла с Dos на Windows, а то как то не очень хочется работать с каракулями вместо нормальных символов.
DVM (2004-10-18 10:38:00) [1]CharToOEM
OEMToChar
CharToOEMBuff
OEMToCharBuff
OemToAnsi
AnsiToOem
Пример чтения текста dos из файла в memo
procedure TForm1.FormCreate(Sender: TObject);
var
N: PChar;
begin
memo1.Lines.LoadFromFile('c:\file.txt');
N := Memo1.Lines.GetText;
OemToAnsi(N, N);
Memo1.Lines.Text := StrPas(N);
end;
[lamer]Barmaglot (2004-10-18 10:37:00) [2]AnsiToOem?
OemToAnsi?