Сохранение строки в файл, НО в опр. строку по счёту

← →
GTA 3 (2002-07-29 21:03) [0]

Текст из Edit"a, нужно при клике на кнопку сохранить в файл file.xxx, но в четвёртую строчку. Т.е. то, что стояло до этого в четвёртой строке - снести нафиг и вместо неё записать из едита

← →
Jeer © (2002-07-29 21:27) [1]

Без проверок на корректность:
lst.LoadFromFile(..);
lst[3] :="...";
lst.SaveToFile(..);

← →
VEG © (2002-07-29 21:33) [2]

Вот, написал для тебя функцию:
Function WriteStrToFile(Str:String;Line:Integer; FileName:String):Boolean; var buf:array of string; FTD:Integer; TextF:TextFile; begin try AssignFile(TextF,FileName); Reset(TextF); While not EOF do begin Inc(FTD); SetLength(buf,FTD); ReadLn(TextF, buf[FTD-1]); end; buf[Line]:=Str; Rewrite(TextF); For FTD:=FTD-1 DownTo 0 do WriteLn(TextF,Buf[FTD]); CloseFile(TextF); Result:=True; except Result:=False; end; end;//©VEG, 29.07.2002 20:37
Юзай наздоровье! Вроде написал без ошибок.
Юзать так: WriteStrToFile("Твоя строка", 1{Номер строки}, "Твое File Name");

Еж - гордая птица. Не пнешь - не полетит...

← →
VEG © (2002-07-29 21:34) [3]

С обработкой ошибок:-)

← →
Jeer © (2002-07-29 21:46) [4]

Какой добрый дяденька..
Вы всем по доброте пишите и штанышки подтягиваете ?

TO VEG: закинь её в UBPFD если не трудно..

Если воспользоваться TStringList программа будет вдвое короче.

Сохранение строки в файл, НО в опр. строку по счёту Найти похожие ветки