Hallo suche nach einer Lösung ein Fixes Format für Spalten in einem Stringgrid.
Ist für ein Kassenbuch Programm. Die Spalten sollten das Format #,## € Ausgeben bzw. -#,## €.

Habe schon mit einer Schleife Versucht.

form1.ElTreeStringGrid1.Cells[4,j] := Format('%.2f', [Gleitkommawert]); Gleitkommawert erkennt er nicht.

Kann mir jemand helfen??

Heist die Variable auch so?

nee er soll die spalte 4 vom stringgrid formatieren .
welche Variable muss denn rein???

markieren

Delphi-Quellcode:

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('%.2f', [Floattostr(ergebnis)]);

Entscheid' Dich
format oder FloattoStr Du kannst natürlich auch Format(%S ,floattostr(wert)) nutzen.

Gruß
K-H

Mit format aber die Ausgabe im stringrid ist ne einfache Zahl ohne Währung und nun??

markieren

Delphi-Quellcode:

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('%s', [Floattostr(ergebnis)]);

end;

wenn ich 5 eingebe soll er 5,00 € anzeigen die eingegebenen Werte sollen aber auch Später wieder mit in eine Addition genommen werden. ein € hinter zusetzen ist kein Problem aber wenn dies ein mal drinne ist zeigt er mir fehler an das 5,00 € z.b. kein float wert ist.

eltreestringgrid1.cells[4,j] := Format('%.2n €', [Ergebnis]);

deddyh funktioniert aber wenn ich mit einer eingabe mache kommt ein fehler . '%.2n €' ungültiges argument

stringgrid1.cells[2,i]:=Format('%.2n €', [Edit3.text])
Hier mal der komplette code

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm7.Button2Click(Sender: TObject);
var
i,j:integer;
Summe1,Summe2,Ergebnis: double;
begin
edit5.text:='';
edit6.text:='';
edit7.Text:='';
if label11.caption='b' then i:=form1.ElTreeStringGrid1.Row
else i:=form1.ElTreeStringGrid1.RowCount-1;
form1.eltreestringgrid1.Cells[0,i]:=edit1.Text;
form1.eltreestringgrid1.Cells[1,i]:=edit4.Text;
form1.eltreestringgrid1.Cells[2,i]:=Format('%.2n €', [Edit3.text]);
form1.eltreestringgrid1.Cells[3,i]:='';
form1.eltreestringgrid1.Cells[5,i]:=edit2.Text;
form1.eltreestringgrid1.Cells[6,i]:=memo1.Text;
form7.edit1.Text:='';
form7.edit4.Text:='';
form7.edit3.Text:='';
form7.edit2.Text:='';
form7.memo1.Text:='';
form7.edit5.Text:='';
form7.edit6.Text:='';
form7.edit7.Text:='';
form7.edit8.Text:='';
form7.memo2.Text:='';
if label11.Caption='b' then j:= form1.ElTreeStringGrid1.Row;
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;
if label11.Caption='' then
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;
if SysUtils.FileExists('c:\Programme\Vereintool\Daten\Kassenbuch\'+FormatDateTime('yyyy', now)+'\Handkasse '+FormatDateTime('yyyy', now)+'.xls') then
DeleteFile('c:\Programme\Vereintool\Daten\Kassenbuch\'+FormatDateTime('yyyy', now)+'\Handkasse '+FormatDateTime('yyyy', now)+'.xls');
SaveAsExcelFile(form1.eltreestringGrid1, 'Tabelle1', 'c:\Programme\Vereintool\Daten\Kassenbuch\'+FormatDateTime('yyyy', now)+'\Handkasse '+FormatDateTime('yyyy', now)+'.xls');
close;
end;

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

Okay versuch ichs mal so

markieren

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;

zusammenfalten · markieren

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;