Hallo,
kann ich folgende 2 Proceduren zusammenfassen, hab da echt keinen Plan unter was ich da suchen sollte, bzw. obs sowas überhaupt geht:
Die Zwei Proceduren:
Delphi-Quellcode:
procedure TCount.Counter(Counter:array of Integer;Var Counte:array of Integer);
var x:Integer;
begin
Counte[1]:= MinIntValue([Counter[48],Counter[50],Counter[51]]);
///Und das geht immer so weiter.........
end;
Delphi-Quellcode:
procedure TCount.Counter(Counter:array of Integer;Var Counte:array of Integer);
var x:Integer;
begin
Counte[1]:=([Counter[48]+Counter[50]+Counter[51]]);
///Und das geht immer so weiter.........
end;
Und so ungefähr, sollte die Zusammengefasste Procedure aussehen:
Delphi-Quellcode:
procedure TCount.Counter(Counter:array of Integer;Zeichen1,Zeichen2:?;Var Counte:array of Integer);
var x:Integer;
begin
Counte[1]:=Zeichen1([Counter[48] Zeichen2 Counter[50] Zeichen2 Counter[51]]);
///Und das geht immer so weiter.........
end;