Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Zahleneingabe über mehrere Labels

    Delphi
    by himitsu, 22. Dez 2017
  Entweder mit FloatToStrF oder Format in einen String, entsprechend den Labels, und dann die Chars den Captions zuweisen
  oder Mathematisch.
  
  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;
• Forum: Programmieren allgemein

  AW: Zahleneingabe über mehrere Labels

    Delphi
    by himitsu, 22. Dez 2017
  Ich würde dir eher empfehlen, dass du dir zwei Hilfsfunktionen baust.
  > GetEditValue und SetEditValue , welche den Wert (Float) auslesen oder in die Edits schreiben.
  
  Damit kannst du dann nachfolgend problemlos jegliche Art von Auslesen/Setzen/Manipulieren/Rechnen umsetzen.
  Und du brauchst nicht überall "umständlich" (fehleranfällig) die Editinhalte umherschupsen.
  
  SetEditValue(GetEditValue...