Delphi-Quellcode:
procedure TfTest.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FNAGBasicControl.ReadAllIn;
//hier könnte dann die Liste der Files benutzt werden, z.B. in eine Liste zum auswählen
FNAGBasicControl.OpenFile('
test');
fTest.Caption := FNAGBasicControl.ReadEntry('
fTestCaption');
//diese funktion hat bisher ja die exception ausgelöst
FNAGBasicControl.FreeUnused;
//hier nach wäre dann noch eine weitere interaktion mit der used möglich
FNAGBasicControl.FreeUsed;
end;
Hast du FNAGBasicControl mit
FNAGBasicControl := TFNAGBasicControl.Create();
initialisiert?
Und wieso listest du weiterhin alle Language-Files auf anstelle direkt eine zu laden? Hat das einen bestimmten Grund?
Gruß
blackdrake