Wie müsste da nun die Set-Funktion aussehen?
Ich habe mich mal bis jetzt so daran versucht:
Delphi-Quellcode:
function SetDeposit(Depo: String);
begin
//
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;
// Zahleneingabe
{ TODO : Zahleneingabe: }
procedure TF_Admin2_2.sb_Click(Sender: TObject);
begin
SetDeposit(GetDeposit * 10 + (Sender as TSpeedbutton).Tag); // die Zahlentasten
// Kontoguthaben - Einzahlung
lb_Acc_m_Depo.Caption := FloattoStrF(CheckAccountAmount(F_Users.UserID) - GetDeposit, ffCurrency, 15,2);
end;