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