Zitat von
Die Muhkuh:
wenn Du z.B. den Text einer ComboBox abfragen willst, könntest Du es z.B. so machen:
Ok Du warst schneller
Aber was macht Du wenn er 7 Comboboxen auf dem Form hat, aber nur 5 Testen will?
In dem Fall ist das mit dem direkten Zuweisen einfacher.
Mann kann das auch in eine Funktion packen so was wie:
Delphi-Quellcode:
...
function CheckComboBoxes(const a: array of TComboBox): Boolean;
var i, j: Integer;
begin
Result := True;
for i := 0 to High(a) do
if a[i].ItemIndex > -1 then
for j := i + 1 to High(a) do
begin
Result := Result and (a[i].ItemIndex <> a[j].ItemIndex);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if CheckComboBoxes([ComboBox1, ComboBox2, ComboBox3])
then Caption := 'OK'
else Caption := 'NOT OK';
end;
...
Damit ist man flexibel, da mann beliebig viele Comboboxen angeben kann.
Ich hoffe das hilft Dir weiter