|
#1
|
|||
|
|||
stringgrid
что эта за ошибка " Incompatible types: 'String' and 'TLabel'"
Код:
var x,o,z,n:integer; begin x:=StringgridObRashod.rowCount; o:=0; repeat begin LabelItogRashod.caption:=labelItogRashod+stringgridObRashod.cells[1,StringGridObRashod.RowCount]; end; until x>=StringGridObRashod.rowCount; ругаеться LabelItogRashod.caption:=round(labelItogRashod+str inggridObRashod.cells[1,StringGridObRashod.RowCount]); Последний раз редактировалось Admin, 11.05.2011 в 15:11. |
#2
|
|||
|
|||
Код:
LabelItogRashod.caption:= labelItogRashod.Caption + stringgridObRashod.cells[1,StringGridObRashod.RowCount]; Последний раз редактировалось flexterful, 11.05.2011 в 13:32. |
#3
|
|||
|
|||
Цитата:
[Îøèáêà] UnitRashod.pas(56): Incompatible types |
#4
|
||||
|
||||
если я правильно понял у тебя так:
Код:
LabelItogRashod.caption:=round(labelItogRashod.caption+stringgridObRashod.cells[1,StringGridObRashod.RowCount]); Код:
LabelItogRashod.caption:=round(strtofloat(labelItogRashod.caption+stringgridObRashod.cells[1,StringGridObRashod.RowCount])); Последний раз редактировалось Admin, Сегодня в 10:32. |
#5
|
|||
|
|||
Цитата:
Код:
[Ошибка] UnitRashod.pas(58): Incompatible types: 'String' and 'Int64' |
#6
|
||||
|
||||
ах да я напортачил
Код:
LabelItogRashod.caption:=inttostr(round(strtofloat(labelItogRashod.caption + stringgridObRashod.cells[1,StringGridObRashod.RowCount]))); сперва складываем строки, затем переводим в число, округляем, и обратно в строку что бы сосчитать все значения надо цикл мутить Код:
for i:=1 to StringGridObRashod.RowCount do showmessage(stringgridObRashod.cells[1,i]); Последний раз редактировалось Admin, Сегодня в 10:32. |
#7
|
|||
|
|||
Цитата:
|
#8
|
|||
|
|||
мож с помощью массивов попробовать?
var i:array [1..stringgridObRashod.rowCount] of integer; begin labelItogRashod.caption:=stringgridObRashod.cells[1..i] end; ток что то ругаеться [Îøèáêà] UnitRashod.pas(51): Constant expression expected [Îøèáêà] UnitRashod.pas(53): Not enough actual parameters |
#9
|
||||
|
||||
Ответ
Цитата:
Цитата:
Код:
Summ := 0; for i := 0 to StringGrid.RowCount - 1 do Summ := Summ + StrToIntDef(StringGrid.Cells[1, i], 0); //где StringGrid.Cells[столбец, строка] Label1.Caption := IntToStr(Summ); Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. Последний раз редактировалось Kailon, 12.05.2011 в 00:42. |