var
F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, 'abc.txt'); //绑定文件到文件类型变量
Reset(F);//打开一个存在的文件,另Rewrite创建文件并打开
while not eof(F) do begin
Readln(F, S);
执行S字符串中的操作
end;
CloseFile(F);
end;
end;