Zahleneingabe über mehrere Labels

[haentschman]

Moin...
Versuche mal was Anderes.
http://www.delphipraxis.net/133112-z...ertierung.html
Mit dieser Funktion zerlegst du den Zahlenwert in einzelne Digits. Die kannst du dann aus dem Array direkt den Labels zuweisen.

PS: FindComponent, auch wenn es legitim ist, sieht für mich immer als Workaround aus.

[Asura]

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?

[LTE5]

So?

Delphi-Quellcode:

SetLength(Result, n + 1);
Result[Length(Result) - 1] := hier dein Wert;

[freimatz]

Mal eine vielleicht blöde Frage: würde da nicht vielleicht debuggen helfen herauszufinden wo der Fehler ist?