Strings in Stringgrid Spalten mit Währung Formatieren

[DeddyH]

Wie wäre es denn mit so etwas?

Delphi-Quellcode:

type
  TIrgendwas = class
  private
    FErsteZahl,
    FZweiteZahl: double;
    procedure SetErsteZahlAsString(const Value: string);
    procedure SetZweiteZahlAsString(const Value: string);
    function GetErsteZahlAsString: string;
    function GetZweiteZahlAsString: string;
  public
    property ErsteZahl: double read FErsteZahl write FErsteZahl;
    property ZweiteZahl: double read FZweiteZahl write FZweiteZahl;
    property ErsteZahlAsString: string read GetErsteZahlAsString write SetErsteZahlAsString;
    property ZweiteZahlAsString: string read GetZweiteZahlAsString write SetZweiteZahlAsString;
  end;

  ...
  
{ TIrgendwas }

function TIrgendwas.GetErsteZahlAsString: string;
begin
  Result := Format('%.2n', [FErsteZahl]);
end;

function TIrgendwas.GetZweiteZahlAsString: string;
begin
  Result := Format('%.2n', [FZweiteZahl]);
end;

procedure TIrgendwas.SetErsteZahlAsString(const Value: string);
begin
  if not TryStrToFloat(Value, FErsteZahl) then
    raise Exception.CreateFmt('Ungültige Eingabe: %s', [Value]);
end;

procedure TIrgendwas.SetZweiteZahlAsString(const Value: string);
begin
  if not TryStrToFloat(Value, FZweiteZahl) then
    raise Exception.CreateFmt('Ungültige Eingabe: %s', [Value]);
end;

Das in eine TObjectList gesteckt (Bezeichner für ErsteZahl und ZweiteZahl natürlich an den tatsächlichen Zweck angepasst) und ausgeben, sollte recht einfach machbar sein.