Probleme mit dem Freigeben von TabSheets

[marabu]

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