Strings in Stringgrid Spalten mit Währung Formatieren

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