Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.02.08;
Скачать: 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 вся ветка

Текущий архив: 2015.02.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.004 c
15-1404246606
Юрий
2014-07-02 00:30
2015.02.08
С днем рождения ! 2 июля 2014 среда


15-1404377324
xayam
2014-07-03 12:48
2015.02.08
Javascript to Java


2-1388846800
вова
2014-01-04 18:46
2015.02.08
Я никак не пойму в чем секрет, не работает DataSet


15-1404312348
Minsk_City
2014-07-02 18:45
2015.02.08
Плагин для Notepad++ (форматтер кода)


2-1389092311
Jimmy
2014-01-07 14:58
2015.02.08
TNT компоненты