Strings in Stringgrid Spalten mit Währung Formatieren

[Natcree]

japp ist richtig habe nur noch nicht viel mit records gearbeitet.

[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.

[Natcree]

sieht erstmal viel aus wie krieg ich das in meinen code eingebunden??

[DeddyH]

Nehmen wir mal an, Du hast so eine TObjectList deklariert und instanziert. Dann machen wir mal ein Eingabeformular mit 2 Edits. Auf ButtonClick erstellen wir ein neues Objekt und fügen es der Liste hinzu. Bei Fehleingaben sagen wir dem Benutzer Bescheid und entsorgen das gerade Objekt gleich wieder. Ungetestet:

Delphi-Quellcode:

procedure TEingabeform.ButtonDingsdaClick(Sender: TObject);
var
  Irgendwas: TIrgendwas;
begin
  Irgendwas := TIrgendwas.Create;
  try
    Irgendwas.ErsteZahlAsString := edtErsteZahl.Text;
    Irgendwas.ZweiteZahlAsString := edtZweiteZahl.Text;
    Objektliste.Add(Irgendwas);
  except
    on E: Exception do
      begin
        MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
        Irgendwas.Free;
      end;
  end;
end;

[Natcree]

Zitat von DeddyH:

Nehmen wir mal an, Du hast so eine TObjectList deklariert und instanziert.

wie kann ich eine tobjektlist declarieren und instanzieren??

[DeddyH]

Delphi-Quellcode:

uses ..., Contnrs;

...

DeineListe := TObjectList.Create;

Die Liste hat einen Konstruktor-Parameter namens OwnsObjects mit Standardwert true. Ist dieser gesetzt, gibt die Liste die enthaltenen Objekte automatisch frei, sobald diese aus ihr entfernt werden.

[Natcree]

Delphi-Quellcode:

   except
     on E: Exception do
       begin
         MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
         Irgendwas.Free;
       end;

Was haben denn die letzten code zeilen zu sagen???

[mkinzler]

Zitat von Natcree:

Delphi-Quellcode:

   except
     on E: Exception do
       begin
         MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
         Irgendwas.Free;
       end;

Was haben denn die letzten code zeilen zu sagen???

Ist ein Exception-Handler, wenn ein Fehler auftritt wird dieser abgefangen

Mit Grundlagenwissen ist bei dir aber auch nicht weit her.