Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.545 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Dynamischen Wert ermitteln

  Alt 21. Jan 2014, 15:03
Delphi-Quellcode:
const
  EDITNAME = 'edt_SCS%sIPAdresse';
var
  AComponent: TComponent;
...
  if cb_RDCServer.Text <> 'then // hier steht dann z.B: 8 darin
      begin
        AComponent := FindComponent(Format(EDITNAME, [cb_RDCServer.Text]));
        if Assigned(AComponent) then
          if AComponent is TEdit then
            adresse := TEdit(AComponent).Text;
      end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat