Problem beim Beenden von Programm

[CalganX]

Hi,
wenn ich mein Programm beende kommt immer ein RunTime-Error... Die Close-Prozedur sieht so aus:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MainIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'preferences.ini');
  MainIniFile.WriteString('main', 'highlighter', getHighlighter);
  MainIniFile.Free;
end;

Die Funktion getHighlighter sieht so aus:

Delphi-Quellcode:

function getHighlighter: String;
var
  Item: TMenuItem;
  P: TMenuItem;
  i: integer;
begin
  Item := Form1.N4;
  P := Item.Parent;
  if P = nil then Exit;
  for i := 0 to P.Count - 1 do
    if P.Items[i].Checked then begin
      Result := P.Items[i].Name;
      Exit;
    end;
end;

Was ist da los?

Chris

[Luckie]

Geh doch mnal mit dem Debugger Schritt für Schritt durch und kuck dir mal die Variablenwerte an.

Und wie sieht es bei dir mit dem Ressourcenschutz aus? :roll:

[sakura]

Die Funktion getHighlighter liefert u.U. keine "sinnvollen" Daten zurück.

Füge als erste Zeile

Delphi-Quellcode:

Result := '';

ein:!:

[CalganX]

Das mit dem Result hat nichts gebracht...
Was meinst du mit "Ressourcenschutz"?

Chris

[CalganX]

Ich finde den Einzelschritt nicht, wie lautet denn der Hotkey?

Chris

[Daniel B]

Zitat:

Zitat von Chakotay1308

Was meinst du mit "Ressourcenschutz"?

Du sollst Deine .ini Lese und Schreibe Befehle in try..finally..end; Blocks setzen...

[Daniel B]

Zitat:

Zitat von Chakotay1308

Ich finde den Einzelschritt nicht, wie lautet denn der Hotkey?

F7 = einzelne Zeile
F8 = gesamte Routine

Grüsse, Daniel :hi:

[Christian Seehase]

Moin Chris,

im Einzelschritt durch das Programm gehen geht mit F7/F8, wobei bei F7 dann auch in Unterroutinen verzweigt wird, während diese bei F8 nur ausgeführt werden.

Für den Resourcenschutz ist der sogenannte Resourcenschutzblock try/finally zuständig.
Hierdurch wird zusätzlicher Code mit in das Programm aufgenommen, der gewährleisten soll, das belegte Resourcen (in erster Linie Handle und Speicher) auch tatsächlich wieder freigegeben werden.

Bei Deinem Codefragement sähe dass dann so aus:

Code:

[b]procedure[/b] TForm1.FormClose(Sender: TObject; [b]var[/b] Action: TCloseAction); 
[b]begin[/b] 
  MainIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'preferences.ini'); 
  [b]try[/b]
    MainIniFile.WriteString('main', 'highlighter', getHighlighter); 
  [b]finally[/b]
    MainIniFile.Free; 
  [b]end[/b];
[b]end[/b];

Erst wird das Objekt erzeugt, dann, zwischen try und finally damit gearbeitet, und anschliessend wird der finally Block abgearbeitet, und das unabhängig davon, ob im try Block alles glatt gegangen ist oder nicht. Es könnte ja z.B. sein, dass WriteString fehlschlägt, weil die Platte voll ist.

Zwei weitere Resourcenschutzblöcke wären Form.OnCreate/Form.OnDestroy, sowie die initialization/finalization Abschnitte einer Unit.

Vor dem Abschuss des Programmes aus dem Taskmanager heraus, oder durch einen TerminateProcess von aussen helfen diese natürlich nicht.

[Luckie]

Und mit F4 wird der Code bis zur aktuellen Einfügemarkenposition (schönes Wort für Galgenmännchen übrigens :mrgreen: ) abgearbeitet und bleibt dann da stehen, dann kann man mit F7 oder so weiter machen. Und Breakpoints (also Punkte wo der Debugger stehen bleiben soll im Code) setzt man mit F5 (Einfügemarke in die zeile setzen und F5 drücken, die Zeile wird dann rot markiert), dann wird der Code bis dahin abgearbeitet und der Debugger bleibt dann da stehen. Und wenn du im Debuggmodus bist, kannst du dir die Inhalte der Variablen ankucken, in dem du die Maus über die Variable im Codeeditor hältst.