Zahleneingabe über mehrere Labels

[himitsu]

Entweder mit FloatToStrF oder Format in einen String, entsprechend den Labels, und dann die Chars den Captions zuweisen
oder Mathematisch.

Delphi-Quellcode:

function SetDeposit(Depo: Real);

DepoInt := Round(Depo * 100); // oder Trunc
for I := 5 downto 1 do begin
  TLabel(F_admin2_2.FindComponent('lb_depo' + IntToStr(I))).Caption := DepoInt mod 10;
  DepoInt := DepoInt div 10;
end;

DepoStr := Format('...',  [Depo]);
for I := 5 downto 1 do
  TLabel(F_admin2_2.FindComponent('lb_depo' + IntToStr(I))).Caption := DepoStr[I + IfThen(I > 3, 1, 0)];

PS: FormatSettings
Deposit := Deposit + ',' wrd sonst in einem nicht-deutschen Windows wunderschöne Probleme bereiten.


Also entweder bei der Ein-/Ausgabe den "richtgen" DecimalSeparator verwenden
oder bei der Umwandlung der Funktion (als letzten Parameter) den gewünschten DecimalSeparator mitteilen.