Von mir gibt´s die Idee:
Code:
[b]const[/b]
Bauds = [b]array[/b][0..6][b]of[/b] [b]string[/b];
('2400','4800','9600','14400','19200','28800','38400');
[b]var[/b]
i : integer;
[b]begin[/b]
[b]for[/b] i := 0 [b]to[/b] 6 [b]do[/b]
[b]if[/b](CPBaud = Bauds[i]) [b]then[/b]
[b]begin[/b]
CBBaud.ItemIndex := i; break;
[b]end[/b];
[b]end[/b];
Für Daniel: Um hier eine Fehlerbehandlung zu haben, könnte man den ItemIndex von "CBBaud" hier vor dem Schleifendurchlauf auf einen Default-Wert setzen.
