Question

opendialog delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i: INTEGER;
FileNameString: String;
LoadFile: FIle of integer;
begin
IF openDialog1.Execute then
begin
FileNameString:= OpenDialog1.FileName;
Assign (LoadFile,FileNameString);
Reset(LoadFile);//
For I:= 1 to 22 do
begin
read(LoadFile,v1[i]);
Label1.Caption:= V1[i];

end;
end;
read(
end;

end.
哪位大侠来看一下这个程序哪个地方有问题，我要添加文件路径的话应该添加到哪里？编译的时候老是提示错误，我是初学者看不懂哪里错了，谢谢

Answer 1

//看个最简单的用法吧，
procedure TForm1.Button1Click(Sender: TObject);
begin
IF openDialog1.Execute then
ShowMessage(openDialog1.FileName);
end;