Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#7

Re: zahl auf verschiedene kompos ausgeben

  Alt 17. Nov 2004, 17:25
Zitat von glkgereon:
also, ich will eine zahl auf eine compo ausgeben...

da ich nicht weiss ob dies ein Label oder ein Edit sein soll (oder noch was anderes) möchte ich diese als TComponent deklarieren
Du kannst nur auf Controls (= visuelle Steuerelemente) etwas ausgeben.
Also ist die Basisklasse TControl.
Zitat von glkgereon:
wenn ich was ausgeben will muss ich in einem fall auf Caption zugreifen, in einem anderen aut Text, oder event. sogar auf Value
wie krieg ich das raus?
denn ich will net mit einer
if Output is TEdit - Abfrage alle möglichen compos durchrasseln....

gibt es da eine möglichkeit das einfach ohne großen aufwand zu bewerkstelligen?
Du könntest deinen Text auf Verdacht hin auf das Property Text und Caption zuweisen:
Delphi-Quellcode:
uses TypInfo;
procedure SetControlText(AControl: TControl; const s:string);
begin
   if IsPublishedProp(AControl, 'Caption') then
      SetStringProp(AControl, 'Caption', s)
   else if IsPublishedProp(AControl, 'Text') then
      SetStringProp(AControl, 'Text', s);
end;
Andreas
  Mit Zitat antworten Zitat