Die Suche ergab 3 Treffer

von Scharpi
Di 20. Jan 2015, 14:30
Forum: Programme
Thema: Eine Frage (Tabelle)
Antworten: 4
Zugriffe: 4840

Re: Eine Frage (Tabelle)

ich werde mal schauen und danke für die schnelle Hilfe
von Scharpi
Di 20. Jan 2015, 14:14
Forum: Programme
Thema: Eine Frage (Tabelle)
Antworten: 4
Zugriffe: 4840

Re: Eine Frage (Tabelle)

es beginnt bei mir in der ersten Spalte da ganz am Anfang nur die Bezeichnung steht was das ist
von Scharpi
Di 20. Jan 2015, 13:58
Forum: Programme
Thema: Eine Frage (Tabelle)
Antworten: 4
Zugriffe: 4840

Eine Frage (Tabelle)

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 ...