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
następny wspaniały.....
LUDZIE MYŚLCIE - TO NIE BOLI!!!!!!!!!!!!!!!!!!!!!!
to może podpowiesz jak zsumować kolumne w StringGrid??
begin
lp:=StringGrid1.RowCount;
for I := 1 to lp-1 do
Suma := Suma + StrToInt(StringGrid1.Cells[4,I]);
Edit8.Text:=IntToStr(Suma);
end;
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
Z tego co czytam, to MisiekD napisał autorowi co należy zrobić aby działało: "MYŚLEĆ".