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]