Forum: Sonstige Fragen zu Delphi
Delphi
by tedbomi,
19. Jul 2009
Hallo Jaenicke,
ich habe mich da wohl nicht vollständig erklärt. Nachfolgend das Resultat:
procedure TForm9.EinPreisKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var Preis: Real;
Begin
If key=13 Then
Forum: Sonstige Fragen zu Delphi
Delphi
by tedbomi,
19. Jul 2009
Hallo Luckie und NamenLozer,
Die Eingabe erfolgt nicht manuell, sondern durch FloatToStrF(Preis,ffNumber,8,2).
Diese Funktion kannte ich noch nicht, funktioniert aber gut, meine ist damit tatsächlich überflüssig.
Forum: Sonstige Fragen zu Delphi
Delphi
by tedbomi,
17. Jul 2009
Hallo,
mein Problem habe ich folgendermaßen gelöst:
EinPreis.Text:=StringReplace(EinPreis.Text,'.','',);
Preis:=StrToFloat(EinPreis.Text;
Ich entferne einfach den Punkt aus meinem String und wandele ihn erst dann in das Float-Format um.
es ist eine Lösung, vielleicht gibt es eine einfachere?
Forum: Sonstige Fragen zu Delphi
Delphi
by tedbomi,
17. Jul 2009
Hallo Jfheins,
ol ist eine kleine Funktion, die dafür sorgen soll, dass vor und hinter der Eingabe alle Leerzeichen beseitigt werden. Ob mit oder ohne diese Funktion, mein Problem bleibt das selbe.
Du sprichts den Tausenderpunkt an, könnte da das Problem drin stecken?
TedBomi
Forum: Sonstige Fragen zu Delphi
Delphi
by tedbomi,
17. Jul 2009
Hallo Leute,
ich habe eine kleine Maske zum Erfassen von Preis, Anzahl und einer zu berechnenden Summe eingerichtet.
Die Ausgabe soll nicht "12345,67", sonder so aussehen "12.345,67". Mit folgenden Zeilen habe ich mein Problem realisiert:
procedure TForm1.EinpreisKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var Preis,Summe: Real;