要多看帮助 var F: TextFile; S: string; begin if OpenDialog1.Execute then { Display Open dialog box } begin AssignFile(F, OpenDialog1.FileName); { File selected in dialog } Reset(F); Readln(F, S); { Read first line of file } Edit1.Text := S; { Put string in a TEdit control } CloseFile(F); end; end; assignfile()参数一F是定义的文件句柄,参数二是字符串,为文件绝对路径! 别忘给分啊!
AssignFile(var F; FileName: string); 參數很簡單啊, 就是一個文件類型的變量啊!! delphi中的例子, 如下: var F: TextFile; S: string; begin if OpenDialog1.Execute then { 顯示一個打開文件的對話框} begin AssignFile(F, OpenDialog1.FileName); { 對話框中選擇的文件 } Reset(F); Readln(F, S); { 讀文件的第一行 } Edit1.Text := S; { 將讀出來的文本顯示到Edit控件 } CloseFile(F); end; end;
var
F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Readln(F, S); { Read first line of file }
Edit1.Text := S; { Put string in a TEdit control }
CloseFile(F);
end;
end;
assignfile()参数一F是定义的文件句柄,参数二是字符串,为文件绝对路径!
别忘给分啊!
參數很簡單啊, 就是一個文件類型的變量啊!!
delphi中的例子, 如下:
var F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { 顯示一個打開文件的對話框}
begin
AssignFile(F, OpenDialog1.FileName); { 對話框中選擇的文件 }
Reset(F);
Readln(F, S); { 讀文件的第一行 }
Edit1.Text := S; { 將讀出來的文本顯示到Edit控件 }
CloseFile(F);
end;
end;
请教高手帮忙
多谢了!!!
首先谢谢你的回答,但是我找你的方法进行了测试,还是有错误呀,不知道是什么原因?
是 少做了什么吗?