проверка заполнения

[DikeeeY]

вот в общем часть процедуры я выделил текст красным там где не совсем понимаю как должно быть правильно, этим кодом хочу добиться что бы проверил ячейку если True то он заполняет одну пару ячеек иначе другую не могу одолеть найти ошибку помогите справиться

procedure TForm1.btn1Click(Sender: TObject);
Function STRING_IS_EMPTY (S :String) :Boolean;
var a,a1,a2,b,b1,b2,b3,c,c1,c2,c3,d,d1,d2,d3,e,e1,e2,e3,f,f1,f2,f3,g,g1,g2,g3,h,h1,h2,h3,i,i1,i2,i3,j,j1,j2,j3:Real;

begin
a:=StrToFloat(edt1.text);
a2:=StrToFloat(edt11.text);
StrnGrd1.Cells[1,1]:=FloatTostr (a2);
StrnGrd1.Cells[1,3]:=FloatToStr (a);
a1:=a+a2;
StrnGrd1.Cells[1,4]:=FloatToStr (a1);
//ВТОРОЙ

b:=StrToFloat(edt2.text);
b2:=StrToFloat(edt12.text);
b3:=a2+b2;
StrnGrd1.Cells[2,1]:=FloatToStr (b3);
b1:=a+b;

if
Result=True then
begin
StrnGrd1.Cells[2,3]:=FloatToStr (b);
StrnGrd1.Cells[2,4]:=FloatToStr (b1);
end
else
begin
b2:=StrToFloat(edt21.text);
StrnGrd1.Cells[2,1]:=FloatToStr (b2);
StrnGrd1.Cells[2,5]:=FloatToStr (b);
StrnGrd1.Cells[2,6]:=FloatToStr (b1);

[Utkin]

Result=True

А откуда result возьмется? Далее как ячейку можно проверить на True? Ячейка таблицы содержит вообще-то строковые значения, а строки не могут принимать значение True. Вы сами туда заносите числа. Либо объясните нормально что за задача стоит перед Вами, либо продумайте алгоритм по шагам.

[DikeeeY]

Сообщение от Utkin

Result=True

А откуда result возьмется? Далее как ячейку можно проверить на True? Ячейка таблицы содержит вообще-то строковые значения, а строки не могут принимать значение True. Вы сами туда заносите числа. Либо объясните нормально что за задача стоит перед Вами, либо продумайте алгоритм по шагам.

задача проверить ячейку и если она пустая то туда вводить значение если нет то значение вводиться рядом в другую ячейку

[Аватар]

часть процедуры я выделил текст красным

Вообще-то кода процедуры там и в помине нет, а есть кусок кода функции STRING_IS_EMPTY, часть которой и выделена красным. Вот и спрашивается где в Result что-то занесено перед сравнением if Result=True ?

[DikeeeY]

Сообщение от Аватар

Вообще-то кода процедуры там и в помине нет, а есть кусок кода функции STRING_IS_EMPTY, часть которой и выделена красным. Вот и спрашивается где в Result что-то занесено перед сравнением if Result=True ?

Ну объясните пожалуйста где и что нужно занести я не совсем понимаю а то очень срочно горит сделать программу вот только не чего нужного для себя я не могу не где найти

[min@y™]

Увидел вот это

var a,a1,a2,b,b1,b2,b3,c,c1,c2,c3,d,d1,d2,d3,e,e1,e2,e3,f,f1,f2,f3,g,g1,g2,g3,h,h1,h2,h3,i,i1,i2,i3,j,j1,j2,j3:Real;

и дальше не читал.

[DikeeeY]

Сообщение от min@y™

Увидел вот это

var a,a1,a2,b,b1,b2,b3,c,c1,c2,c3,d,d1,d2,d3,e,e1,e2,e3,f,f1,f2,f3,g,g1,g2,g3,h,h1,h2,h3,i,i1,i2,i3,j,j1,j2,j3:Real;

и дальше не читал.

ну так если мне нужно в каждой ячейке по считать я хз как по другому воплотить эту задачу вот код тебе

