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; 这样应该就可以,我也是菜鸟,完全看不懂楼上这几个高手的方法
上面的if OpenDialog1.Execute then { Display Open dialog box } begin 去掉
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;
这样应该就可以,我也是菜鸟,完全看不懂楼上这几个高手的方法
begin 去掉