| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ASCII в Memo [D7, NT4]
roman002 © (2002-11-15 05:29:00)Подскажите плз как в Мему загрузить файл в досовой кодировке (точнее прочитать)
Zn (2002-11-15 10:02:00) [1]А нельзя ли как-то по умолчанию указать кодовую страницу 866? Мне, например надо работать в одной программе и с текстовыми файлами, и с dbf-файлами в DOS-кодировке.
SottNick (2002-11-15 09:33:00) [2]я просто уточнил...
sask (2002-11-15 08:21:00) [3]2 SottNick © (15.11.02 08:16)
согласен... а что, если будет надобность одновременно отображать несколько файлов с разными кодировками?
SottNick (2002-11-15 08:16:00) [4]а может тебе будет достаточно поставить шрифт у мемо в "System"?
sask (2002-11-15 05:54:00) [5]Идея следующая:
procedure TForm1.Button1Click(Sender: TObject);
var List: TStringList;
S: String;
begin
List := TStringList.Create;
try
List.LoadFromFile("FileName");
SetLength(S, Length(List.Text));
OemToAnsi(PAnsiChar(List.Text), PAnsiChar(S));
Memo1.Lines.Add(S);
finally
List.Free;
end;
end;
| |
