procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); //绑定文件到文件类型变量
Reset(F);//打开一个存在的文件,另Rewrite创建文件并打开
while not eof(F) do begin
Readln(F, S);
Memo1.Lines.Add(S);
end;
CloseFile(F);
end;
end;
05-26