Zahlen mit verschiedenen Nachkommastellen

[DeddyH]

Ja und? Eine published-Property mit Setter genügt dafür. Kleine Beispielklasse:

Delphi-Quellcode:

type
  TDings = class
  private
    FNachkommastellen: integer;
    FFormatStr: string;
    procedure SetNachkommastellen(const Value: integer);
    function GetTestValue: string;
  public
    constructor Create;
  published
    property Nachkommastellen: integer read FNachkommastellen write SetNachkommastellen;
    property TestValue: string read GetTestValue;
  end;

constructor TDings.Create;
begin
  inherited Create;
  Nachkommastellen := 2;
end;

procedure TDings.SetNachkommastellen(const Value: integer);
begin
  FNachkommastellen := Value;
  FFormatStr := Format('%%.%df', [FNachkommastellen]);
end;

function TDings.GetTestValue: string;
begin
  Result := Format(FFormatStr, [Pi]);
end;

Anwendung:

Delphi-Quellcode:

procedure TFormTest.Button1Click(Sender: TObject);
var
  Dings: TDings;
begin
  Dings := TDings.Create;
  try
    Dings.Nachkommastellen := 3;
    ShowMessage(Dings.TestValue);
    Dings.Nachkommastellen := 1;
    ShowMessage(Dings.TestValue);
    Dings.Nachkommastellen := 2;
    ShowMessage(Dings.TestValue);
    Dings.Nachkommastellen := 5;
    ShowMessage(Dings.TestValue);
  finally
    Dings.Free;
  end;
end;