Einzelnen Beitrag anzeigen

Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#6

Re: Performante Lösung gesucht (Labels füllen)!

  Alt 24. Sep 2006, 22:50
Hi,
ich versuchs nochmal. Bin gerade mit FindComponent am basteln, aber ich bekomms irgendwie nicht hin:

Ich will die Label1-14.Caption von Form1 einlesen. In Form2 soll dann damit die Label51-64.Caption eingefügt werden. Außerdem sollen auf den Labels der Form2 ein Zähler hinzugefügt werden und der Doppelpunkt ersetzt werden:
Delphi-Quellcode:
Form2.Label51.Caption := ' 1 - ' + StringReplace(Form1.Label1.Caption,':','',[rfReplaceAll]);
Form2.Label52.Caption := ' 2 - ' + StringReplace(Form1.Label2.Caption,':','',[rfReplaceAll]);
Form2.Label53.Caption := ' 3 - ' + StringReplace(Form1.Label3.Caption,':','',[rfReplaceAll]);
........
Form2.Label64.Caption := '14 - ' + StringReplace(Form1.Label14.Caption,':','',[rfReplaceAll]);
// Edit: das ganze dann nochmal mit Form1.Label17-24 ...
Viele Grüße...

  Mit Zitat antworten Zitat