楚
楚辞
Unregistered / Unconfirmed
GUEST, unregistred user!
下面代码完成的是从文本文件里第一行读第16个字符串开始读取11个字符串，然后传递到EDIT编辑框里。procedure TForm1.Button1Click(Sender: TObject);varF:file of char ;S:array[1..11] of char;i:integer;beginif OpenDialog1.Execute then { Display Open dialog box }begin AssignFile(F, OpenDialog1.FileName); { File selected in dialog } Reset(F); for i:=1 to 11 do Read(F, S); Edit1.Text := S;//应该在这就完成了。 for i:=1 to 11 do //1.不知这一句与下面一句应该如何理解？ Write(F,S); // 2. CloseFile(F);