Thema: Delphi Edit-Ínhalte kumulieren

Einzelnen Beitrag anzeigen

Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#14
  Alt 29. Dez 2002, 18:16
soweit geht alles...
Code:
var
i: integer;
puff: Currency;
begin
puff:=0;
for i:= 1 to 34 do
begin
puff:=puff+StrToFloat(TEdit(FindComponent('Edit'+IntToStr(i))).text);
sumedit.text:=FloatToStrF(puff, ffCurrency, 1, 2);
end;
end;
jetzt soll er vorher prüfen ob der Inhalt nicht '0,00' ist.
Denn ich will jetzt einen Durchschnittwert ermittel.
Dazu brauch ich ja die Anzahl der Edits deren Wert grösser als 0 ist.
Ich habs mit Vergleichoperatoren wie <> 0 probiert.
Oder muss ich 0,00 angeben?
Ich komm nicht weiter...
Peter
+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
  Mit Zitat antworten Zitat