Frage zur Kürzung des Quelltextes

[fr0g]

Also ich bin dabei ein Automatisches Lagersystem zu programmieren.
jedenfalls Gibt es dort import und Export.
Der Quelltext sieht bis jetzt so aus:

Delphi-Quellcode:

VAR a,b,x,auswahl:integer;

implementation

{$R *.dfm}

procedure TForm1.bokClick(Sender: TObject);
begin
if sender=biok then begin auswahl:=cbimport.ItemIndex+1; end;
if sender=beok then begin auswahl:=cbexport.ItemIndex+1; end;

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);

if sender=biok then begin b:=StrToInt(eibase.Text); x:=a+b; end;
if sender=beok then begin b:=StrToInt(eebase.Text); x:=a-b; end;

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

Jetzt würde ich gerne noch die Bereiche wo kürzen steht kürzen mit FindComponent. Jedoch krieg ich das irgdenwie nicht hin das ich FindComponent so umschreibe das ich den inhalt eines Edit Feldes nicht in eine Variable vom typ integer bekomme

[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-

[EDatabaseError]

imho könnte das mit findcomponent ganz gewaltig kürzen.....

tobi

[Balu der Bär]

Oder gleich:

Delphi-Quellcode:

if auswahl < 10 then
         a := StrToInt((FindComponent('leeres' + IntToStr(auswahl) as TEdit).Text));

[Nicolai1234]

EDIT: Da fehlte wohl der rote Kasten...

So müsste das doch gehen, oder?

Delphi-Quellcode:

a := StrToInt((FindComponent('leres' + IntToStr(auswahl) as Tedit).text));

[fr0g]

Gut.

Also das mit dem case ... of war ne gute Idee aber funzt nicht. Die LabelEdit Felder rechnen sich nicht mehr richtig zusammen.

Jedoch hätte ich es doch gerne mit FindComponent hinbekommen. Den Befehl wie ihr mir den geschickt habt hatte icha uch schon einmal selbst. hab auch gedacht: Das muss doch gehen. :lol:

Aber es kommt immer

Zitat:

[Fehler] ulager.pas(52): Operator ist auf diesen Operandentyp nicht anwendbar
[Fataler Fehler] plager.dpr(5): Verwendete Unit 'ulager.pas' kann nicht compiliert werden

Und nun?

[mkinzler]

Was sthet in der Zeile 52 der Unit ulager.pas?

[Balu der Bär]

Zitat:

Zitat von mkinzler

Was sthet in der Zeile 52 der Unit ulager.pas?

Was wohl? Höchstwahrscheinlich der Code der beiden Posts über seinem. :roll:

So sollte es gehen:

Delphi-Quellcode:

if auswahl < 10 then
 a := StrToInt(TEdit(FindComponent('leeres' + IntToStr(auswahl))).Text);