Цикл на вычисление в StringGrid

[armrock]

пишет что они должны бить boolean, а они ведь мне нужны в real что бы считать!!!!

[Базиля]

Вообще если честно не понял, в чем проблема?
upd Совсем забыл что у тебя уже есть переменная b вещ. типа
Задай любое имя булевской переменной.
P.S. Код подправил.

[armrock]

а нет =) это я туплю....не спал уже почти 3 суток=) учу delphi=)

Кароче всё сделал, запустил, нажимаю - никакой реакции - никаких вычислений! Данные внесены!

[Базиля]

Подправил код как я сказал?
См. пред страницу.

[armrock]

Да сделал точно так:

Но в этой строке показывает ошибку

if (StringGrid1.Cells [4,i]='') or (StringGrid1.Cells [5,i]='')  or  (StringGrid1.Cells [6,i])='') then

НЕсовместимые типы String и Boolean

[Базиля]

Как ты объявил переменную proverka? Строковым типом чтоли?

[armrock]

сделал так

 proverka:=false;
    if (StringGrid1.Cells [4,i]='') or (StringGrid1.Cells [5,i]='')  then
    proverka:=true;
    if proverka then
    StringGrid1.Cells [stringgrid1.Col+7,i]:='Äëÿ âû÷èñëåíèÿ, çàïîëíèòå âñå ÿ÷åéêè!'
    else

Запускаеться только никакой реакции на кнопку!!!!





А как запретить в StringGrid перемещать курсор?

[Базиля]

Покажи весь код процедуры, а то я вообще не понимаю что происходит, кажется ты что-то там нахимичил

А как запретить в StringGrid перемещать курсор?

Что ты понимаешь под "перемещать курсор"?

[armrock]

ВОТЬ

procedure TForm4.BitBtn10Click(Sender: TObject);
var
proverka: boolean;
i,j: integer;
a,b,c,f,n: real;
begin

proverka:=false;
    if (StringGrid1.Cells [4,i]='') or (StringGrid1.Cells [5,i]='')  then
    proverka:=true;
    if proverka then
    StringGrid1.Cells [stringgrid1.Col+7,i]:='Äëÿ âû÷èñëåíèÿ, çàïîëíèòå âñå '
    else
for i:=1 to stringgrid1.rowcount-1 do
begin
a:=StrToFloat (StringGrid1.Cells [4,i]);
b:=StrToFloat (StringGrid1.Cells [5,i]);
f:=StrToFloat (StringGrid1.Cells [6,i]);
if a<=144 then begin
c:=a*b-a*b/100*f;
end
else
c:=(144*b+(a-144)*(b*2))-((144*b+(a-144)*(b*2))/100*f);
StringGrid1.Cells [stringgrid1.Col+7,i]:=FloatToStr (c);
end;
end;

НУ в stringgrid есть курсор, который ставиться мышкой или управляеться стрелками. Как его полностью убрать или запретить управление, потому что у меня вычисляет данные почему то только тогда когда курсор находиться на ячейках нулевого столбца. Или как поправить это?

[Базиля]

Ну вот, так и знал что нахимичил

procedure TForm4.BitBtn10Click(Sender: TObject);
var
proverka: boolean;
i,j: integer;
a,b,c,f,n: real;
begin
for i:=1 to stringgrid1.rowcount-1 do
begin
proverka:=false;
    if (StringGrid1.Cells [4,i]='') or (StringGrid1.Cells [5,i]='')  or  (StringGrid1.Cells [6,i])='') then
    proverka:=true;
    if proverka then
    StringGrid1.Cells [stringgrid1.Col+7,i]:='Для вычисления, заполните все ячейки!'
    else
begin
a:=StrToFloat (StringGrid1.Cells [4,i]);
b:=StrToFloat (StringGrid1.Cells [5,i]);
f:=StrToFloat (StringGrid1.Cells [6,i]);
if a<=144 then
c:=a*b-a*b/100*f;
else
c:=(144*b+(a-144)*(b*2))-((144*b+(a-144)*(b*2))/100*f);
StringGrid1.Cells [stringgrid1.Col+7,i]:=FloatToStr (c);
end;
end;
end;

Исправляй
Будет работать.

НУ в stringgrid есть курсор, который ставиться мышкой или управляеться стрелками. Как его полностью убрать или запретить управление, потому что у меня вычисляет данные почему то только тогда когда курсор находиться на ячейках нулевого столбца. Или как поправить это?

У тебя от этого ничего не зависит. Не важно вообще где у тебя расположен курсор.