String minus Float rechnen!

[roth]

Guten Tag!
Ich habe folgende frage/problem
ich möchte diese arrays voneinander abziehen:

Delphi-Quellcode:

total_gezahlt[i] := query1.FieldByName('TOTAL_PAID').AsFloat;
skonto[i] := query1.FieldByName('SKONTO').AsString;

habe schon mit

Delphi-Quellcode:

rechtotal[i]- strtoint(skonto[i])

oder

Delphi-Quellcode:

rechtotal[i]- strtofloat(skonto[i])

funktioniert beides nicht!

mfg roth

[Kroko1999]

Was steht denn es Skonto[I] (als Text) ?

[roth]

was es Skonto?
nein es ist eine Zahl jedoch schon i der db so deklariert!

[mkinzler]

Was ist als Dezimaltrenner eingestellt?

[roth]

wie was ist als dezimal trenner eingestellt? das format ist bis auf zwei kommastellen

[pacman1986]

poste mal deine komplette schleife.

[mkinzler]

Dezmaltrenner: . oder , vom System und dem array müssen übereinstimmen sonst kann man kurzeitig durch Setzten von DecimalSeparator ändern oder den im String durch StringReplace anpassen.

[roth]

Delphi-Quellcode:

if(rechtotal[i]- skonto[i] > total_gezahlt[i])AND(total_gezahlt[i] <> 0)then
 begin
   //Kunde hat zuwenig gezahlt
   zuwenig.Add(IntToStr(i));
 end else if (rechtotal[i] - skonto[i] < total_gezahlt[i]) then
  begin
  //Kunde hat zuviel gezahlt
  zuviel.Add(IntToStr(i));
 end;//if

[ManuMF]

Hallo,

und was funktioniert nicht? Compiler meckert? Fehlermeldung im Programm? Gar nichts?

Gruß,
ManuMF

[roth]

[Error] Unit1.pas(134): Incompatible types: 'String' and 'Real'
[Error] Unit1.pas(138): Incompatible types: 'String' and 'Real'
[Fatal Error] invoice.dpr(5): Could not compile used unit 'Unit1.pas'

[ManuMF]

Hallo,

das ist doch schon mal was ;-)

Was sind denn rechtotal und skonto für Arrays (Array of ***) ?

Aber ganz davon abgesehen: Ich würde den Code ein bisschen anders formatieren und auch noch jeweils ein Klammerpaar setzen:

Delphi-Quellcode:

if ((rechtotal[i] - skonto[i]) > total_gezahlt[i]) and (total_gezahlt[i] <> 0) then begin
  //Kunde hat zuwenig gezahlt
  zuwenig.Add(IntToStr(i));
end
else if ((rechtotal[i] - skonto[i]) < total_gezahlt[i]) then begin
  //Kunde hat zuviel gezahlt
  zuviel.Add(IntToStr(i));
end;//if

Das ist z.T. besser lesbar und beugt Fehlern im IF vor.

Dennoch liegt der Fehler wohl bei den Typen. Deshalb meine Frage oben.

Gruß,
ManuMF

[roth]

rechtotal, total_gezahlt : array of real;
skonto : array of string;

habe alles auf array of real umgestellt jetzt funzt! vielen dank!