Нужна помощь!

← →
suhar92 (2014-01-04 15:54) [0]

Дана таблица стринггрид, в ней требуется сравнить значения 2го и 3го столбца, разность вывести в четвертый

← →
Inovet © (2014-01-04 23:42) [1]

чему равна разность
«фыва»
и
«пролдж»
?

← →
suhar92 (2014-01-05 13:23) [2]

вот листинг, нужно если ячейки не равны вывести их разность, первый столбец колличество кник, второй продано книг, третий остаток

var
d1, d2: string;
j:integer;
begin

for j:=1 to stringgrid1.rowcount-1 do
begin
d1 := stringGrid1.Cells[1,j];
d2 := stringGrid1.Cells[2,j];
if d1 = d2 then
stringGrid1.Cells[3,j]:=("0")
else
stringGrid1.Cells[3,j]:=("1") ;
begin d1 := stringGrid1.Cells[1,j];
d2 := stringGrid1.Cells[2,j];
if d1 = d2 then
stringGrid1.Cells[4,j]:=("Выполнено")
else
stringGrid1.Cells[4,j]:=("Не выполнено")
end;

← →
suhar92 (2014-01-05 13:24) [3]

у меня сейчас прсто выводит "1" как вывести разность?????????????????

← →
Вова (2014-01-05 14:36) [4]

F1 StrToFloat, FloatToStr, FloatToStrF

← →
Вова (2014-01-05 15:00) [5]

А ... К-во книг. Ещё проще:
F1 StrToInt, IntToStr

Нужна помощь! Найти похожие ветки