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

Вниз

как считывать строки из текстового DOS файла   Найти похожие ветки 

← →
Kaginava   (2002-01-11 23:58) [0]

Всем доброго времени суток, мастера подскажите пожалуйста
как программно читать DOS файл построчно и находить строки содержащие заданную подстроку и выводить их например в ListBox,вроде как все получается но вместо русских букв вижу кадабру и соответственно не могу задать подстроку на русском.
помогите кто может :)

---

← →
Lcoder   (2002-01-14 03:15) [1]

to: Kaginava ©
Неужели Вы девять раз одно и то же спросили ? Лучше бы
один раз Help посмотрели.


var
Buf: array[0..255] of Char;

ReadLn(F, S);
OEMToCharBuff(PChar(S), Buf, SizeOf(Buf));
ListBox1.Items.Add(StrPas(Buf));


---

← →
Dimka Maslov   (2002-01-14 09:36) [2]

procedure ReadDosTextFile(FileName: string; List: TStrings);
var
S: string;
i: integer;
begin
List.BeginUpdate;
try
List.LoadFromFile(FileName);
for i:=0 to List.Count - 1 do begin
S:=List[i];
OemToChar(PChar(S), PChar(S));
List[i]:=S;
end;
finally
List.EndUpdate;
end;
end;

procedure WriteDosTextFile(FileName: string; List: TStrings);
var
S: string;
I: integer;
L: TStringList;
begin
L:=TStringList.Create;
try
L.Assign(List);
for i:=0 to L.Count - 1 do begin
S:=L[i];
CharToOem(PChar(S), PChar(S));
L[i]:=S;
end;
L.SaveToFile(FileName);
finally
L.Free;
end;
end;
begin

---

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

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

Наверх

Память: 0.54 MB
Время: 3.11 c