Forum: Programmieren allgemein
Delphi
by Asura,
31. Dez 2017
Function NumberToDigits(aNumber: Cardinal): TByteDynArray;
Var n: Integer;
Begin
n := 0;
SetLength(Result, 10);
Repeat
Result := aNumber mod 10;
aNumber := aNumber div 10;
Inc(n);
Until aNumber = 0;
Forum: Programmieren allgemein
Delphi
by Asura,
30. Dez 2017
Keiner der vllt. den Fehler sieht?
Forum: Programmieren allgemein
Delphi
by Asura,
28. Dez 2017
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:
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' +...
Forum: Programmieren allgemein
Delphi
by Asura,
22. Dez 2017
Wie müsste da nun die Set-Funktion aussehen?
Ich habe mich mal bis jetzt so daran versucht:
function SetDeposit(Depo: String);
begin
//
end;
Forum: Programmieren allgemein
Delphi
by Asura,
22. Dez 2017
Guten Tag,
ich bin gerade dabei eine Zahleneingabe zu erstellen. Das Formular wird über ein Tablet genutzt, weshalb ich auf ein NumPad in Form von Speedbutton zurückgegriffen habe.
Daraufhin steht darüber in einer festen Form 6 Labels, wofür 5 für eine Zahl bestimmt ist: 0 0 0 . 0 0. Von Links beginnend: lb_depo5 bis lb_depo1. Der Punkt ist hiervon nicht betroffen.
Man soll nun über die...