Servus Leute,
ich hab ein kleines Problem.

Ich möchte in einem Edit-Feld Kommazahlen durch einen UpDown-Button hoch und runter zählen mit ner Auflösung von 0.01. Also, ich hab im Moment nen Mamutbaum vor dem Kopf, ich find keinen Ansatz wie ich das Problem bewältigen kann. Könntet ihr mir da bitte auf die Sprünge helfen.

Vielen lieben Dank

Warum kompliziert, wenn es auch einfach geht?

Es gibt doch etliche fertige Komponenten

Bei Delphi ist auch ein TSpinEdit dabei

Benutz die TUpDown-Komponente und schalte die Eigenschaft "Increment" auf 0.01.Edit: Sorry, habe gerade entdeckt, dass die Komponente keine Real-Werte kennt.

Edit: Aber auch manuell ist das kein Problem. Du wandelst den String des Edit-Feldes über strtofloat in einen Real-Wert um und addierst 0.01. Natürlich solltest du vorher prüfen, ob auch wirklich eine Zahl im Edit steht.

Servus:

Versuche es so:

markieren

Delphi-Quellcode:

if Key = VK_UP then // Pfeiltaste hoch
  begin
    edit1.text + 0.01
  end;
  if Key = VK_DOWN then // Pfeiltaste unten bzw. runter
  begin
    edit1.text - 0.01
  end;

Das im Onkeydown des edits
Vorsich: nicht Copy&'paste fähig

Edit:: argh viel zu spät

Danke Leute für euere Antworten, werde mal alles ausprobieren. Aber das mit dem TSpinEdit check ich nicht so ganz, finde da keine Einstellung, wie man das mit Kommawerten machen kann. Sorry, hab halt im Moment nen Mamutbaum vorm Kopf.

Zitat von MPO Technik:

Danke Leute für euere Antworten, werde mal alles ausprobieren. Aber das mit dem TSpinEdit check ich nicht so ganz, finde da keine Einstellung, wie man das mit Kommawerten machen kann. Sorry, hab halt im Moment nen Mamutbaum vorm Kopf.

Du hast keinen Mamutbaum vor dem Kopf.
Genau wie das TUpDown kennt auch diese Komponente nur Ganzzahlen.

Aber mach es doch so, wie morri es vorschlägt:

Einfach auf den Button, der um 0.01 erhöhen soll folgender Code:

edit1.text := floattostr(strtofloat(edit1.text)+0.01); Dementsprechend der Button zum Verringern.