Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перекодировка файла [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?


Наверх

Титульная страница Поиск, карта сайта Написать письмо