hi
Ich habe keine ahrnung warum ich diesen error habe....
Hier ist das
exception fenster
nach dem error springt der de-bugger
Hier hin
und der code (der macht noch net fiel)
error bei: button2click
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
openDialog1.Execute;
edit3.text:=opendialog1.FileName;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
filedata, datacontent : tStringlist;
databegin, dataend :integer;
begin
If openDialog1.Filename = '
'
then showmessage('
no file loaded dumbass')
else
begin
try
filedata.Create;
try
filedata.LoadFromFile(opendialog1.FileName);
except
on E:
Exception do
begin
showmessage(e.
Message);
end;
end;
databegin:=filedata.IndexOf(edit1.Text);
dataend:=filedata.IndexOf(edit2.Text);
finally
FreeAndNil(filedata);
FreeAndNil(datacontent);
end;
end;
end;
hab ich wieder was falsch geschrieben??
wenn ich den error ignorire, un das programm weiterlaufen lasse, ist die gleich message in der showmessage nachricht.... also muss es an:
filedata.LoadFromFile(opendialog1.FileName);
liegen
ist auch wenn ich dass file zB in ein memo feld lade.