Anfänger Problem: Combobox und EditFeld.

[cusar]

Hallo alle :)

Durch Klick eines Buttons soll Item1 in der Combobox ausgewählt werden.
Die Combobox enthält 4 Items.

Habe unter der entsprechenden ButtonClick Prozedur versucht: Combobox1.Text:='Item1';

Das funktioniert aber irgendwie nicht, mit der Combobox verändert sich nichts.


Weiter möchte ich noch wissen wie ich verhindern kann das ein Edit-Feld volkommen gelöscht wird.
Durch Andern einer Zahl in Edit1-Feld wird eine Rechnung ausgeführt und im Edit2.Feld ausgegeben und wenn man nun die Zahl aus Edit1 löscht kommt nen Error. irgendwas mit ( " ist kein gültiger gleitkommawert...") und es stürtzt ab.

Vielen Dank :)

[Luckie]

Delphi-Quellcode:

ComboBox1.ItemIndex := 0;

[mkinzler]

Das 1. Item oder das Item mit dem Text 'Item1'?
1.

Delphi-Quellcode:

Combobox1.ItemIndex := 0;

2.

Delphi-Quellcode:

Combobox1.ItemIndex := Combobox1.IndexOf('Item1');

[Matze]

Hi,

bitte stelle zukünftig pro Frage einen Thread.

- Items der ComboBox wählt man über das Setzen des Index:

Delphi-Quellcode:

ComboBox.ItemIndex := 0;  // 1. Item

oder über IndexOf()

- Ein Edit leerst du, in dem du einen Leerstring zuweist oder mittels Clear()

- Fange Fehleingaben entweder mit TryStrToInt/TryStrToFloat oder try-except ab. Es gibt natürlich weitere Möglichkeiten.

Grüße

[cusar]

Danke schon mal für die Hilfe mit der Combobox, das klappt.

Aber das Edit Feld soll ja nicht leer werden können weil dann die rechnung nich durchgeführt werden kann und der Error kommt.
Als Bsp:

Im Edit1 steht die Zahl 5.

Nun möchte man aber eine andere Anzahl wählen und macht die 5 mittels Backspace weg -> Error.

Man könnte ja einfach die Zahl markieren und ohne löschen ändern, das klappt auch, aber der Anwender weiß es ja nicht.


Danke
mfg

[mkinzler]

Überprüfe auf das Vorhandensein einer Zahl und führe die Rechnung nur dann aus.

[Maja Jessica]

Hi,

ich werfe mal die "Holzhammermethode" ein :stupid:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 if length(Edit1.Text) < 1 then Edit1.Text := '0';
end;

MJ

[cusar]

Okay, funktionier alles soweit, danke für die Hilfestellungen.