Skywalker - Mi 18.12.02 16:25
Titel: Zuordnungsprobleme mit der ComboBox
Hi Leute,
ich hab mal wieder ein Problem.
Ich übergebe einer ComboBox Teile von Werten aus einer anderen Combobox
Quelltext
1:
| combobox_video.items.assign(StrL5) |
Jetzt will ich
jedem Wert aus der ComboBox einen Wert in einem Edit Feld zuteilen.
Wie kann ich das nun steuern, das auch wirklich jedem Wert ein anderer Wert zugeordnet wird und der User vorher die Maske nicht verlassen kann.
Sprich er bekommt von mir ne Message, das noch nicht alle Werte zugeordnet sind.
Ich hoffe Ihr könnt mir helfen
Ice - Do 19.12.02 10:54
Hallo
versuchs mal mit
Quelltext
1:
2:
3:
4:
| for i := 1 to ComboBox1.Capacity do
begin
ComboBox2.Lines.Add(ComboBox1.Lines[i]);
end; |
Vergleich von werten:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| for i := 1 to ComboBox1.Capacity do
begin
for k := 1 to ComboBox2.Capacity do
begin
if CompareStr(ComboBox1.lines[i],ComboBox2.Lines[k]) = 0 then
begin
{Anweisungen wenn werte gleich sind}
end;
end;
end; |
vergleich ob alle werte übertragen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| if Edit1.text <> ' ' then
begin
{Anweisungen wenn Textfeld nicht leer}
end
else
if MessageDlg('es sind noch nicht alle werte übertragen',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
usw. .... |
dasa letzte müsstest du für jedes Edit -field machen oder du denkst dir ne schleife aus .....
hoffe ich hab dir geholfen
Ice
(19.12. 10:01 Tino) Code-Tags hinzugefügt.