Forum: Programmieren allgemein
by Natcree,
8. Mär 2013
Das heist es geht nur so
procedure TForm1.Button1Click(Sender: TObject);
var
irgendwas: Tirgendwas;
begin
irgendwas := Tirgendwas.Create;
try
irgendwas.ErsteZahlAsString := edit1.Text;
irgendwas.Add(irgendwas);
Forum: Programmieren allgemein
by Natcree,
8. Mär 2013
Okay habs mal umgeschrieben
type
Tirgendwas = class(tobjectlist)
....
procedure TForm1.Button1Click(Sender: TObject);
var
irgendwas: Tirgendwas;
begin
irgendwas := Tirgendwas.Create;
Forum: Programmieren allgemein
by Natcree,
8. Mär 2013
okay wie bekomme ich meine daten wieder Ausgegeben???
Habe die Eingabe jetzt so
procedure TForm1.Button1Click(Sender: TObject);
var
deineliste: Tirgendwas;
begin
Deineliste := Tirgendwas.Create;
try
Forum: Programmieren allgemein
by Natcree,
8. Mär 2013
wie kann ich eine tobjektlist declarieren und instanzieren??
Forum: Programmieren allgemein
by Natcree,
7. Mär 2013
sieht erstmal viel aus wie krieg ich das in meinen code eingebunden??
Forum: Programmieren allgemein
by Natcree,
7. Mär 2013
japp ist richtig habe nur noch nicht viel mit records gearbeitet.
Forum: Programmieren allgemein
by Natcree,
7. Mär 2013
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???
Forum: Programmieren allgemein
by Natcree,
7. Mär 2013
wie kann ich das am besten ändern???
Forum: Programmieren allgemein
by Natcree,
7. Mär 2013
Okay versuch ichs mal so
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:=edit1.Text;
form1.eltreestringgrid1.Cells:=edit4.Text;
form1.eltreestringgrid1.Cells:=edit3.text;//--> wenn ich hier jetzt die Formatierung einbring kann er...
Forum: Programmieren allgemein
by Natcree,
7. Mär 2013
deddyh funktioniert aber wenn ich mit einer eingabe mache kommt ein fehler . '%.2n €' ungültiges argument
stringgrid1.cells:=Format('%.2n €', )
Hier mal der komplette code
procedure TForm7.Button2Click(Sender: TObject);
var
i,j:integer;
Forum: Programmieren allgemein
by Natcree,
7. Mär 2013
Mit format aber die Ausgabe im stringrid ist ne einfache Zahl ohne Währung und nun??
for j:= form1.ElTreeStringGrid1.row to form1.ElTreeStringGrid1.RowCount-1 do
begin
Summe1 := strtofloatdef(form1.eltreestringgrid1.cells,0) + strtofloatdef(form1.eltreestringgrid1.cells,0);
Summe2 := strtofloatdef(form1.eltreestringgrid1.cells,0);
Ergebnis := Summe1 + Summe2;
...
Forum: Programmieren allgemein
by Natcree,
7. Mär 2013
for j:= form1.ElTreeStringGrid1.row to form1.ElTreeStringGrid1.RowCount-1 do
begin
Summe1 := strtofloatdef(form1.eltreestringgrid1.cells,0) + strtofloatdef(form1.eltreestringgrid1.cells,0);
Summe2 := strtofloatdef(form1.eltreestringgrid1.cells,0);
Ergebnis := Summe1 + Summe2;
form1.eltreestringgrid1.cells := Format('%.2f', );
Forum: Programmieren allgemein
by Natcree,
7. Mär 2013
nee er soll die spalte 4 vom stringgrid formatieren .
welche Variable muss denn rein???
Forum: Programmieren allgemein
by Natcree,
7. Mär 2013
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 := Format('%.2f', );
Gleitkommawert erkennt er nicht.
Kann mir jemand helfen??