ich würde dir als erstes emphelen dir mal den styleguide auf
dsdt.info anzugucken. desweiteren solltest du zur besseren übersicht einmal die variable aus der combo ziehen und dann mit case weiterarbeiten.
Delphi-Quellcode:
var
x: extended;
begin
if rb_4rings.Checked then
begin
x := cb_ring4.ItemIndex
case x of
0: pnl_Tolerance.Caption:= '10%'; // und hier sind die toleranzen
1: pnl_Tolerance.Caption:= '5%' ;
2: pnl_Tolerance.Caption:= '1%' ;
3: pnl_Tolerance.Caption:= '2%' ;
4: pnl_Tolerance.Caption:= '0,5%';
5: pnl_Tolerance.Caption:= '0,25%';
6: pnl_Tolerance.Caption:= '0,1%' ;
end;
end;
end;
sieht doch schon mal besser aus, oder?