Скачать: CL | DM;

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

← →
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.002 c