Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Konstante ... (https://www.delphipraxis.net/17188-konstante.html)

dR4g0N 29. Feb 2004 17:58


Konstante ...
 
Sry das ich jetzt einen neuen Thread erstelle, aber wusst net ob es angebracht ist es im alten zu erstellen ...

Tach Leutz,

Ich habe schon wieder ein "kleines Prob" ^^

Ich habe ein paar Konstanten:

-Peter
-Klaus
-Dieter
-Sigfried

-----------

2 * 2 RadioButtons:

Panel1:

-Nina
-Kerstin

Panel2:

-Cora
-Uta

-----------

Wenn ich jetzt RadioButton 2 und 4 anklicke und danach auf TButton klicke soll er mir:

Nina Uta liebt Peter
Nina Uta liebt Klaus
Nina Uta liebt Dieter
Nina Uta liebt Sigfried
Helau

-----------

Des ganze soll dann in eine txt reingeschrieben werden, aber des habe ich schon hingekriegt.
Also ich möcht gerne wissen wie ich es hinkriege, das er mir jedesmal meine 2 Radiobuttons +
1 Name aus den konstanten, dann nächste Zeile und des gleiche mit den nächsten Namen. Ich möchte
die Namen nicht als Variablen deklarieren, da es bei mir hier ein paar mehr sind ....

AnTiPrimaTe 29. Feb 2004 19:26

Re: Konstante ...
 
guck mal, ob das hier passt:

Code:
type
 TMeineNamen = (Peter,Heinz,Uta);
Dann kannst Du mit Index (0=Peter, 1=Heinz etc.)
den Text bekommen und zwar so:

Code:
 uses
  TypInfo

  ...

 GetEnumName(TypeInfo(TMeineNamen),integer(Index))

dR4g0N 29. Feb 2004 19:32

Re: Konstante ...
 
thx schonmal, jedoch bin ich daraus noch net ganz schlau geworden wie kann er mir denn dann mit z.b. showmessage anzeigen?

ps: sehe gerade das du auch aus krefeld kommst ;>

AnTiPrimaTe 29. Feb 2004 19:37

Re: Konstante ...
 
Code:
GetEnumName(TypeInfo(TMeineNamen),integer(Index))
gibt dir den String zurück.
Du kannst dann auch:

Code:
ShowMessage(GetEnumName(TypeInfo(TMeineNamen),integer(Index)));
Wenn du ganz genau die Anzahl deiner Variablen weiß
mach doch ein Array:

Code:
const
  Namen : array[0..1] of string = ('Peter','Heinz');
...
for i:=Low(Namen) to High(Namen) do
begin
 ShowMessage(Namen[i]);
end;

dR4g0N 29. Feb 2004 19:39

Re: Konstante ...
 
ahh thx jetzt funzt es :)

fkerber 29. Feb 2004 21:17

Re: Konstante ...
 
Hi!

Noch als Nachtrag:

Zitat:

Sry das ich jetzt einen neuen Thread erstelle, aber wusst net ob es angebracht ist es im alten zu erstellen ...
Das ist vollkommen richtig nen neuen Beitrag zu erstellen, der Übersichtlichkeit halber.
Nur, du könntest den Titel etwas aussagekräftiger gestalten.
Wenn du den hier noch ändern willst, musst du den 1. Beitrag editieren.

Ciao fkerber

dR4g0N 29. Feb 2004 21:41

Re: Konstante ...
 
Ich hätte das Topic ja anders genannt, wenn ich wüsste wie ich des eher beschreiben könnte ...


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:21 Uhr.

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