файлы

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

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

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

writeln/readln

С какими хандлерами? 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 символов(изменяемо)

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