Strings in Stringgrid Spalten mit Währung Formatieren

[DeddyH]

Ich sag ja: Du rechnest mit der Darstellung der Werte, nicht mit den Werten selbst. Daher bekommst Du Probleme, wenn Du diese Darstellung änderst.

[Natcree]

wie kann ich das am besten ändern???

[p80286]

Indem Du Dich hinsetzt, und mit einem Bleistift und Papier programmierst.
Zunächst solltest Du dich fragen was Du hast( was steht den in spalte2,3 und vier?)
Ist das vielleicht Nettobetrag,MWST und Bruttobetrag?

dafür würde sich z.B. ein Record anbieten.

Wenn Du mit der Datendefinition fertig bist, dann schreib einmal die notwenendigen Arbeitschritte auf, und bring sie in einen logischen Zusammenhang (ablaufplan).

Jetzt mußt Du nur nochdas alles in Delphi übersetzen, und eine entsprechende Oberfläche bauen.
Fertig.

Gruß
K-H

[Natcree]

so ähnlich habe ich auch begonnen. ich möchte das alle daten in den 3 Spalten 0,00 € als Format haben sollen (bzw. so visuell wiedergegeben werden sollen)

Die Berechnung der Spalten funktioniert. jedoch nicht mit den Format werten. Wie kann ich diese Trennen???

[mkinzler]

Datenhaltung von der Anzeige trennen ( du verwendest das Grid gleichzeitig als Datenspeicher)

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

Zitat von DeddyH (Beitrag 1206444)

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

wie kann ich eine tobjektlist declarieren und instanzieren??