Die Suche ergab 3 Treffer
- 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
- 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
- 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 ...
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 ...