Das Problem ist, dass ich einfach nicht raus bekomme wie ich nun GetDeposit und SetDeposit ansprechen soll, damit dieser gewünschte Effekt eintritt, dass die Zahlen von rechts nach links eingefügt werden:
Delphi-Quellcode:
procedure SetDeposit(Depo: Real);
var I, DepoInt : Integer;
begin
DepoInt := Round(Depo * 100);
for I := 5 downto 1 do begin
TLabel(F_admin2_2.FindComponent('lb_depo' + IntToStr(I))).Caption := InttoStr(DepoInt mod 10);
DepoInt := DepoInt div 10;
end;
end;
function GetDeposit: Real;
var I : Integer;
Deposit : String;
begin
for I := 5 downto 1 do
begin
if I = 2 then Deposit := Deposit + ',';
Deposit := Deposit + TLabel(F_admin2_2.FindComponent('lb_depo' + IntToStr(I))).Caption;
end;
result := StrtoFloat(Deposit);
end;
Delphi-Quellcode:
procedure TF_Admin2_2.sb_Click(Sender: TObject);
begin
SetDeposit(GetDeposit * 10 + (Sender as TSpeedbutton).Tag);
end;