Forum: Sonstige Fragen zu Delphi
Delphi
by Ouou,
8. Apr 2010
negative. Leider nicht... Wie pass ich dann die ganzen Edits an?
Indem ich jedes edit so anpasse?:
Edit1.text := FloatToStrF (Edit1.text,ffFixed,8,2)
Forum: Sonstige Fragen zu Delphi
Delphi
by Ouou,
8. Apr 2010
die aussage ist ja schon angepasst. das ergebnis wird ja mit zwei nachkommastellen angezeigt nur die beträge die man in den jeweiligen edits schreibt nicht.
ich will die edits bei mir sind es wie hier:
for i := 1 to 12 do
begin
ergebnis := ergebnis + StrToFloatDef(TEdit(FindComponent('Edit' + IntToStr(i))).Text,0);
end;
12 edits. jedes edit soll zwei nachkommastellen besitzen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Ouou,
8. Apr 2010
das ist richtig deddyh. ich bekomme es einfach nicht in das ich in meinen edits (1-12) zwei nachkommastellen stehen habe...
man muss es doch in dem vorhanden quellcode anpassen können :wall:
Forum: Sonstige Fragen zu Delphi
Delphi
by Ouou,
8. Apr 2010
jetzt habe ich es mit StrToFloatDef gemacht aber es werden mir keine Kommastellen angezeigt.
for i := 1 to 12 do
begin
ergebnis := ergebnis + StrToFloatDef(TEdit(FindComponent('Edit' + IntToStr(i))).Text,0);
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Ouou,
8. Apr 2010
jap da steig ich noch durch... :)
ich habs genauso gemacht wie himitsu es geschrieben hat...
bei diesem beispiel habe ich die zifferngruppe 1-12 (edits). und den edits will ich 2 nach kommastellen hinzufügen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Ouou,
8. Apr 2010
Wenn ich es mit StrToFloat mache sind es zu viele parameter...
for i := 1 to 12 do
begin
ergebnis := ergebnis + StrToFloat(TEdit(FindComponent('Edit' + IntToStr(i))).Text, ffFixed, 8, 2);
end;
Sry mein Fehler ich poste mal den ganzen Quellcode von der procedure.
procedure TfrmKostenaufstellung.Edit1Change(Sender: TObject);
Forum: Sonstige Fragen zu Delphi
Delphi
by Ouou,
8. Apr 2010
Hallo Delphianer,
ich habe hier ein kleines problem und zwar habe benötige ich in meinen Edits 2 Nachkommastellen.
Hier habe ich mal einen Quellcode wie es bei mir aussieht bis jetzt.
for i := 1 to 12 do
begin
ergebnis := ergebnis + FloatToStrF(TEdit(FindComponent('Edit' + IntToStr(i))).Text, ffFixed, 8, 2);
end;