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

Вниз

возможно глупый вопрос...   Найти похожие ветки 

 
Demona ©   (2002-07-31 17:37) [0]

в общем надо в textfile перейти на определенную строку и заменить ее... seek в текстовых файлах недействует, может кто-нибудь подскажет решение(функции) данной проблемы?


 
Skier ©   (2002-07-31 17:39) [1]

>Demona
Если файл текстовой, то можно не парится
и работать через TStringList...


 
VEG ©   (2002-07-31 17:59) [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!!!");

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


 
Demona ©   (2002-07-31 18:58) [3]

Thanks :)



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
4-35525
Feuerrader
2002-06-08 01:20
2002.08.12
КаК разукрасить TaskBar?


3-35165
Falkon
2002-07-19 20:59
2002.08.12
Такая вот проблемка


3-35226
Crazy Joker
2002-07-19 11:29
2002.08.12
Помогите! Форма не отображается пока не выполнится запрос к БД .


1-35364
Владик_1
2002-07-30 11:30
2002.08.12
И еще грид


1-35253
^SANYA
2002-07-30 15:43
2002.08.12
Перехват клавиш, нажатых в Win32