| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нужна помощь! [D7, XP]
suhar92 © (2014-01-04 15:54:00)Дана таблица стринггрид, в ней требуется сравнить значения 2го и 3го столбца, разность вывести в четвертый
Вова (2014-01-05 15:00:00) [1]А ... К-во книг. Ещё проще:
F1 StrToInt, IntToStr
Вова (2014-01-05 14:36:00) [2]F1 StrToFloat, FloatToStr, FloatToStrF
suhar92 (2014-01-05 13:24:00) [3]у меня сейчас прсто выводит "1" как вывести разность?????????????????
suhar92 (2014-01-05 13:23:00) [4]вот листинг, нужно если ячейки не равны вывести их разность, первый столбец колличество кник, второй продано книг, третий остаток
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;
Inovet (2014-01-04 23:42:00) [5]чему равна разность
«фыва»
и
«пролдж»
?
| |
