Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];
Вниз
Как заменить содержимое файла, открываемого с помощью 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 - это я ловлю ошибки, чтобы не выводило их
← →
Andy BitOff © (2004-08-15 02:13) [4]>это я ловлю ошибки, чтобы не выводило их
Тонко =) Надо писать, так чтобы их не было, а если могут быть, то их надо обрабатывать.
← →
Anatoly Podgoretsky © (2004-08-15 07:41) [5]Я же и говорю боязливый программист :-)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.026 c