مشکل ناشناس با خطای Stream Write Error ....

[Babak-Aghili]

سلام. خسته نباشین. :لبخندساده

خطای Stream Write Error میده ، فکر میکنید چرا ؟؟ :گیج:


var
fs: TFileStream;
tw: TWriter;
begin
Memo1.Lines.Clear;
try
fs:= TFileStream.Create('d:\fortest.txt', fmOpenRead);
tw:= TWriter.Create(fs,10);
tw.WriteString('SaLaMmmm');
// Memo1.Lines.LoadFromStream(fs);
finally
tw.Free;
fs.Free;
end;


با تشکر.

[Inprise]

طبیعیه که وقتی فایل رو برای خواندن باز کنی هنگام نوشتن با خطا مواجه بشی . اگر فایل از قبل وجود نداره و میخوای ایجاد/باز کنی و توش بنویسی باید از fmCreate استفاده کنی .

[Babak-Aghili]

استاد بزرگوار
از اینکه مرحمت فرموده و پاسخ سوال حقیر را دادید ، بسیار ممنون. :خجالت: ( شرمنده کردید)

دلیلش همان است که شما گفتین ... که ناشی هست از :

1- تازه کاری.
2- افت نیکوتین.

تشکر.