| Autor |
Beitrag |
mikeyboy
      
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: Sa 02.10.04 23:48
Wer kann mir helfen! Ich fange heute mit delphi 6 an und hätte eine frage! Wie muss ich den quelltext formulieren wenn ich bei einer combobox das Alter angebe! Von 1 bis 100! und ich möchte dass danach ein feld ist wo bei der Eingabe 1 Jahr dasteht und bei allen anderen Jahre!! Geht das?
|
|
Alstar
      
Beiträge: 827
|
Verfasst: Sa 02.10.04 23:57
In einer Combobox?!
Füllen würde ich sie entweder zur Entwurfszeit oder beim Starten mit einer If-Schleife.
Setz' doch das Jahre mit in die Combobox  Dann hast du das Problem los
Alstar
|
|
Jörg
      
Beiträge: 71
Win 2000, Win XP
Delphi 1, 3, 5, 7
|
Verfasst: So 03.10.04 00:13
Delphi-Quelltext 1: 2: 3: 4: 5: 6: 7: 8: 9:
| for i := 1 to 100 do combobox.items.add(inttostr(i));
if combobox.selecteditem.text = '1' then label.caption := '1 Jahr' else label.caption := combobox.selecteditem.text + ' Jahre'; |
Jörg.
PS: Hab gerade kein Delphi hier, statt selecteditem könnte auch selected stehen. Bitte mal bei combobox in der Hilfe nachschauen.
|
|
mikeyboy 
      
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: So 03.10.04 00:19
mensch, eh so einfach!  danke
und wie würdest du den quelltext schreiben wenn du ein programm hast
wo mann mittels Combo box aussuchen zwischen mann und frau, dann seinen vor - und zunamen in ein textfeld schreiben kann! und das geschlecht mittels radio button bestimmen kann und dann durch die combobox das alter angeben kann!Dann noch 3 Combo boxen für das geburtsdatum!
Darunter hab ich einen Button mit auswertung und möchte haben dass sich dann eine zusammenfassung zusammenstellt wo z.B. steht! Lieber herr so und so sie haben noch soi und so viele tage um sich auf ihren 351 geburtstag vorzubereiten!
|
|
mikeyboy 
      
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: So 03.10.04 00:39
Danke jörg, i hätt dein quelltext reinkopiert, krieg aber eine fehlermeldung mit undefinierter bezeichner 'i'
|
|
AXMD
      
Beiträge: 4006
Erhaltene Danke: 7
Windows 10 64 bit
C# (Visual Studio 2019 Express)
|
Verfasst: So 03.10.04 08:06
Hi,
dann solltest du versuchen, die Variable zu deklarieren
Delphi-Quelltext
|
|
mikeyboy 
      
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: So 03.10.04 14:43
danke axmd, jetzt grieg i keine fehlermeldung mehr, aber er macht auch nichts! Was muss ich mit dem label tun dass sich verrändern je nach zahl soll??
|
|
AXMD
      
Beiträge: 4006
Erhaltene Danke: 7
Windows 10 64 bit
C# (Visual Studio 2019 Express)
|
Verfasst: So 03.10.04 14:47
| Jörg hat folgendes geschrieben: | Delphi-Quelltext 1: 2: 3: 4: 5:
| if combobox.selecteditem.text = '1' then label.caption := '1 Jahr' else label.caption := combobox.selecteditem.text + ' Jahre'; |
|
Steht doch alles dort oben
AXMD
//EDIT: natürlich im OnChange-Event der Combobox 
|
|
mikeyboy 
      
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: So 03.10.04 14:56
Thx axmd, i kenn mi zwar nu imma net aus aba i versuch was leichteres! Vielleicht werd i ja mal kapieren was du gmeint hast! 
|
|
Jörg
      
Beiträge: 71
Win 2000, Win XP
Delphi 1, 3, 5, 7
|
Verfasst: So 03.10.04 19:02
Mein Quelltext muß in combobox.onchange stehen. Also Click auf die Combobox, und dann im Objektinspektor unter Ereignisse OnChange auswählen, doppelklicken und in den dann erzeugten Prozedurrumpf den Quelltext kopieren. Statt Combobx muß dann der wirkliche Name der ComboBox stehen, also z.B. ComboBox1. Und da Du sicher sauber programmieren möchtest, hast Du die ComboBox auch schon in ComboBoxJahr oder CBJahr umbenannt, stimmt's?
Jörg.
|
|
Benutzername
      
Beiträge: 210
Win XP Pro
Delphi 7 PE, D2005 Prof. SSL
|
Verfasst: So 03.10.04 20:06
Denk immer dran: Wir helfen Leuten gerne, aber sie müssen schon selbst Engagement zeigen
Und in Foren bemüht man sich eigentlich, mehr oder weniger Hochdeutsch zu sprechen, nur so am Rande 
|
|