Delphi-Quellcode:
Function NumberToDigits(aNumber: Cardinal): TByteDynArray;
Var n: Integer;
Begin
n := 0;
SetLength(Result, 10);
Repeat
Result[n] := aNumber mod 10;
aNumber := aNumber div 10;
Inc(n);
Until aNumber = 0;
SetLength(Result, n);
End;
Delphi-Quellcode:
function GetDeposit: Cardinal;
var I : Integer;
Deposit : String;
begin
for I := 5 downto 1 do
begin
Deposit := Deposit + TLabel(F_admin2_2.FindComponent('lb_depo' + IntToStr(I))).Caption;
end;
result := StrtoInt(Deposit);
end;
Delphi-Quellcode:
var Numbers: TByteDynArray;
I: Integer;
begin
Numbers := NumbertoDigits(GetDeposit);
for I := 1 to 5 do TLabel(F_admin2_2.FindComponent('lb_depo' + IntToStr(I))).Caption := Numbers[I-1].ToString;
Wie könnte ich dort denn nun noch einpflanzen, dass er den Wert
(Sender as TSpeedbutton).Tag
ans Ende des Arrays setzt?