Schau nochmal genauer:
Delphi-Quellcode:
function TGroups.GetGroups: TStrings;
...
begin
...
Result := TStringList.Create;
...
end;
procedure TGroups.CreateGroups;
...
begin
...
for i := 0 to GetGroups.Count - 1 do
CreateTab(Groups[i]);
end;
Abgesehen von diesem Problem rate ich dir zu einer Abstraktions-Ebene für deine Abbildung Gruppe-nach-Ordner. Es ist einfach zu verwirrend, wenn du an unterschiedlichen Stellen immer versuchst die TabSheets mit den Ordnern im Verzeichnis zu synchronisieren. Kapsel die Ordnerzugriffe so, dass sie für die Gruppen-Aktionen transparent sind und teste das getrennt aus.
marabu