Dezimalkomma anstatt Dezimalpunkt

[Chegga]

Hi Leute,

ich habe einen kleinen Schönheitsfelher in meinem Taschenrechnerprogramm.
In der Ergebnisanzeige erscheint ein Dezimalkomma anstatt eines
Dezimalpunktes.
Das Ergebnisanzeigefeld ist ein Label...
Bei einem Editfeld müsste man unter Eigenschaften OnKeyPress wählen,
und als Quelltext dies eingeben:

if key = ',' then key := '.'; Wie muss ich das bei einem Label machen??

Hier noch mein Proggy (ich bin noch ganz am Anfang mit der
Entwicklung des proggys).

MfG Marc

[Stanlay Hanks]

Hi.

Schau dir mal in der OH "StringReplace" an.

Man liest sich, Stanlay

PS: Falsche Sparte

[Chegga]

Hi Stanlay,

danke für deine Hilfe!!
(Ich muss sagen, dass ich selber auf die OH draufkommen hätte können.)

[axelf98]

Delphi-Quellcode:

function FloatToStrDez(Wert:Real; Dezimalzeichen:String): String;
var S: String;
begin
 S := FloatToStr(Wert);
 S := Stringreplace(S,DecimalSeparator,Dezimalzeichen,[rfReplaceAll]);
 result := S;
end;

[Sprint]

Wofür StringReplace wenn es FloatToStr gibt???

Delphi-Quellcode:

var
  Ergebnis: Double;
begin

  Ergebnis := 1234567.89;
  DecimalSeparator := ',';  // DecimalSeparator ist eine Variable die sich in der Unit SysUtils befindet
  ShowMessage(FloatToStr(Ergebnis));

end;

oder

Delphi-Quellcode:

var
  Ergebnis: Double;
  FS: TFormatSettings;
begin

  Ergebnis := 1234567.89;
  FS.DecimalSeparator := ',';
  ShowMessage(FloatToStr(Ergebnis, FS));

end;

[Chegga]

MfG Marc

[Matze]

Zitat von Chegga:

Jetzt weiß echt jeder, was du nicht verstanden hast.

Was verstehst du denn an obigen Codes nicht?

[Chegga]

Hey Matze,

ich schick dir mal die unit.pas von meinem Taschenrechner.
Dann kannsch du mir vielleicht erklären wie ich, wo ich
noch nen code ergänzen soll!!

[Matze]

Was hast du denn nun genau vor?

Nachtrag: Falls s das Ergebnis ist, schreibe einfach:

s := StringReplace(s, ',', '.', [rfReplaceAll]);

[Chegga]

Hey Matze,

also, falls du meinen Taschenrechner runtergeladen hast und eine
Rechnung mit Dezimalzahlen damit gemacht hast, dann fällt auf,
dass im Ergebnis (z.B.) nicht 5.(Punkt!!!)7 steht sondern 5,(Komma!!!)7.
Ich will, dass im Labelfeld nur Punkte und keine Kommas zugelassen werden. Wie muss ich dass programmieren??

MfG Marc