Delphi - Komma in SpinEdit umwandeln

Hallo,

ich versuche mich gerade etwas mit Delphi und komme auch gut voran.

Nun habe ich jedoch ein Problem mit dem SpinEdit: Dort kann der User eine Zahl eingeben. Ziel ist es, einen Körper um die eingegebene Zahl (also Winkel) zu drehen. Funktioniert auch wunderbar, jedoch muss ich einen Fehler abfangen:

Man kann im SpinEdit neben Ziffern auch das Komma eingeben. Behandeln kann Delphi aber leider nur den Punkt, somit wird ein Fehler angezeigt, wenn ich ein Komma eingebe.

Nun würde ich gern eine der beiden Möglichkeiten versuchen:
1. Das Komma wird in einen Punkt umgewandelt, um dann mit der eingegebenen Zahl rechnen zu können.
2. Es ist gar kein Komma erlaubt, sondern nur Ziffern.

Kann mir jemand bei diesem Problem behilflich sein? Irgendwie habe ich mich hier fest gefahren und weiß nicht weiter

Danke euch schon vielmals im Voraus!! Bis dann und viele Grüße,
Frau Holle

[Grandhanate]

Hallo,

so spontan würden mir drei Lösungen einfallen:

1. Du nimmst einfach zwei SpinEdits, setzt sie als String zusammen und wandelst sie in eine Real Zahl um (nicht vergessen, dass du die Dezimale auf 99 begrenzen musst, sonst erhältst du ab 100 drei Nachkommastellen).

Bsp.:

procedure TForm1.Button1Click(Sender: TObject);
var

gesamtText: String;
gesamtZahl: Real;
ergebnis: Real;

begin

gesamtText := ((SpinEdit1.Text) + ',' + (SpinEdit2.Text));
gesamtZahl := StrToFloat(gesamtText);

ergebnis := gesamtZahl * 5;
Label1.Caption := FloatToStr(ergebnis);

end;


2. Du nimmst einfach ein normales Edit Feld und einen SpinButton; dazu noch das Edit einlesen, in Real umwandeln und mit jedem Klick auf den SpinButton um 0,01 erhöhen und im Edit den neuen String ausgeben.

3. Die "billigste" Lösung ^^ - nimm einfach ein normales EditFeld und lies es ein. Bis man mit den SpinEdits den gewünschten Wert eingestellt hat, bist du per manueller Eingabe unter Umständen je nach Zahl wesentlich schneller.

Über das SpinEdit selbst kannst du meines Wissens nach nur natürliche Zahlen erstellen (?), wodurch du auch nicht am Fehler vorbeikommen wirst.

Gruß Grandhanate

Hallo Grandhanate,

besten Dank für deine Anregungen und Tipps. Gute Vorschläge, muss ich zugeben

Grad die Idee mit dem Edit- Feld und dem Spin, worüber man "seperat" den Wert im Edit erhöhen kann gefällt mir. Aber dann habe ich wieder das Problem, dass man im Edit jeden Wert eingeben kann - also Buchstaben, Ziffern, Sonderzeichen und eben auch Komma und Punkt.

Hab mir das nun einmal durch den Kopf gehen lassen, sicher könnte man das irgendwie abfangen und sagen, dass dort nur Ziffern und ein Punkt eingegeben werden darf?!

Aber wäre es dann nicht sinnvoller, der "Wert" im SpinEdit auszulesen und irgendwas zu bauen, dass WENN ein Komma eingegeben WURDE, man dieses in einen Punkt umwandelt?

Nehmen wir eine Variable s (für spin). Nun sage ich "s:=spinedit1.value;" und übergebe somit den Wert an die Variable.

Nun muss man halt eine if- Abfrage bauen, in welcher ausgelesen wird, ob ein Komma mit eingegeben wurde oder NUR Ziffern. WENN ein Komma eingegeben wurde, dieses in einen Punkt umwandeln und den "neuen" Wert zurück an die Variable geben (hier muss ich dann sicher eine zusätzliche Variable zum Auslagern nehmen, das sollte machbar sein).

Und genau da hänge ich. Ich weiß nicht, wie ich abfragen kann, OB ein Komma eingegeben wurde und wie ich dieses dann in einen Punkt umwandeln kann

Schon komisch, dass man beim SpinEdit nur Ziffern und Komma eingeben kann, (alles andere geht da von Hause aus gar nicht), obwohl mit dem Komma gar nicht gerechnet werden kann -.-

Danke auf jeden Fall für die Hilfe, ich bin für jeden Tipp dankbar

[Grandhanate]

Hab jetzt leider nicht so viel Zeit, aber hier mal noch ein paar Stichworte für dich:

Wenn du überprüfen willst, ob bestimmte Zeichen in einem String sind, musst du ihn von vorne nach hinten durchgehen - wichtige Begriffe sind dabei "Copy", "Pos" und "PosEx" (einfach mal danach guckeln oder Delphi Hilfe benutzen).
Um jetzt zwischen Punkt, Komma, Zahlen und Buchstaben zu unterscheiden greifs du am besten auf den ASCII Code zurück (die Zahlen 0 - 9 entsprechen meines Wissens nach dem ASCII Code 30 - 39 (oder so ähnlich ^^), das große A wäre z.b. die 65. Wichtiger Begriff ist dabei wohl der Variablentyp "char" (siehe Delphi Hilfe).
Eine ASCII Tabelle dürfte es z.b. bei Wikipedia geben. Kurzum, du müsstest jedes Zeichen des Strings in die entsprechende ASCII Zahl umwandeln und vergleichen, ob sie einer Zahl bzw. den von dir gesuchten Zeichen entspricht (die könnte man dann in einem Array definieren). Meiner Meinung nach ein doch viel zu großer Aufwand, weshalb ich eher auf eine der anderen Ideen zurückgreifen würde. (Vielleicht gehts auch etwas einfacher, war nur jetzt mein erster Gedanke).

So long,

Grandhanate


Edit: Kleiner Nachtrag noch:

Du kannst den Fehler mit Buchstaben auch mit einem try / finally Rahmen abfangen:

try

Einlesen der Zahl aus dem Edit Feld

finally

Wenn das nicht geht mache etwas anderes bzw. nichts

end;

Hallo,

klingt alles sehr interessant, was du da schreibst!! Mitunter für mich noch Bömische Dörfer, ich steh ja noch ganz am Anfang. Aber aller Anfang ist schwer, von daher habe ich hier mal ein paar Gedankenanreize und Material zum "üben"

Ich habe das Problem nun erstmal so gelöst, dass man im SpinEdit kein Komma mehr eingeben kann, kann man ja abfangen bzw. die Eingabe löschen/irnorieren.

So kann ich nun wenigstens erstmal weiter machen und stolper nicht ständig über diesen Fehler. Später, wenn ich einmal wieder an dieser Stelle bin, werde ich mir deine Vorschläge noch einmal genauer vornehmen und schauen, dass ich auch das noch gelöst bekomme

Dank dir auf jeden Fall schon mal für deine Hilfe, weiß ich sehr zu schätzen!!

[Kernel Panic]

Hallo!

Füge in das OnKeyPress-Ereignis der SpinEdit-Komponente einen der folgenden Codes ein:

Wenn du kein Komma erlauben willst:

 If Key=#44 then Key:=#0;

Wenn du das Komma in einen Punkt umwandeln lassen willst:

 If Key=#44 then Key:=#46;

Gruß, Kernel Panic!