| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

файлы

nexus ©   (2002-07-11 23:25:00) 

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

---

NailMan   (2002-07-12 01:13:00) [1]

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

---

Pat   (2002-07-11 23:30:00) [2]

writeln/readln

---

Наверх