作者:admin 来源: 日期:2019/11/12 12:29:23 人气: 标签:
procedure TForm1.FormCreate(Sender: TObject);var reader: TStreamReader; line: String;begin reader := TStreamReader.Create('新建文本文档.txt', TEncoding.Default); while not reader.EndOfStream do begin Memo1.Lines.Add (reader.ReadLine); end; reader.Free;
end;