Eigenschaft vorhanden?

[marabu]

Delphi-Quellcode:

var
  i: integer;
  c: TComponent;
begin
  for i := 0 to ComponentCount - 1 do begin
    c := Components[i];
    if IsPublishedProp(c, 'Caption') then
      SetStrProp(c, 'Caption', 'OK');
  end;
end;

marabu