1.000 also tausender Punkt

[jornbyte]

Hi
lang lang ist es her, aber heute melde ich mich mal wieder.
Da findet eine tolle Berechnung (float) statt und das Ergebnis ist 1000 und wird 1.000 dargestellt.
Wie bekomme ich den Punkt weg?

[Socke]

Da findet eine tolle Berechnung (float) statt und das Ergebnis ist 1000 und wird 1.000 dargestellt.
Wie bekomme ich den Punkt weg?

Wo? Wie? Was?

Ansonsten suche mal nach: Format Characters oder TFormatSettings, SysUtils.DefaultFormatSettings

[Euklid]

Hi
lang lang ist es her, aber heute melde ich mich mal wieder.
Da findet eine tolle Berechnung (float) statt und das Ergebnis ist 1000 und wird 1.000 dargestellt.
Wie bekomme ich den Punkt weg?

Welche Funktion zum Umwandeln von Float in String verwendest Du denn? Bei StrToFloat beobachte ich den Punkt nicht.

Viele Grüsse, Euklid

[willi4willi]

Hallo,

bei mir macht die Funktion FloatTostr(realwert,FormatSettings) auch keinen Punkt, obwohl FormatSettings.ThousandSeparator:='.' eingestellt ist.

Na, wenigstens haut das mit dem Komma hin.

Ist das ein Fehler?

Willi4willi

[Socke]

bei mir macht die Funktion FloatTostr(realwert,FormatSettings) auch keinen Punkt, obwohl FormatSettings.ThousandSeparator:='.' eingestellt ist.

Na, wenigstens haut das mit dem Komma hin.

Ist das ein Fehler?

Vielleicht schon. Wäre toll, wenn du ein Code-Ausschnitt hier posten könntest.

[willi4willi]

Hallo,
hier ein Beispiel mit Edit-Feld und Button:

Code: Alles auswählen

unit Unit1;
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
 
  { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : real;
begin
  a:=123.123;
  b:=456.456;
  c:=a*b;
  DefaultFormatSettings.ThousandSeparator:='.';
  DefaultFormatSettings.DecimalSeparator:=',';
  Edit1.Text:=FloatToStr(c);
//oder
//  Edit1.Text:=FloatToStr(c,DefaultFormatSettings);
end;
 
end.

Viele Grüße

Willi4willi

[Socke]

Habe gerade in den Quelltext geschaut. Das ist kein Fehler.

Der Tausender-Trenner wird nur gesetzt, wenn die interne Funktion FloatToStrFIntl den format-Parameter mit den Werten ffCurrency oder ffNumber aufgerufen wird (FloatToStr() übergibt ffGeneral). Als Nutzer kommst du an die Funktion nicht heran, kannst den Parameter aber über die Funktion FloatToStrF() steuern.

[willi4willi]

Darum verwende ich auch lieber

Code: Alles auswählen

Edit1.Text:=FormatFloat('#,###.##',c);

Wenn ich keinen Punkt haben möchte dann vorher:

Code: Alles auswählen

DefaultFormatSettings.ThousandSeparator:=#0;

Das hat bei mir jedenfalls geklappt.

Viele Grüße

[jornbyte]

Danke euch, genau das "DefaultFormatSettings.ThousandSeparator:=#0;" hat den Punkt beseitigt