H
hyzzhxia
Unregistered / Unconfirmed
GUEST, unregistred user!
不知为什么我运行是总是报I/o出错，请朋友解决。急，谢谢！20分
procedure TForm1.Button1Click(Sender: TObject);
var
F:Textfile; s:string;
Begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F,OpenDialog1.FileName);
Rewrite(F);
While Not EOF(F) do
begin
Readln(F, S);
memo1.lines.add(s); { Read first line of file }
end;
CloseFile(F);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
F:Textfile; s:string;
Begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F,OpenDialog1.FileName);
Rewrite(F);
While Not EOF(F) do
begin
Readln(F, S);
memo1.lines.add(s); { Read first line of file }
end;
CloseFile(F);
end;
end;