if opendialog1.Execute then
begin
Q.Text:=Opendialog1.Files.Text;
end;
以上选择文件
------------------------------
以下读取文件出错
str:=TStringList.Create;
if Length(Q.Text)>0 then
begin
filestr:=Q.Text;
str.LoadFromFile(filestr);-----------------------
出错提示:Cannot open file c:\q.txt
begin
Q.Text:=Opendialog1.Files.Text;
end;
以上选择文件
------------------------------
以下读取文件出错
str:=TStringList.Create;
if Length(Q.Text)>0 then
begin
filestr:=Q.Text;
str.LoadFromFile(filestr);-----------------------
出错提示:Cannot open file c:\q.txt
str:=TStringList.Create;
if Length(Q.Text)>0 then
begin
filestr:=Q.Text;
str.LoadFromFile('c:\q.txt');
仅仅以上可以读取
begin
Q.Text:=Opendialog1.FileName;
end;
改为
Q.Text:=Opendialog1.FileName;