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.