Как заменить содержимое файла, открываемого с помощью TFileStream

← →
GreySerg (2004-08-14 23:04) [0]

Как заменить содержимое файла, открываемого с помощью TFileStream ?

Чё-то такой код неправильно выполняется :
var fStream: TFileStream; sStream: TStringStream; S: String; begin try fStream:=TFileStream.Create(FileName ,fmOpenReadWrite or fmShareDenyWrite ); sStream := TStringStream.Create(""); try sStream.CopyFrom(fStream,fStream.Size); S := sStream.DataString; // какие-то действия со строкой S, представляющей файл fStream.Position := 0; fStream.Write(S,Length(S)); finally sStream.Free; fStream.Free end except end end;
Мастера , подскажите как надо правильно ?

← →
Mim1 © (2004-08-14 23:06) [1]

fStream.Write(pointer(S)^,Length(S));

И ни в коем случае не надо
except
end
ни к чему хорошему не приведет.

← →
Anatoly Podgoretsky © (2004-08-14 23:18) [2]

Ну тогда же будет сообщение об ошибки, зачем программиста пугать?

← →
GreySerg (2004-08-14 23:43) [3]

> Mim1 ©
Спасибо , только перед строкой fStream.Position := 0; надо ещё поставить fStream.Size := Length(S);

а except
end - это я ловлю ошибки, чтобы не выводило их

>это я ловлю ошибки, чтобы не выводило их

Тонко =) Надо писать, так чтобы их не было, а если могут быть, то их надо обрабатывать.

Я же и говорю боязливый программист :-)

Как заменить содержимое файла, открываемого с помощью TFileStream Найти похожие ветки