Combo + Grid: Gemeinsame Strings

[Shaman]

Delphi-Quellcode:

procedure TCustomCombo.SetItems(const Value: TStrings);
begin
  if Assigned(FItems) then
    FItems.Assign(Value)
  else
    FItems := Value;
end;

Da war jemand schlau, als er das programmiert hat. Immer diese Kindersicherungen