以下是我的源码,请大家看看,有什么问题: procedure TForm1.Button1Click(Sender: TObject); begin //debug 第二次运行,execute为false,不运行 if opendialog1.Execute then savedialog1.InitialDir:=extractfiledir(opendialog1.FileName);end;procedure TForm1.Button2Click(Sender: TObject); var wrfile:textfile; i:integer; begin if savedialog1.Execute then begin assignfile(wrfile,savedialog1.FileName); rewrite(wrfile); write(wrfile,'<html>'+#13+#10); write(wrfile,'<head>'+#13+#10); write(wrfile,'<title>New Page 1</title>'+#13+#10); write(wrfile,'</head>'+#13+#10); write(wrfile,'<body>'+#13+#10); with OpenDialog1.Files do for I:=0 to count-1 do begin write(wrfile,'<img src="'); turnstr(strings[i]); write(wrfile,strings[i]); write(wrfile,'">'+#13+#10); end; //for i:=0 write(wrfile,'</body>'+#13+#10); write(wrfile,'</html>'+#13+#10); closefile(wrfile); end;end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//debug 第二次运行,execute为false,不运行
if opendialog1.Execute then
savedialog1.InitialDir:=extractfiledir(opendialog1.FileName);end;procedure TForm1.Button2Click(Sender: TObject);
var
wrfile:textfile;
i:integer;
begin
if savedialog1.Execute then
begin
assignfile(wrfile,savedialog1.FileName);
rewrite(wrfile);
write(wrfile,'<html>'+#13+#10);
write(wrfile,'<head>'+#13+#10);
write(wrfile,'<title>New Page 1</title>'+#13+#10);
write(wrfile,'</head>'+#13+#10);
write(wrfile,'<body>'+#13+#10);
with OpenDialog1.Files do
for I:=0 to count-1 do
begin
write(wrfile,'<img src="');
turnstr(strings[i]);
write(wrfile,strings[i]);
write(wrfile,'">'+#13+#10);
end; //for i:=0
write(wrfile,'</body>'+#13+#10);
write(wrfile,'</html>'+#13+#10);
closefile(wrfile);
end;end;