Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];

Вниз

ASCII в Memo   Найти похожие ветки 

← →
roman002   (2002-11-15 05:29) [0]

Подскажите плз как в Мему загрузить файл в досовой кодировке (точнее прочитать)

---

← →
sask   (2002-11-15 05:54) [1]

Идея следующая:
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;

---

← →
SottNick   (2002-11-15 08:16) [2]

а может тебе будет достаточно поставить шрифт у мемо в "System"?

---

← →
sask   (2002-11-15 08:21) [3]

2 SottNick © (15.11.02 08:16)
согласен... а что, если будет надобность одновременно отображать несколько файлов с разными кодировками?

---

← →
SottNick   (2002-11-15 09:33) [4]

я просто уточнил...

---

← →
Zn   (2002-11-15 10:02) [5]

А нельзя ли как-то по умолчанию указать кодовую страницу 866? Мне, например надо работать в одной программе и с текстовыми файлами, и с dbf-файлами в DOS-кодировке.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c