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

[Bruce86]

hi auf dem screenshot seht ihr dass dieses problem auch besteht wenn in den strings etwas steht zumal es ja bereits mit der if anweisung herausgenommen wurden dass wenn dort die zahl o oder '' steht er dann trotzdem rechnen soll

[Bruce86]

TryStrToInt ist doch für boolean was will nützt an dieser stelle mit ner wahr oder falsch aussage?

[shmia]

Ich muss hier doch mal einen harten Kommentar geben:
"der Sourcecode ist Schrott, denn es wird völlig planlos auf irgendwelche Zellen zugegriffen"

Du hast ein Stringgrid und möchtest aus verschiedenen Zellen eine Zahl entnehmen
um damit zu rechnen.
Die Zellen können aber auch leer sein oder die Zellenposition ist ungültig.
Also braucht man eine saubere Funktion, die alle Fehler abfängt:

Delphi-Quellcode:

function GetFloatFromStringGrid(sg: TStringGrid; x,y:integer):extended;
begin
   Assert(Assigned(sg));
   // Bereichsgrenzen prüfen
   if (x<sg.FixedCols) or (y<sg.FixedRows) or (x >= sg.ColCount) or (y>=sg.RowCount) then
      raise Exception.CreateFmt('GetFloatFromStringGrid(%s,%d, %d) - Position ungültig', [sg.name, x, y]);

   try
      // Umwandlung
      result := StrToFloat(sg.cells[x,y]);
   except
      on E:Exception do
      begin
         E.Message := Format('Fehler in %s.Cells[%d, %d]'#13#10 ,[sg.name, x,y])+E.Message;
         Raise;
      end;
   end;
end;

Mit der obigen Funktion bekommt die Sache Hand und Fuss.
Du bekommst sofort eine saubere Fehlermeldung, die zeigt, wo's klemmt.

[Klaus01]

Vielleicht die Schleife nur bis

Delphi-Quellcode:

for z := 1 to Stringgrid1.rowcount - 1 do 
  begin

laufen lassen.

String Grids fangen bei Zeile 0 an, wobei bei Dir Zeile 0 die Überschrift ist.

[edit] das muß ich shmia recht geben

Grüße
Klaus

[Hobby-Programmierer]

Hallo ...,

Zitat:

Zitat von Bruce86

TryStrToInt ist doch für boolean was will nützt an dieser stelle mit ner wahr oder falsch aussage?

Schmarrn - nicht nur die Hälfte der Hilfe lesen :!:

Zitat:

Konvertiert einen String, der ein Integer repräsentiert (in dezimaler oder hexadezimaler Form), in eine Zahl mit einem booleschen Erfolgscode.
...
TryStrToInt konvertiert den String S, der ein Integer repräsentiert (in dezimaler oder hexadezimaler Form), in eine Zahl und weist diese Value zu. Wenn S keine gültige Zahl enthält, gibt TryStrToInt false zurück; ansonsten true.

LG Mario

[Bruce86]

bei trystrtoint sag er mir aber "nicht genügend wirkliche parameter"!

Und sorry nur mal so ne frage wenn der code so schrott ist warum geht es dann für die erste zeile und nur nicht wenn ich mehrere fächer habe also wie du selber sagst shmia

Zitat:

Du hast ein Stringgrid und möchtest aus verschiedenen Zellen eine Zahl entnehmen
um damit zu rechnen.

genau da lag das problem und das hatte sich ja auch mit dem code von klaus01 gelegt nur eben dass er diese fehlermeldung ausgab!!!!

ich meine was kann ich dafür wenn wir dieses projekt bekommen! dachte nur in foren will man helfen! dafür sind sie ja eigentlich gedacht!!!!!!! um denen zu helfen die nicht so viel wissen haben! und sorry das meine stärken nicht im programmieren liegen das wir mit delphi arbeiten sollen und nicht mit vbs und dass wir nur codes neben dürfen die unser lehrer kennt und somit sind schon mal datenbanken xml etc pp verboten super den ganzen scheiß mit zeigern zu machen wisst irh wie toll das ist?! ich glaube schonihr wisst das und ich möchte doch nur um eure hilfe bitten! und ihr habt mir ja auch schon geholfen das will ich ja dmit gar nciht bestreiten nur was ich dann nicht verstehe ist das ihr dann irgendwie so kommt es grad rüber die hilfe für euch einschränkt! das ist etwas was ich nicht verstehe!!! udn ich weiß nicht ob ihr im informatik unterricht unterfordert gewesen seit udn ega was ihr gemacht habt 15 pkt hat ich meine ich habe auch 13 in info und bin damit zu frieden und ich kann eben auch nicht alles!!!

[Hobby-Programmierer]

Hallo ...,
[OT]
meckern hilft aber auch nix! Ich hatte nie Informatik, über Sinn oder Unsinn von Hausaufgaben wurde hier schon oft debattiert, deswegen kann ich mir kein Urteil erlauben.
[/OT]

Zitat:

Unit
SysUtils

Syntax
function TryStrToInt(const S: string; out Value: Integer): Boolean;

TryStrToInt konvertiert den String S, der ein Integer repräsentiert (in dezimaler oder hexadezimaler Form), in eine Zahl und weist diese Value zu. Wenn S keine gültige Zahl enthält, gibt TryStrToInt false zurück; ansonsten true.

Wenn Du die Parameter einer Prozedur/Function nicht kennst einfach F1 oder den Prozedur/Funktionsnamen( eingeben und die IDE zeigt die geforderten Parameter in einem Hint-Fenster an!

LG Mario

[Bruce86]

ja ist doch auch nicht böse gemeint von mir! aber ich denke jeder kann sich vorstellen das wenn solche dinge die dann auch noch hilfreich sind damit meine ich jetzt wie datenbanken etc wenn das nicht erlaubt ist weil de rlehrer das net kann dann nervt das! ich will ja auch gar nicht meckern es ist einfach nur so dass ich dann solche aussagen nicht verstehen kann!!!

Ich meine ihr habt mir schon so oft geholfen und das find eich auch echt super aber ich kann doch nichts dafür das meine prozeduren manchmal nicht vollständig sind und fehler schleichen sich sicherlich auch bei den besten programmieren ein! sehen wir uns nur microsoft an oder???? :wink: :P