zusammenfalten · markieren

Delphi-Quellcode:

procedure TFitnessMainForm.FormCreate(Sender: TObject);

begin
left:=0; top:=0;
showmessage ('Start');
// Position lesen
try left:=inifile.ReadInteger('Position','Links',left);
    width:=inifile.ReadInteger('Position','Breite',width);
    height:= inifile.ReadInteger('Position','Höhe',height);
    top:=inifile.ReadInteger('Position','Oben',top);
  except showmessage('exception 1');
  end;
showmessage('inifile gelesen');

Obiger Code produziert auf einem Rechner unter Windows 8 ein völlig rätselhaftes Verhalten. Nacheinander erscheinen, in der angegebenen Reihenfolge, die angehängten Messageboxen.
Obwohl zwischen dem ersten und dem zweiten Showmessage alles in einem try-except-block ist, wird zweimal diese Nachricht mit einer "Zugriffsverletzung" angezeigt, das Showmessage('Exception2') wird aber nicht ausgeführt.
Die inifile.readinteger funktionieren offenbar auch alle richtig, denn das Formular wird nicht am linken oberen Rand geöffnet, sondern dort, wo es sein soll.

Auf meinem Rechner mit Win7 wird keine derartige Fehlermeldung angezeigt, das ist nur am Kunden-PC der Fall.
Und nach dem Programmstart funktioniert alles normal, aber ich habe keine Ahnung, was die zwei Zugriffsverletzungsmeldungen sollen und wie ich die wegbekommen könnte.

Und was ist dabei rätselhaft? Du fängst den Fehler ja nicht ab.

markieren

Delphi-Quellcode:

 except
  on Exception do showmessage('exception 1');

Ohne Einschränkungen werden alle Exceptions abgefangen.
Wobei immer alles abgefangen, aber nicht unbedingt behandelt wird.

Wo wird das Objekt inifile erzeugt? Übrigens ist im Code kein Showmessage('Exception2') , also kann es kaum ausgeführt werden .

MfG Dalai

Es wird KEIN iniFile gelesen: entweder es ist nicht vorhanden oder es wird nicht gefunden.

Mit SCHLECHTEM Code kann man sich selbst in die Irre führen!

Zitat von hathor:

Es wird KEIN iniFile gelesen: entweder es ist nicht vorhanden oder es wird nicht gefunden.

Mit SCHLECHTEM Code kann man sich selbst in die Irre führen!

Das Code-Fragment im Eingangspost muss ein Pseudo-Code sein.
Den Beisweis liefert der Code in Verbindung mit den Bildern.

Wenn man schon nicht die originale Routine liefert, dann doch ein Pseudocode in dem ALLE relevanten Aufrufe stehen.

Die gepostete Routine wirft in allen Windowsversionen und nicht nur in Windows8 die Exception, da keine Instanz von TIniFile erstellt wurde.

Ich gehe davon aus, dass da noch weitere Anweisungen vor oder nach dem Try-Except-Block stehen, welche die Fehlermeldung auslösen.

Zitat von mkinzler:

Und was ist dabei rätselhaft?

1. Wie himitsu schon geschrieben hat, müsste JEDE Exception dazu führen, dass der Except-Block ausgeführt wird
2. werden die Befehle im Try-Block alle ordnungsgemäss abgearbeitet, sonst würden die Eigenschaften Left und Top nicht gesetzt und die Form würde wegen der Zuweisungen ganz am Anfang (left:=0; top:=0) am oberen linken Rand geöffnet. Das ist nicht der Fall, die Position der Form stimmt, wenn sie angezeigt wird. Die Zuweisung an left ist die erste, die Zuweisung an top die letzte Anweisung des Try-Blocks.
Aber wenn eine Exception auftritt, dürften doch die Befehle nach der Exception nicht mehr ausgeführt werden.
3. funktioniert der gleiche Code auf meinem Win7 PC ohne irgendwelche Macken. Und ich erkenne im Code auch nichts, was irgenwie im Entferntesten ungewöhnich sein könnte

Mittlerweile fehlt mir jede Idee, wo ich weitersuchen könnte. Wenn der Fehler bei mir auftreten würde, könnte ich versuchen (mit wenig Hoffnung auf Erfolg), im Assembler-Fenster des Debuggers zu verfolgen, was passiert. Aber auf dem Kundenrechner ist ja nicht einmal ein Delphi installiert.

@Hathor
Wenn kein INi-File gelesen würde, dann hatte die Form beim Öffnen left=0 und top=0. Nachdem das nicht der Fall ist, wird das Ini-File gelesen.

Ich habe das Ganze weiter zerlegt, die Fehler passieren beim Zuweisen auf die Eigenschaften heigth und width:

zusammenfalten · markieren

Delphi-Quellcode:

try left:=inifile.ReadInteger('Position','Links',left);
    Showmessage ('Links gelesen');
    w:=inifile.ReadInteger('Position','Breite',width);
    Showmessage ('w gelesen');
    width:=w;
    Showmessage ('width zugewiesen');
    h:= inifile.ReadInteger('Position','Höhe',height);
    Showmessage ('h gelesen');
    height:=h;
    Showmessage ('height zugewiesen');
    top:=inifile.ReadInteger('Position','Oben',top);
    Showmessage ('oben gelesen');

Die Exception-meldungen werden angezeigt bei den Zuweisungen width:=w und heigth:=h. Was ich schon nicht verstehe.
Aber völlig unbegreiflich ist mir, dass er nach jeder solchen gemeldeten Exception normal weitermacht, ja sogar die Zuweisungen selbst richtig durchführt (Die Formulargrössen stimmen, die Höhe und Breite wird trotz der Exception-meldung richtig gesetzt.

Das muss etwas anderes sein. Irgendeine abenteuerliche Komponente die auf deinem Formular liegt und der die Größenänderung ihres Parents (das Formular) nicht schmeckt. Ich würde wetten, mit einem Minimalbeispiel *1 tritt das nicht auf?


*1) Also einfach nur ein Formular das aus deiner Ini-Datei liest und dementsprechend sein Width und Height setzt?

Hmmm...
Auf der Form liegen eigentlich nur ganz normale Delphi-Standardkomponenten, ein paar panels, ein Stringgrid, Edits etc.
Aber ich werde deinen Hinweis verfolgen und das Spiel mit einer leeren Form auf dem KundenPC durchspielen.

Die Fensterposition (Left, Top) und -größe (Width, Height) hängt auch von anderen TForm-Eigenschaften wie Position und Windowstate ab. Soviel ich weiß, sind die richtigen Werte der Festerposition- und -größe deswegen erst beim Zeichnen bekannt. Evtl. funkst du da im OnFormCreate zu früh dazwischen, deswegen würde ich das ins OnFormShow nach hinten verlegen.

EDIT : Ich Nehms zurück, denn ich machs auch im FormCreate.

EDIT : Allerdings hab ich mein Programm noch nie auf Win 8(.1) ausprobiert.