Текущий архив: 2002.12.09;
Скачать: CL | DM;
Вниз
Работа с textfile Найти похожие ветки
← →
Manulo © (2002-11-28 18:34) [0]Цитата из хелпа делфи
AssignFile(Input, "");
Reset(Input);
AssignFile(Output, "");
Rewrite(Output);
Где параметр Input - read only...:( Мастера, подскажите, есть ли возможно в уже существующий текстовый файл чё нить дописать не переписывая его полностью (то есть не копировать содержимое в какой либо буфер, попутно изменяя его а потом Rewrite - ом переписывать искомый файл, а просто открыть файл, найти нужную строку и дописать в неё немного текста)?
← →
Th © (2002-11-28 18:42) [1]Открой файл с помощью TFileStream и делай с ним чего хочешь. Только не забудь после всех изменений MyFileStreamObject.Free сделать, иначе изменения в силу не вступят.
← →
Manulo © (2002-11-28 18:48) [2]
> Th ©
Извини, канечна, а поподробнее низя? :)
← →
jack128 © (2002-11-28 19:07) [3]Append вместо reset()
← →
Th © (2002-11-28 21:15) [4]
unit tt;
interface
uses Classes;
procedure WriteStringToFile(const filename: string; const s: string; const pos: int64);
implementation
procedure WriteStringToFile;
var FS:TFileStream;
begin
if FileExists(filename) then
FS:=TFileStream.Create(filename,fmReadWrite)
else
FS:=TFileStream.Create(filename,fmCreate);
if pos<=FS.Size then
begin
FS.Seek(soFromBeginning,pos);
FS.Write(s,length(s));
Fs.Free;
end;
end;
end;
← →
trotski (2002-11-28 21:34) [5]Во-во, зачем все усложнять. Используй Append() вместо Reset, чтобы дописать в конец. А уж если не в конец, то тогда через TFileStream
Страницы: 1 вся ветка
Текущий архив: 2002.12.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
