使用流对象.我做的小程序,从文本文件中读取字符到TMemo中:
unit Unit1;
。。。。。
。。。。。
procedure TForm1.Button1Click(Sender: TObject);
var
MyStream:TStream;
begin
MyStream:=TFileStream.Create('计算机英语.txt',fmOpenRead);
//MyStream:=TFileStream.Create('新建 Microsoft Word 文档.doc',fmOpenRead);
try
Memo1.Lines.LoadFromStream(MyStream);
finally
MyStream.Free;
end;
end;
end.
希望对兄弟有用