HiHo,
Du soll(te)st einfach nicht schreiben:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
//Do
//something
//with
//a1
//,
//a2
//and
//a3
end;
Sondern die Funkionalität in eine eigene Prozedur schreiben. Das ist (meines Wissens) der erste Schritt zu wiederverwendbarem Code. Gewöhn' dich schonmal dran, wenn du in dieser Richtung längere Zeit arbeiten willst.
Besser:
Delphi-Quellcode:
procedure ZaehlerZuWertigkeit(Zeahler, Wert:TDynArrayOfInteger;Var Wertigkeit:TDynArrayOfInteger);
begin
//Do something with a1, a2 and a3
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ZaehlerZuWertigkeit(a1,a2,a3);
end;
MfG,
hanselmansel
P.S.: Eine plausible antwort scheint ja von Pistev gekommen zu sein! *freu*
Es gibt nur sehr wenige Probleme auf dieser Welt, die sich nicht mit einigen hundert Gramm Sprengstoff lösen ließen.