| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
возможно глупый вопрос... [D6, Win2k]
Demona © (2002-07-31 17:37:00)в общем надо в textfile перейти на определенную строку и заменить ее... seek в текстовых файлах недействует, может кто-нибудь подскажет решение(функции) данной проблемы?
Demona (2002-07-31 18:58:00) [1]Thanks :)
VEG (2002-07-31 17:59:00) [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
Юзай наздоровье! Вроде написал без ошибок.
Юзать так: If not WriteStrToFile("Твоя строка", 1{Номер строки}, "Твое File Name") then ShowMeaasge("Error!!!");
Еж - гордая птица. Не пнешь - не полетит...
Skier (2002-07-31 17:39:00) [3]>Demona
Если файл текстовой, то можно не парится
и работать через TStringList...
| |
