Mit
case geht das. So würde das da z. B. aussehen:
Code:
case StrToInt(CPBaud) of
2400: CBBaud.ItemIndex := 0;
4800: CBBaud.ItemIndex := 1;
9600: CBBaud.ItemIndex := 2;
14400: CBBaud.ItemIndex := 3;
19200: CBBaud.ItemIndex := 4;
28800: CBBaud.ItemIndex := 5;
38400: CBBaud.ItemIndex := 6;
end;
Da man case-Anweisungen nicht so ohne weiteres auf Strings anwenden kann, hab ich den String in einen Integer umgewandelt. Wenn der String nur diese Werte haben kann, dürfte das ja keine Probleme geben.
In diesem Fall könntest du aber evtl. auch auf Abfragen verzichten und den Faktor mit einer mathematischen Beziehung ermitteln. Bei diesen Zahlen dürfte dies relativ leicht sein.