Delphi-Quellcode:
procedure TForm1.Button13Click(Sender: TObject);
VAR Dateiname:string;
begin
if OpenDialog2.Execute then
begin
Dateiname := OpenDialog2.FileName;
LoadStringGridFromFile(Stringgrid1,Dateiname);
end;
end;
Bei diesem Quellcode bricht das Programm nicht ab wenn ich beim Dialog auf Abbrechen klicke!
ABER
Delphi-Quellcode:
procedure TForm1.LoadClick(Sender: TObject);
var
List: TStrings;
i:integer;
begin
List := TStringList.Create;
try
if OpenDialog3.Execute then
List.LoadFromFile(OpenDialog3.FileName);
for i := 1 to 34 do
begin
with TEdit(FindComponent( 'Edit' + IntToStr( i)) ) do
begin
Text:=List[i-1];
end;
end;
finally
List.Free;
end;
end;
Hier bricht das Programm ab wenn ich auf "abbrechen" klicke! Warum??????????
Bitte mal um hilfe
MFG
Bruce86