Strings in Stringgrid Spalten mit Währung Formatieren

[DeddyH]

Es wäre vielleicht nicht die schlechteste Idee, den Code ordentlich zu formatieren und die Logik von der Darstellung zu trennen, da steigt ja niemand durch

[Natcree]

Okay versuch ichs mal so

Delphi-Quellcode:

if label11.caption='b' then i:=form1.ElTreeStringGrid1.Row //Hiermit werden die schon vorhandenen Werte geändert
else i:=form1.ElTreeStringGrid1.RowCount-1;//damit die neuen
form1.eltreestringgrid1.Cells[0,i]:=edit1.Text;
form1.eltreestringgrid1.Cells[1,i]:=edit4.Text;
form1.eltreestringgrid1.Cells[2,i]:=edit3.text;//--> wenn ich hier jetzt die Formatierung einbring kann er nicht rechnen
form1.eltreestringgrid1.Cells[3,i]:='';
form1.eltreestringgrid1.Cells[5,i]:=edit2.Text;
form1.eltreestringgrid1.Cells[6,i]:=memo1.Text;

Delphi-Quellcode:

if label11.Caption='b' then j:= form1.ElTreeStringGrid1.Row;// b steht wenn ich werte im stringrid ändern möchte
{hier beginnt die berechnung für die eingegebenen werte}
for j:= form1.ElTreeStringGrid1.row to form1.ElTreeStringGrid1.RowCount-1 do
begin
Summe1   := strtofloatdef(form1.eltreestringgrid1.cells[2,j],0) + strtofloatdef(form1.eltreestringgrid1.cells[3,j],0);
Summe2   := strtofloatdef(form1.eltreestringgrid1.cells[4,j-1],0);
Ergebnis := Summe1 + Summe2;
form1.eltreestringgrid1.cells[4,j] := Format('%.2n €', [Ergebnis]);
end;// hier endet sie

if label11.Caption='' then // wenns leer ist dann sind es neue Daten die eingefügt werden
{Hier fängt wieder die berechnung an}

for j:= 1 to form1.ElTreeStringGrid1.RowCount-1 do
begin
Summe1   := strtofloatdef(form1.eltreestringgrid1.cells[2,j],0) + strtofloatdef(form1.eltreestringgrid1.cells[3,j],0);
Summe2   := strtofloatdef(form1.eltreestringgrid1.cells[4,j-1],0);
Ergebnis := Summe1 + Summe2;
form1.eltreestringgrid1.cells[4,j] := Format('%.2n €', [Ergebnis]);
end;

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