Kurze Frage zur ComboBox

[Kalakmul]

Hallo Vukloc,

falls "nachkomma" eine globale Variable ist (also nicht in einer Procedure oder Function deklariert), kann man diese mit folgendem Code gleich im Variablendeklarationsteil des Formulars initialisieren:

Code:

var
  nachkomma: Integer = 5;

Auch eine Initialisierung der globalen Variable im OnCreate-Ereignis des Formulars ist möglich.

Wird dann der Wert im OnChange-Ereignis gegenüber der Initialisierung geändert, wird er wie beabsichtigt in die Variable übertragen.

Alternativ wäre auch die Verwendung eines einfachen Edit-Feldes, das mit einem TUpDown kombiniert wird, möglich (in den älteren Delphiversionen - z. B. Delphi 4; Delphi 7 habe ich nicht zur Verfügung - entspricht dem die Komponente TSpinButton im Reiter "Beispiele").

[Vukloc]

@ Kalakmul

Danke dir auch, bin jetzt nur leider etwas verwirrt.

Das hier habe ich noch verstanden:

Delphi-Quellcode:

var
  nachkomma: Integer = 5;

hier wird nachkomma auf 5 gesetzt (Datentyp Integer, also ganze Zahlen)
und wird dann wenn später in der ComboBox eine auswahl getätigt wird geändert.


Hier bin ich dann leider ausgestiegen: (werde mir das aber noch zu gemüte fügen)

Auch eine Initialisierung der globalen Variable im OnCreate-Ereignis des Formulars ist möglich.

Wird dann der Wert im OnChange-Ereignis gegenüber der Initialisierung geändert, wird er wie beabsichtigt in die Variable übertragen.

Habe aber noch eine kurze Frage zur ComboBox (wird anderst wohl ziemlich identisch sein):
Und zwar wenn man den Text-Inhalt der ComboBox löscht, und dieser nun übergeben werden soll entshet ja ein Fehler (ist ja logich versuch mal mit "nichts" zu rechnen), was kann man den hiergegen tun, also wenn der Text der Box gelöcht wird das dort automatisch wieder ein Text reingeschrieben wird? (Hoffe das war verständlich)

[scrat1979]

Einfach im OnChange-Event prüfen, ob eine korrekte Eingabe in der Combobox vorhanden ist (z.B. auf Text <> "" und valide Zahl)...

[Vukloc]

Hab da mal ne Lösung hinbekommen ist aber nicht sonderlich schön sag ich mal

Delphi-Quellcode:

if StrToInt(ComboBox2.Text) >18 then ComboBox2.ItemIndex:=5;
  nachkomma:=ComboBox2.ItemIndex;

Aber ich glaube das passt zum restlichen Quellcode, der ist auch ich glaube sehr verworren.

[stahli]

Wenn es jetzt so klappt, dann würde ich das erst mal so lassen.
Schau in 3-4 Wochen noch mal auf den Abschnitt, dann wird sich Dir (wenn Du weiter dazu lernst) bestimmt eine schönere Lösung aufdrängen.

[TiGü]

Zitat von Vukloc:

Aber ich glaube das passt zum restlichen Quellcode, der ist auch ich glaube sehr verworren.

Das glaub ich auch!

[Darlo]

Zitat von Vukloc:

Hab da mal ne Lösung hinbekommen ist aber nicht sonderlich schön sag ich mal

Delphi-Quellcode:

if StrToInt(ComboBox2.Text) >18 then ComboBox2.ItemIndex:=5;
  nachkomma:=ComboBox2.ItemIndex;

Aber ich glaube das passt zum restlichen Quellcode, der ist auch ich glaube sehr verworren.

Also meine Kunden würden einfach in die ComboBox "drei" reinschreiben und sich dann über eine Fehlermeldung wundern

[Daniel]

Wenn die Frage gelöst ist, dann sage den Kollegen von Delphi-Treff bitte auch Bescheid. Es ist schade, wenn man seine Zeit verschwendet, während die Frage in einem anderen Forum bereits gelöst ist.

Meinetwegen kannst Du Deine Frage in zwei oder mehr Foren parallel stellen - aber dann gehört es zum guten Ton, dies transparent zu machen.