Форум: "Начинающим";
Текущий архив: 2015.02.08;
Скачать: [xml.tar.bz2];
Вниз
Нужна помощь! Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2015.02.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.001 c
