Babak-Aghili
سه شنبه 06 دی 1384, 02:42 صبح
سلام. خسته نباشین. :لبخندساده
خطای 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;
با تشکر.
خطای 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;
با تشکر.