Typecast ohne Typ zu kennen?

[mirage228]

Hi,

hier eine etwas kürzere Variante:

Delphi-Quellcode:

// uses TypInfo;

procedure TForm1.Button1Click(Sender: TObject); 
begin
  if IsPublishedProp(Sender, 'Caption') then
    SetStrProp(Sender, 'Caption', 'Hello World');
end;

mfG
mirage228