Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

Работа с 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c