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

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

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

GTA 3 ©   (2002-07-29 21:03:00) 

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

---

Song   (2002-07-30 09:20:00) [1]

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

---

VID   (2002-07-29 22:06:00) [2]

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

---

Jeer   (2002-07-29 21:46:00) [3]

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

---

VEG   (2002-07-29 21:34:00) [4]

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

---

VEG   (2002-07-29 21:33:00) [5]

Вот, написал для тебя функцию:
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");

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

---

Jeer   (2002-07-29 21:27:00) [6]

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

---

Наверх