Zeiger auf Inhalt von TEdit TComboBox

[geskill]

Das mit einer Funktion dafür ist klasse danke ;)

Wenn jemand vor dem gleichen Problem steht:

Delphi-Quellcode:

FUNCTION GetContentFromTControl(AControl:TControl):String;
BEGIN
  IF (AControl IS TLabel)
    THEN result := TLabel(AControl).Caption;

  IF (AControl IS TEdit)
    THEN result := TEdit(AControl).Text;

  IF (AControl IS TComboBox)
    THEN result := TComboBox(AControl).Text;

  IF (AControl IS TMemo)
    THEN result := TMemo(AControl).Lines.Text;


  {IF (AControl IS TRzButtonEdit)
    THEN result := TRzButtonEdit(AControl).Text;}
END;

Aufruf:
ShowMessage(GetContentFromTControl(Edit1));