Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

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

 
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]

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


 
VID ©   (2002-07-29 22:06) [5]

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


 
Song ©   (2002-07-30 09:20) [6]

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



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

Текущий архив: 2002.08.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
3-35213
zavisalych
2002-07-24 09:43
2002.08.12
баг в VCL? не понимает множественных полей в KeyFields


3-35195
Chemist
2002-07-20 21:30
2002.08.12
Помогите с bitmap-ами в базе!!!


1-35251
V.Turecky
2002-07-30 16:11
2002.08.12
ТCheckListBox


1-35332
qube
2002-07-30 10:09
2002.08.12
Есть ли для Delphi функции для работы с регулярными выражениями?


14-35405
Song
2002-07-15 18:12
2002.08.12
Приветствую, уважаемые коллеги. Отдохнулось классно.