Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Labels zu Array (https://www.delphipraxis.net/79-labels-zu-array.html)

Privateer3000 10. Jun 2002 13:33


Labels zu Array
 
Hi,
Wer kann helfen?
möchte Labels zu einem Array machen.
Das heisst:
Es wird ein Ergebnis x errechnet(Integer)
das einem bestimmten Label(x) zu geordnet also angezeigt werden soll.
Nun könnte man das mit if ...then machen,
aber ich will die Labels noch öfters als Array verwenden.

Wenn es geht bitte so erklären das ich es auch verstehe :lol:


Dankeschööööön

Christian Seehase 10. Jun 2002 13:56

Moin Privateer,

warum nimmst Du nicht einfach eine StringList und weist dann, entsprechend des Ergebnisses der Caption des Labels einen der Strings aus der Liste zu?

MrSpock 10. Jun 2002 14:24

Hallo Privateer3000,

ich verstehe das so, dass du dynamisch auf das Label i zugreifen willst, dann könntest du folgendes machen.
[code:1:31cdf14e68]
for i := 0 to ComponentCount -1 do
if Components[i] is TLabel then

RomanK 10. Jun 2002 14:27

Servus

Mit Findcomponent müsste das gehen!!

Privateer3000 10. Jun 2002 16:04

Labels
 
Ja mit Findcomponent werde ich es mal probieren.
Muss das noch irgendwo deklariert werden oder geht Spocki's Code Nr.2
auch "einfach so"?

Danke an alle :!:

Alfons_G 10. Jun 2002 17:41

Hi,

Du musst natürlich TheLabel als TLabel deklarieren ;)

:coder:

Privateer3000 10. Jun 2002 17:52

Alfons_G
 
im Interface, oder?
Ist das dann eine neue Komponente oder wird TheLabel nur "missbraucht"
sozusagen ein Alias.
Mal nebenbei...
Als ich versucht habe
Code:
Label: array[1..12] of TLabel;
zu deklarieren sagt der kompler das es nicht im Interfaces erlaubt sei...Wo dann?

Grüsse

MrSpock 10. Jun 2002 19:19

Hallo Privateer3000,

ich gehe davon aus, dass du die Labels schon in deinem Formular hast. Ist das richtig?

Falls ja, sind sie ja schon in der Klasse (TForm1) schon definiert und dürfen natürlich nicht noch einmal deklariert werden.

Falls nicht, kannst du sie zum Beispiel im privat - Bereich der Klasse definieren, aber bitte mit einem anderen Namen, weil label ein Schlüssselwort ist. Nenne sie z.B. MyLabels oder so.

Dann musst du die Labels natürlich dynamisch erstellen (nur wenn sie noch nicht im Formular existieren!) uns zwar mit TLabel.Create.

Wenn die Labels bereits existieren, kannst du meinen Code direkt benutzen und kannst TheLabel lokal in der Procedure deklarieren, in der du das entsprechende Label suchst, um ihm einen Wert zuzuweisen.

MrSpock 10. Jun 2002 19:20

Hallo Privateer3000,

ich gehe davon aus, dass du die Labels schon in deinem Formular hast. Ist das richtig?

Falls ja, sind sie ja schon in der Klasse (TForm1) schon definiert und dürfen natürlich nicht noch einmal deklariert werden.

Falls nicht, kannst du sie zum Beispiel im privat - Bereich der Klasse definieren, aber bitte mit einem anderen Namen, weil label ein Schlüssselwort ist. Nenne sie z.B. MyLabels oder so.

Dann musst du die Labels natürlich dynamisch erstellen (nur wenn sie noch nicht im Formular existieren!) uns zwar mit TLabel.Create.

Wenn die Labels bereits existieren, kannst du meinen Code direkt benutzen und kannst TheLabel lokal in der Procedure deklarieren, in der du das entsprechende Label suchst, um ihm einen Wert zuzuweisen.

Privateer3000 10. Jun 2002 19:41

Re MrSpock
 
ok, gut,
das werde ich mal versuchen.
Na klar <andenkopfkloppundshüttel> gibts die ja schon.
Mann bin ich blöd.....jajaja..ich kenne die Antwort :roll:

Aber langsam..gaaaaanz langsam wirds

bis denne

PS:
Ach tut es mir im Herzen weh, wenn ich vom Glas den "Bodensee"
:lol:


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:00 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz