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

Вниз

файлы   Найти похожие ветки 

← →
nexus   (2002-07-11 23:25) [0]

Нужна инфа про чтение/запись по строкам в файл формата txt.

---

← →
Pat   (2002-07-11 23:30) [1]

writeln/readln

---

← →
NailMan   (2002-07-12 01:13) [2]

С какими хандлерами? TextFile (типа досовские) или Integer?

Если Textfile см. выше если нет то вот 2 процедурки:

Procedure WriteLnStr(fHandle:Integer;S:String);
begin
if fhandle>0 then begin
s:=s+EOL_Tag;
FileWrite(FHandle,PChar(s)^,Length(S));
end;
end;

const EOL_Tag = chr(13) + chr(10);
Procedure ReadLnStr(const fhandle:integer;Var s:string);
var lpz,cp:integer;Pc:PChar;
begin
if fhandle>0 then begin
getmem(pc,256);
lpz:=FileSeek(FHandle,0,1);
FileRead(fhandle,pc^,256);
s:=string(pc);
cp:=pos(EOL_Tag,s);
If CP=0 then exit;
Delete(s,cp,length(s));
FileSeek(fhandle,lpz+Length(s)+2,0);
freemem(pc);
end;
end;

типа строчки не более 256 символов(изменяемо)

---

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

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

Наверх

Память: 0.44 MB
Время: 0.009 c