Comma Numbers Arithmetic

Hier sind einige Beispiele, wie man Kommazahlen in Punktzahlen umwandeln oder auch hochrechnen kann.

Komma oder Punkt Zahlen hochrechnen :

var
  Form1: TForm1;
   i : Extended
   
//

// Komma oder Punkt Zahlen hochrechnen
procedure TForm1.Timer1Timer(Sender: TObject);
var
  p : integer;
  s : string;
begin
  i := i + 0.17;

  s := FloatToStr(i);
  p := pos(',',s);
  if p > 0 then s[p] := '.';

  Label1.Caption := Format('%f', [i]); // mit komma
  Label1.Caption := s;                 // mit Punkt

  ProgressBar1.Position := Round(i);
  //Label3.Caption := (FormatFloat(',#', ProgressBar1.Position));
  if i > 100.00 then Timer1.Enabled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 1.00;
end;

Zahlen Ausgaben :

// Zahlen Ausgaben
procedure TForm1.Button2Click(Sender: TObject);
var a, b : integer;
begin
  a := 1;
  b := 2;
  Label1.Caption := IntToStr(a) + #32 +
                    IntToStr(B); //#32 ist ein Leerzeichen 2. Art
  Label1.Caption := Format('%d %d', [a, b]);
end;

Kommazahlen in Punktzahlen umwandeln :

Form1: TForm1;
   f : Extended = 0.00;

//

procedure TForm1.Button3Click(Sender: TObject);
var
  f : Extended;
begin
  f := 180.15;
  Label1.Caption := FormatFloat('0.00', F);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var InvariantSettings: TFormatSettings;
   //f : Extended;
begin
  f := f + 0.02;
  InvariantSettings.DecimalSeparator := '.';
  Label1.Caption :=  FloatToStr(f, InvariantSettings);
end;

Komma in Punkt ersetzten :

procedure TForm1.Button4Click(Sender: TObject);
var
  p:integer;
  s:string;
begin
  p:=pos(',',s);
  if p>0 then
    s[p]:='.';
end;

Sämtliche Kommas in Punkte ersetzten :

procedure TForm1.Button5Click(Sender: TObject);
var
  z:integer;
  s:string;
begin
  if length(s)>0 then
    for z:=1 to length(s) do
      if s[z]=',' then
        s[z]:='.';
end;

Komma Zahlen hoch zählen :

var
  i : Extended;
  
//

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 1.00;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  p : integer;
  s : string;
begin
  i := i + 0.17;
  s := FloatToStr(i);
  p := pos(',',s);
  if p > 0 then s[p] := '.';

  Label1.Caption := s;

  // oder

  Label1.Caption := Format('%f', [i]);
  if i > 10.00 then Timer1.Enabled := false;
end;

Komma Zahl setzten :

procedure TForm1.Button7Click(Sender: TObject);
begin
  edit1.Text := FloattostrF(1000000012,
                FFfixed, 10,  // Anzahl der Zahlen vor dem Komma
                          2); // Anzahl der Zahlen nach dem Komma
end;