Berechnung im Stringgrid

[Bruce86]

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject);
var z,x,y,i:integer;
begin
x:=0;
y:=0;
for z := 1 to Stringgrid1.rowcount do
begin
  for i := 1 to 9
       do begin
         x := x + StrToInt (stringgrid1.Cells[i,1]);
          if (stringgrid1.Cells[i,1] <> inttostr(0)) or (stringgrid1.cells[i,1]<>'')
          then y := y+1
          end;
  if y<>0 then
  Stringgrid3.Cells[0,z] := FloatToStr ((x/y)*0.6+(strtofloat(stringgrid1.cells[10,1])*0.4))
  else stringgrid3.cells[0,z]:= 'n.b.';
  end;
  end;

Hi Ihr seht hier mal mein code zur berechnung der Halbjahresdurchschnittes! dies geht auch für die erste zeite aber bei den anderen funktioniert es nicht! klar mit dem quellcode geht es auch net da nur der wert für die erste zeile berechnet wird doch wenn ich hier:

Delphi-Quellcode:

x := x + StrToInt (stringgrid1.Cells[i,1]);
if (stringgrid1.Cells[i,1] <> inttostr(0)) or (stringgrid1.cells[i,1]<>'')

für "1" = "z" einsetze was ja dann eigentlich gehen müsste meckert er von wegen ungültiger integerwert oder der gleichen! Was ist falsch? Wo ist mein fehler? denn so wie ihr den quelllcode oben seht geht es ja!

MFG

Bruce86

[Safti]

Hallo Bruce,

ab der 3. Zeile sind die Zellen in deinem Stringgrid leer. Du versuchst dann hiermit

Delphi-Quellcode:

x := x + StrToInt (stringgrid1.Cells[i,z]);

einen Leerstring in ein Integer umzuwandeln, was natürlich nicht klappen kann. ;)

Außerdem beginnen die Indizes für row und col bei 0 und enden bei rowcount-1 bzw. colcount-1. Die beiden Schleifenköpfe solltest du also auch anpassen.

Gruß
Safti

[Bruce86]

Zitat:

Zitat von Safti

ab der 3. Zeile sind die Zellen in deinem Stringgrid leer. Du versuchst dann hiermit

Delphi-Quellcode:

x := x + StrToInt (stringgrid1.Cells[i,z]);...

Meinst du also ich muss schone inmal zuvor eine einschrenkung machen, dass er auch wenn felder leer sind rechnet? oder wie meinst du das?

also sollte diese einschrenkung :

Zitat:

if (stringgrid1.Cells[i,1] <> inttostr(0)) or (stringgrid1.cells[i,1]<>'')

davor schon geschehen?

[Klaus01]

Delphi-Quellcode:

if (stringgrid1.Cells[i,1] <> inttostr(0)) or (stringgrid1.cells[i,1]<>'')

sollte es nicht so heißen:

Delphi-Quellcode:

if (stringgrid1.Cells[i,1] <> inttostr(0)) and (stringgrid1.cells[i,1]<>'')

Weil wenn StringGrid[i,1] <> 0 ist, ist das Statement auch wahr wenn StringGrid1[i,1] leer ist und da
Du die beiden Statements mit oder verknüpft sind ist der Ausdruck wahr.

Grüße
Klaus

[Safti]

Zitat:

Zitat von Bruce86

Meinst du also ich muss schone inmal zuvor eine einschrenkung machen, dass er auch wenn felder leer sind rechnet? oder wie meinst du das?

also sollte diese einschrenkung :

Zitat:

if (stringgrid1.Cells[i,1] <> inttostr(0)) or (stringgrid1.cells[i,1]<>'')

davor schon geschehen?

Ja genau, so meine ich das.

Edit: Stimmt Klaus, und natürlich AND statt OR.

[Bruce86]

gut also habe jetzt die einschränkung davor geschriebn! nun besteht aber imme rnoch das problem das er nur die erste zeile ausrechnet aber nicht die zweite usw also jede zweile für sich! dazu sollte eigentlich die variable z dienen! wie kann ich das nun realisieren dass er jede zeile für sich rechnet und in das dritte stringgrid ausgibt? also das ist das, neben dem des 1HJ wo die noten drinne stehen! wie realisiere ich das jetzt? also ausgeben tut er es ja aber eben in jede zeile nur die lösung für die erste zeile! ist das zu verstehen?

Vielen dank im vorraus

Bruce86

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject); 
var z,x,y,i:integer; 
begin 
x:=0; 
y:=0; 
for z := 1 to Stringgrid1.rowcount do 
  begin 
    for i := 1 to 9 do 
      begin 
        x := x + StrToInt (stringgrid1.Cells[i,z]); 
        if (stringgrid1.Cells[i,z] <> inttostr(0)) and (stringgrid1.cells[i,z]<>'') then 
          y := y+1 
      end; 
    if y<>0 then 
      Stringgrid3.Cells[0,z] := FloatToStr ((x/y)*0.6+(strtofloat(stringgrid1.cells[10,z])*0.4)) 
    else 
      stringgrid3.cells[0,z]:= 'n.b.'; 
    x:=0;
    y:=0;
  end; 
end;

Du solltest nach jeder Zeile x und y wieder auf 0 setzen.

Und vielleicht einmal darauf achten richtig einzurücken.

Grüße
Klaus

[Bruce86]

Hi Klaus01

Danke das mich schon mal soweit gebracht hast dass er nun jede zeile für sich rechnet

ABER

er gibt mir wie im Anhang zu sehen folgende fehlermeldungen aus! und das wenn ich auf berechnen klicke!
Erst wenn ich dann ok drücke neu compaliere erscheint der ausgerechnete wert!!!!


Woran liegt das?

Es muss ja mit der Prozedur des "Berechnens" zusammenhängen habe den rest auch schon alles nachgeschaut und mal rausgenommen um zu schauen ob es wirklich nur daran liegt und muss wohl so sein!!!


P.S.: Einrücken war nie so mein fall einfahc alles untereinander und gut ist :P Werde es mir merken versprochen :???: :tongue:

[Tormentor32]

Zu diesem Zeitpunkt scheinen deine Stringdrids leer zu sein, also kann er auch nicht damit rechnen...

[hoika]

Hallo,

ich würde auch statt StrToInt TryStrToInt nehmen.


Heiko