Hallo,
Ich habe einen Fehler in einem Programm, und zwar handelt es sich um eine
Access Violation, an sich keine große Sache aber der Zeitpunkt an dem der Fehler auftritt schon
Also hier ist der Code den ich zum einlesen einer durch Semikolons getrennten Datei benutze:
Delphi-Quellcode:
procedure THauptfenster.mOpenClick(Sender: TObject);
Var
Dateiname : string;
begin
if Datenmodul.OpenDialog.Execute then
begin
Dateiname := Datenmodul.OpenDialog.Filename;
if (Dateiname <> '') then
begin
if FileExists(Dateiname) then
begin
try
ImportDatei := TStringlist.Create;
Datenmodul.Dateilesen(Dateiname, ImportDatei);
StatusBar.Panels[1].Text := ExtractFilename(Dateiname);
StatusBar.Panels[1].Text := ' ' + Dateiname + ' ' + IntToStr(ImportDatei.Count) + ' Sätze';
Z_S_AEN:=0;
Z_S_NEU:=0;
application.ProcessMessages;
screen.Cursor:=crhourglass;
Datenmodul.Datenaufbereiten(ImportDatei, ';', StatusBar.Panels[1]);
if StatusBar.Panels[1].enabled = false then
StatusBar.Panels[1].enabled:= true;
StatusBar.Panels[0].Text := '';
screen.Cursor:=crdefault;
statusbar.Panels[1].text:= 'neu - geändert (S / R / A / B / P ) '
+ inttostr(Z_S_NEU) + '-' + inttostr(Z_S_AEN) + '/ ';
except
showmessage ('Fehler ????');
end;
end;
end;
end;
end;
Also die
Access Violation tritt auf nachdem der letzte Schritt dieser Anweisungsfolge durchgeführt wurde. Aber jetzt kommt der Haken, ersten ca 30-40 Sekunden nachdem
Delphi-Quellcode:
statusbar.Panels[1].text:= 'neu - geändert (S / R / A / B / P ) '
+ inttostr(Z_S_NEU) + '-' + inttostr(Z_S_AEN) + '/ ';
ausgeführt wurde, ich bin wirklich am verzweifeln
Habe mir die Nummern Notiert welche mir ausgegeben wurden als die Fehlermeldung auftrat:
Access Violation at 0x11d6e54e at Adress 0x0337a391 vielleicht kann ja jemand was damit anfangen oder mir erklären was ich damit anfangen könnte
Sorry das der Code so verunstaltet ist, wird automatisch hier eingerückt
Schonmal danke für eure Antworten.
mfg
Alex