Hallo,
ich habe wieder mal ein kleines Problem:
Ich habe eine Combobox(Listbox) mit 4 Auswahlmöglichkeiten. Darunter sind 2 edit Feld. Weiterhin habe ich schon 8 Variablen definiert, je eine für einen Combobox.itemindex wert. Ich möchte nun, dass jedes mal wenn etwa anderes gewählt wird, auch der Inhalt der passenden Variable in die edit Felder geschrieben wird:
Mein Versuch war so:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
| procedure TForm2.Edit1Change(Sender: TObject);
begin
case combobox1.itemindex of
0 : begin
var11 := edit1.Text;
var12 := edit2.Text;
end;
1 : begin
var21 := edit1.Text;
var22 := edit2.Text;
end;
2 : begin
var31 := edit1.Text;
var32 := edit2.Text;
end;
3 : begin
var41 := edit1.Text;
var42 := edit2.Text;
end;
end;
end;
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
trim(edit1.text);
case combobox1.itemindex of
0 : begin
edit1.Text := var11;
edit2.text := var12;
end;
1 : begin
edit1.Text := var21;
edit2.text := var22;
end;
2 : begin
edit1.Text := var31;
edit2.text := var32;
end;
3 : begin
edit1.Text := var41;
edit2.text := var42;
end;
end;
end; |
(Die Variablen wurden am Anfang definiert (alles strings)
So, das klappt auch mit edit1. Bei edit2 ändert sich jedoch nichts (Passwortchar ist *)
wundert mich ehrlich gesagt, warum es beim 2. edit feld nicht klappt. Wisst ihr vllt warum?
Moderiert von 
Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Sa 12.12.2009 um 12:33
Dank also nicht mir.