Frage zu if...then ... in Verbindung mit 2 oder mehrerern Co

[mjenke]

Hallo, Timm

Versuch es bei 1. mal mit
if Memo1.Text <> '' then Damit prüfst Du ab, ob überhaupt Text in diesem Feld vorhanden ist. Es wird allerdings keine Unterscheidung getroffen zwischen Zahl, Buchstabe oder was auch immer...
Zu 2.:

Du kannst für beide ComboBoxen OnChange-Methoden schreiben, in denen Du abfragst bestimmst, was passieren soll...
Beispielsweise:

Delphi-Quellcode:

var
  Eintrag1, Eintrag2: integer;
begin
  Eintrag1 := ComboBox1.ItemIndex;
  Eintrag2 := ComboBox2.ItemIndex;
  if (Eintrag1=-1) or (Eintrag2=-1) then exit;   // Aussteigen, wenn in einer ComboBox nichts ausgewählt wurde
  // Jetzt die Kombinationen abbilden
  if (Eintrag1 = 0) and (Eintrag2 = 0) then ...
  if (Eintrag1 = 1) and (Eintrag2 = 1) then ...
  [...]

Du kannst diesen Code auch in einer Case-Anweisung schachteln:

Delphi-Quellcode:

var
  Eintrag1, Eintrag2: integer;
begin
  Eintrag1 := ComboBox1.ItemIndex;
  Eintrag2 := ComboBox2.ItemIndex;

  if (Eintrag1=-1) or (Eintrag2=-1) then exit;   // Aussteigen, wenn in einer ComboBox nichts ausgewählt wurde

  // Jetzt die Kombinationen abbilden
  case Eintrag1 of
    0: begin
         case Eintrag2 of
           0: Funktion aufrufen...
           1: Funktion aufrufen...
           [...]
         end;
       end;
    [...]
  end;
  if (Eintrag1 = 0) and (Eintrag2 = 0) then ...
  if (Eintrag1 = 1) and (Eintrag2 = 1) then ...
  [...]

Diesen Code packst Du am besten in eine eigene Methode, die Du aus den OnChange-Methoden nur noch aufrufst. Dann hast Du den Code nur an einer Stelle zu ändern, falls sich Änderungen ergeben...


Matthias

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]