Hi DeddyH
Wie kommst du darauf, dass die einzige Instanz der Liste im Datenmodul erzeugt wird?
Delphi-Quellcode:
constructor TPathFinderFrame.Create(AOwner: TComponent);
var RGindex, L: integer; Drive, D: string;
Drives: TStringlist;
begin
inherited;
Drives := TStringlist.Create;
try
TDrives.ListDrivesAndNames(Drives);
for Drive in Drives do
begin
D := Copy(Drive, 1, 3);
AddNewNode(nil, Drive, Copy(Drive, 1, 3), true);
FReportlist.Add(D);
end;
finally
FreeAndNil(Drives);
end;
FReportlist.Add('----');
FileSearcher1.SearchType := stBoth;
FPathlist := TStringlist.Create; //<<====
RGindex := 0;
FFileType := InitFileType(RGindex);
L := CmbxFileType.Items.IndexOf(FFileType);
if L <> -1 then
CmbxFileType.Text := CmbxFileType.Items[L];
if CmbxFileType.Items.IndexOf(FFileType) > -1 then
CmbxFileType.Text := CmbxFileType.Items[CmbxFileType.Items.IndexOf(FFileType)];
FCmbxItem := False;
end;
Die Pathlist des Datenmoduls habe ich erst kürzlich eingefügt. Eben, weil ich mir die Fehlermeldungen nicht erklären konnte. Angedacht war eigentlich nur FFilelist.
Gruss
Delbor