//òðåòèé
c:=StrToFloat(edt3.text);
c2:=StrToFloat(edt13.text);
c3:=b3+c2;
StrnGrd1.Cells[3,1]:=FloatToStr (c3);
c1:=b+c;
if b1>c2 then
begin
StrnGrd1.Cells[3,5]:=FloatToStr (c);
StrnGrd1.Cells[3,6]:=FloatToStr (c1);
end
else
begin
c2:=StrToFloat(edt22.text);
StrnGrd1.Cells[3,1]:=FloatToStr (c2);
StrnGrd1.Cells[3,3]:=FloatToStr (c);
StrnGrd1.Cells[3,4]:=FloatToStr (c1);
end;
//÷åòâåðòûé
d:=StrToFloat(edt4.text);
d2:=StrToFloat(edt14.text);
d3:=c3+d2;
StrnGrd1.Cells[4,1]:=FloatToStr (d3);
d1:=c+d;
if c1>d2 then
begin                            
StrnGrd1.Cells[4,5]:=FloatToStr (d);
StrnGrd1.Cells[4,6]:=FloatToStr (d1);
end
else
begin
d2:=StrToFloat(edt23.text);
StrnGrd1.Cells[4,1]:=FloatToStr (d2);
StrnGrd1.Cells[4,3]:=FloatToStr (d);
StrnGrd1.Cells[4,4]:=FloatToStr (d1);
end;
//ïÿòûé
e:=StrToFloat(edt5.text);
e2:=StrToFloat(edt15.text);
e3:=d3+e2;
StrnGrd1.Cells[5,1]:=FloatToStr (e3);
e1:=d+e;
if d1>e2 then
begin
StrnGrd1.Cells[5,5]:=FloatToStr (e);
StrnGrd1.Cells[5,6]:=FloatToStr (e1);
end
else
begin
e2:=StrToFloat(edt24.text);
StrnGrd1.Cells[5,1]:=FloatToStr (e2);
StrnGrd1.Cells[5,3]:=FloatToStr (e);
StrnGrd1.Cells[5,4]:=FloatToStr (e1);
end;
//øåñòîé
f:=StrToFloat(edt6.text);
f2:=StrToFloat(edt16.text);
f3:=e3+f2;
StrnGrd1.Cells[6,1]:=FloatToStr (f3);
f1:=e+f;
if e1>f2 then
begin
StrnGrd1.Cells[6,5]:=FloatToStr (f);
StrnGrd1.Cells[6,6]:=FloatToStr (f1);
end
else
begin
f2:=StrToFloat(edt25.text);
StrnGrd1.Cells[6,1]:=FloatToStr (f2);
StrnGrd1.Cells[6,3]:=FloatToStr (f);
StrnGrd1.Cells[6,4]:=FloatToStr (f1);
end;
//ñåäüìîé
g:=StrToFloat(edt7.text);
g2:=StrToFloat(edt17.text);
g3:=f3+g2;
StrnGrd1.Cells[7,1]:=FloatToStr (g3);
g1:=f+g;
if f1>g2 then
begin
StrnGrd1.Cells[7,5]:=FloatToStr (g);
StrnGrd1.Cells[7,6]:=FloatToStr (g1);
end
else
begin
g2:=StrToFloat(edt26.text);
StrnGrd1.Cells[7,1]:=FloatToStr (g2);
StrnGrd1.Cells[7,3]:=FloatToStr (g);
StrnGrd1.Cells[7,4]:=FloatToStr (g1);
end;
//âîñüìîé
h:=StrToFloat(edt8.text);
h2:=StrToFloat(edt18.text);
h3:=g3+h2;
StrnGrd1.Cells[8,1]:=FloatToStr (h3);
h1:=g+h;
if g1>h2 then
begin
StrnGrd1.Cells[8,5]:=FloatToStr (h);
StrnGrd1.Cells[8,6]:=FloatToStr (h1);
end
else
begin
h2:=StrToFloat(edt27.text);
StrnGrd1.Cells[8,1]:=FloatToStr (h2);
StrnGrd1.Cells[8,3]:=FloatToStr (h);
StrnGrd1.Cells[8,4]:=FloatToStr (h1);
end;
//äåâÿòûé
i:=StrToFloat(edt9.text);
i2:=StrToFloat(edt19.text);
i3:=h3+i2;
StrnGrd1.Cells[9,1]:=FloatToStr (i3);
i1:=h+i;
if h1>i2 then
begin
StrnGrd1.Cells[9,5]:=FloatToStr (i);
StrnGrd1.Cells[9,6]:=FloatToStr (i1);
end
else
begin
i2:=StrToFloat(edt28.text);
StrnGrd1.Cells[9,1]:=FloatToStr (i2);
StrnGrd1.Cells[9,3]:=FloatToStr (i);
StrnGrd1.Cells[9,4]:=FloatToStr (i1);
end;
//äåñÿòûé
j:=StrToFloat(edt10.text);
j2:=StrToFloat(edt20.text);
j3:=i3+j2;
StrnGrd1.Cells[10,1]:=FloatToStr (j3);
j1:=i+j;
if i1>j2 then
begin
StrnGrd1.Cells[10,5]:=FloatToStr (j);
StrnGrd1.Cells[10,6]:=FloatToStr (j1);
end
else
begin
j2:=StrToFloat(edt29.text);
StrnGrd1.Cells[10,1]:=FloatToStr (j2);
StrnGrd1.Cells[10,3]:=FloatToStr (j);
StrnGrd1.Cells[10,4]:=FloatToStr (j1);
end;


end;

end.

[Utkin]

ну так если мне нужно в каждой ячейке по считать я хз как по другому воплотить эту задачу вот код тебе

Для этого есть массивы и циклы.
То что Вы хотите выглядит примерно так:

If StrnGrd1.Cells[x,y]='' then Result:=True Else Result:=False;

Это должно быть в функции.

[DikeeeY]

хорошо ту же задачу что описана в теме таким образом реально выполнить?

//ÂÒÎÐÎÉ

b:=StrToFloat(edt2.text);
b2:=StrToFloat(edt12.text);
b3:=a2+b2;
StrnGrd1.Cells[2,1]:=FloatToStr (b3);
b1:=a+b;

if (StrnGrd1.Cells[2,4]='') then
b2:=StrToFloat(edt21.text);
StrnGrd1.Cells[2,1]:=FloatToStr (b2);
StrnGrd1.Cells[2,5]:=FloatToStr (b);
StrnGrd1.Cells[2,6]:=FloatToStr (b1);
 else
begin
 (StrnGrd1.Cells[2,6]='') then
 StrnGrd1.Cells[2,3]:=FloatToStr (b);
StrnGrd1.Cells[2,4]:=FloatToStr (b1);

end;

end;

только не надо тут травить коры или еще что то,я программированием занялся за 4 года обучения вот 4ый раз сел когда коснулось диплома и прошу конкретной помощи а не насмешек мол так не делается так не делается неужеле если ты знаешь тяжело подсказаать исправить синтаксис или еще что в любом случае каким бы ты там умным не был ты тоже когда то начинал и тебе так же подсказывали. я ж не пишу вам раскритикуйте мне мои ошибки я и так знаю что код не идеальный и хватает в нем ошибок просто найти не могу не чего что бы их исправить поэтому и попросил о помощи знал б что то то не писал б вам сюда

[min@y™]

вот код тебе

Спасибо, не надо. Себе оставь.