Abschreibungsprogramm

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

Delphi-Quelltext

1:

RoundTo()

bummi · Verfasst: Di 14.12.10 10:52

Oder da Du es als Strings ausgibst per z.B. Format('0.00',value)

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

PyroFa · Verfasst: Di 14.12.10 11:14

Wie würde das mit dem Format dann genau laufen?

bummi · Verfasst: Di 14.12.10 11:32

markieren

Delphi-Quelltext

1:	Stringrid.Cells[x,y] := Format('0.00 €', DeinFloatWert);

Du solltest RoundTo trotzdem verwenden um mit den richtigen Werten weiterzurechnen, daß Du z.B. nicht mehr/weniger abziehst als Du anzeigst.

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

PyroFa · Verfasst: Di 14.12.10 11:36

Ok das so weit ist verstanden. Aber wenn ich jetzt folgenden Code habe:

markieren

Delphi-Quelltext

1:	StringGrid1.Cells[x, y] := Format ('0.00 €', floattostr(anfbuch));

so:

StringGrid1.Cells[x, y] := Format ('0.00 €', anfbuch);
gehts übrigens auch nicht

bekomme ich folgende Fehlermeldung:

Error: Incompatible type for arg no. 2: Got "AnsiString", expected "Array Of Const"

Was hab ich nu falsch gemacht?

bummi · Verfasst: Di 14.12.10 12:07

Sorry, ich habe gepennt....

hier wird bei 12121.231212 der Floatwert X, nicht FloatToStr(X) erwartet

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Caption:= Format('%0.2f €', [12121.231212])
end;

Markier einfach mal Format und drücke auf F1

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

PyroFa · Verfasst: Di 14.12.10 12:26

Es läuft. Vielen Dank an alle die mitgeholfen haben

@Mods: Soll das Projekt hier noch hochgeladen werden?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme