StringGrid czemu ten kod nie działa?

Rejestracja:ponad 22 lata
Ostatnio:ponad 14 lat

Witam
mam StringGrida NIE MA flex grid a z zpierwszego wiesza zrobiony jest nagłówek
dlaczego to nie działa ??
var lp:Integer;
var I : Integer;
var Suma:Integer;

begin
lp:=StringGrid1.RowCount;
StringGrid1.RowCount:=0;
StringGrid1.RowCount:=lp+1;
for I := 1 to lp do

Suma := Suma + StrToInt(StringGrid1.Cells[4,I]);

Edit8.Text:=IntToStr(Suma);

z góry dziękuje

Misiekd

2007-05-09 20:19

Misiekd2007-05-09 20:19

Rejestracja:ponad 21 lat
Ostatnio:ponad 12 lat
Postów:7923

następny wspaniały.....

LUDZIE MYŚLCIE - TO NIE BOLI!!!!!!!!!!!!!!!!!!!!!!

nekbet

2007-05-09 20:28

nekbet2007-05-09 20:28

Rejestracja:ponad 22 lata
Ostatnio:ponad 14 lat

to może podpowiesz jak zsumować kolumne w StringGrid??

Mealfis

2007-05-09 20:40

Mealfis2007-05-09 20:40

Rejestracja:prawie 19 lat
Ostatnio:prawie 18 lat

Kopiuj

begin
lp:=StringGrid1.RowCount;
for I := 1 to lp-1 do
Suma := Suma + StrToInt(StringGrid1.Cells[4,I]);
Edit8.Text:=IntToStr(Suma);
end;

pelsta

2007-05-09 20:43

pelsta2007-05-09 20:43

Rejestracja:prawie 19 lat
Ostatnio:12 dni
Postów:819

Nie denerwuj się Misiekd

nekbet - a może tak:

Kopiuj

var I,Suma : Integer;
...
  Suma := 0;
  for I := 1 to StringGrid1.RowCount-1 do Suma := Suma + StrToInt(StringGrid1.Cells[4,I]);
  Edit8.Text:=IntToStr(Suma);
...