Editfeld mit Kommawerten und updown-Button

[MPO Technik]

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

[Sascha L]

Warum kompliziert, wenn es auch einfach geht?

Es gibt doch etliche fertige Komponenten ;-)

Bei Delphi ist auch ein TSpinEdit dabei ;-)

[TheAn00bis]

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.

[morri]

Servus:

Versuche es so:

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

[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. :wall:

[TheAn00bis]

Zitat:

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. :wall:

Du hast keinen Mamutbaum vor dem Kopf. :D
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:

Delphi-Quellcode:

edit1.text := floattostr(strtofloat(edit1.text)+0.01);

Dementsprechend der Button zum Verringern.