Frage zur Kürzung des Quelltextes

[fwsp]

du kannst aus

Delphi-Quellcode:

if auswahl=1 then a:=StrToInt(leres1.Text); {kürzen!!}
if auswahl=2 then a:=StrToInt(leres2.Text);
if auswahl=3 then a:=StrToInt(leres3.Text);
if auswahl=4 then a:=StrToInt(leres4.Text);
if auswahl=5 then a:=StrToInt(leres5.Text);
if auswahl=6 then a:=StrToInt(leres6.Text);
if auswahl=7 then a:=StrToInt(leres7.Text);
if auswahl=8 then a:=StrToInt(leres8.Text);
if auswahl=9 then a:=StrToInt(leres9.Text);

auch

Delphi-Quellcode:

case auswahl of
  1: StrToInt(leres1.Text);
  2: StrToInt(leres2.Text);
  ...
end;

machen-