Zuletzt geöffnete Dateien (im Datei-Menü) anzeigen

[Luckie]

hast du mal in die Ini-Datei gekuckt? Wohl nicht, sonst hättest du was anderes gefragt.

Der Hund liegt hier begraben:

Delphi-Quellcode:

          for i := 0 to slKeyNumbers.Count-1 do
          begin
            NewItem := TMenuItem.Create(mnuFile);
            NewItem.Caption := '&'+IntToStr(i)+' '+ExtractFilename(ini.ReadString('MRU', IntToStr(i), ''));
            if NewItem.Caption = '' then
              continue;
            NewItem.Tag := i;
            NewItem.OnClick := MyMenuItemClick;
            mnuFile.Insert(mnuFile.Count, NewItem);
          end;

Wenn ein Eintrag drin ist, dann läuft die Schleife von? Genau 0 bis ein Eintrag minus eins, also genau wie viel mal? Gar kein mal. Nimm das minus eins bei der for-Schleife raus.

Mann, das Ding habe ich in 20 Minuten zusammengekloppt. Es sollte ja auch nur das Prinzip verdeutlichen. Ich habe nie den Anspruch auf perfekten Code erhoben.