Zahlen mit verschiedenen Nachkommastellen

[DeddyH]

Mach doch mal folgendes Testprojekt: ein Edit und ein TUpDown auf das Formular, Associate vom TUpDown wird das Edit. OnPaint des Forms und OnChangingEx des UpDown werden mit Methoden belegt, das Formular bekommt eine Property mit Setter spendiert, so dass das Ganze so aussieht:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    UpDown1: TUpDown;
    procedure FormPaint(Sender: TObject);
    procedure UpDown1ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: Smallint; Direction: TUpDownDirection);
  private
    { Private-Deklarationen }
    (* für die Property *)
    FAnzahlStellen: integer;
    procedure SetAnzahlStellen(const Value: integer);
  public
    { Public-Deklarationen }
    property AnzahlStellen: integer read FAnzahlStellen write SetAnzahlStellen;
  end;

...

(* Form1.OnPaint *)
procedure TForm1.FormPaint(Sender: TObject);
const
  PREFORMAT = '%%.%df';
var
  FormatStr: string;
begin
  FormatStr := Format(PREFORMAT, [FAnzahlStellen]);
  Canvas.TextOut(10, 10, Format(FormatStr, [Pi]));
end;

procedure TForm1.SetAnzahlStellen(const Value: integer);
begin
  FAnzahlStellen := Value;
  invalidate;
end;

(* UpDown1.OnChangingEx *)
procedure TForm1.UpDown1ChangingEx(Sender: TObject;
  var AllowChange: Boolean; NewValue: Smallint;
  Direction: TUpDownDirection);
begin
  AnzahlStellen := NewValue;
end;

Nun schau Dir an, was passiert, wenn man mittels des UpDown die Anzahl der Stellen ändert.

[Sir Rufo]

Wobei SysUtils.Format auch die Stellenanzahl als Parameter bekommen kann

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.TextOut(10, 10, Format( '%.*f', [FAnzahlStellen, Pi]));
end;