StringGrid czemu ten kod nie działa?

0

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

0

następny wspaniały.....

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

0

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

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

Nie denerwuj się Misiekd

nekbet - a może tak:

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

Zakładam oczywiście że sumowane liczby są typu Integer

0

Z tego co czytam, to MisiekD napisał autorowi co należy zrobić aby działało: "MYŚLEĆ".

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0