Eine Frage (Tabelle)

Vorstellungen von Programmen, welche mit Lazarus erstellt worden.

Eine Frage (Tabelle)

Beitragvon Scharpi » 20. Jan 2015, 13:58 Eine Frage (Tabelle)

Code: Alles auswählen
procedure TForm1.Button2Click(Sender: TObject);
var a,i,n,m,c : integer;
begin
   m:= 0;
   c:= 0;
   for a := 1 to 9 do
       begin
       for n:= 1 to 4 do
           begin
               if stringgrid1.cells[2*a,n]= 'x' then
                 begin
                  m:= m+strtoint(stringgrid1.cells[2*a-1,n]);
                  c:= c+1;
                 end;
           end;
 
       end;
      edit3.text:= inttostr(m);
      edit4.text:= inttostr(c);
end;     



dieser Quelltext sollte eigentlich bestimmte markierte Teile einer Tabelle zusammen rechnen nur funktioniert dies leider nicht, könnte mir bitte jemand helfen?

danke
Zuletzt geändert von Lori am 20. Jan 2015, 18:55, insgesamt 1-mal geändert.
Grund: Highlighter
Scharpi
 
Beiträge: 3
Registriert: 20. Jan 2015, 13:52

Beitragvon baumina » 20. Jan 2015, 14:05 Re: Eine Frage (Tabelle)

Ohne zu wissen was wo in der Stringgrid drin steht leider nicht. Evtl. hilft der Hinweis, dass die Zeilen und Spalten einer Stringgrid bei 0 und nicht bei 1 beginnen.
.
baumina
 
Beiträge: 152
Registriert: 3. Feb 2014, 14:07
OS, Lazarus, FPC: Winux (L 0.9.xy FPC 2.2.z) | 
CPU-Target: xxBit
Nach oben

Beitragvon Scharpi » 20. Jan 2015, 14:14 Re: Eine Frage (Tabelle)

es beginnt bei mir in der ersten Spalte da ganz am Anfang nur die Bezeichnung steht was das ist
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Scharpi
 
Beiträge: 3
Registriert: 20. Jan 2015, 13:52

Beitragvon baumina » 20. Jan 2015, 14:29 Re: Eine Frage (Tabelle)

Sieht alles richtig aus, vielleicht stehen in den Spalten mit dem x noch Leerzeichen drin, wirst wohl mal debuggen müssen.
.
baumina
 
Beiträge: 152
Registriert: 3. Feb 2014, 14:07
OS, Lazarus, FPC: Winux (L 0.9.xy FPC 2.2.z) | 
CPU-Target: xxBit
Nach oben

Beitragvon Scharpi » 20. Jan 2015, 14:30 Re: Eine Frage (Tabelle)

ich werde mal schauen und danke für die schnelle Hilfe
Scharpi
 
Beiträge: 3
Registriert: 20. Jan 2015, 13:52

• Themenende •

Zurück zu Programme



Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

porpoises-institution
accuracy-worried