Как правильно вставить переменную?

[ClMlD]

есть такой код

if (StridesN=0) and (NumVertices=0) and (primCount=0) then ...

там где равенство могут быть знаки < = >
там где 0 могут быть любые цифры
0 через переменную, все норм ошибок нет
а вот как добавить переменную туда где знаки? пробовал стринг , вариант, не помогло

[type_Oleg]

То есть, вид операции в качестве переменной? Что-то вроде перегрузки операторов в Си?
Нет, вы требуете от Pascal невозможного.

[ClMlD]

ясно спасибо , придется писать 3 раза один и тот же код только с разными равенствами , только так можно верно?

if i = 0 then
begin
if (StridesN>0) and (NumVertices>0) and (primCount>0) then ...
end;

if i = 1 then
begin
if (StridesN=0) and (NumVertices=0) and (primCount=0) then ...
end;

if i = 2 then
begin
if (StridesN<0) and (NumVertices<0) and (primCount<0) then ...
end;

тип того


Ой хотя нет 9 раз придется писать одно и тоже или даже больше, а как бы придумать по лучше не подскажите ?

<<<
=<<
><<
<=<
==<
>=<
<><
=><
>><
<<=
=<=
><=
<==
===
>==
<>=
=>=
>>=
<<>
=<>
><>
<=>
==>
>=>
>>>

25 комбинаций , афигеть , надеюсь кто нибудь что нибудь подскажет

[Serge_Bliznykov]

Ой хотя нет 9 раз придется писать одно и тоже или даже больше, а как бы придумать по лучше не подскажите ?

ну я, например, вашу логику не улавливаю (приведите здесь ещё примеры).
Если не сможете формализовать зависимость проверяемых условий от i - то так и пишите, хоть 9 раз, хоть больше..

[Аватар]

type TKindComparison = (kcLess,kcEqu,kcMore);

function ArtfulComparison(Variable1,Variable2,Variable3,Value1,Value2,Value3: Integer;
                          Oper1,Oper2,Oper3: TKindComparison): Boolean;
begin
  case Oper1 of
  kcLess: Result:=Variable1<Value1;
  kcEqu:  Result:=Variable1=Value1;
  kcMore: Result:=Variable1>Value1;
  end;
  if not Result then Exit;
  case Oper2 of
  kcLess: Result:=Variable2<Value2;
  kcEqu:  Result:=Variable2=Value2;
  kcMore: Result:=Variable2>Value2;
  end;
  if not Result then Exit;
  case Oper3 of
  kcLess: Result:=Variable3<Value3;
  kcEqu:  Result:=Variable3=Value3;
  kcMore: Result:=Variable3>Value3;
  end;
end;


if ArtfulComparison(StridesN,NumVertices,primCount,0,1,0,kcLess,kcEqu,kcLess) then ...

А если массивом организовать, то можно и в цикле. Комбинаций кстати 27

[ClMlD]

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

type TKindComparison = (kcLess,kcEqu,kcMore);

function ArtfulComparison(Variable1,Variable2,Variable3,Value1,Value2,Value3: Integer;
                          Oper1,Oper2,Oper3: TKindComparison): Boolean;
begin
  case Oper1 of
  kcLess: Result:=Variable1<Value1;
  kcEqu:  Result:=Variable1=Value1;
  kcMore: Result:=Variable1>Value1;
  end;
  if not Result then Exit;
  case Oper2 of
  kcLess: Result:=Variable2<Value2;
  kcEqu:  Result:=Variable2=Value2;
  kcMore: Result:=Variable2>Value2;
  end;
  if not Result then Exit;
  case Oper3 of
  kcLess: Result:=Variable3<Value3;
  kcEqu:  Result:=Variable3=Value3;
  kcMore: Result:=Variable3>Value3;
  end;
end;


if ArtfulComparison(StridesN,NumVertices,primCount,0,1,0,kcLess,kcEqu,kcLess) then ...

А если массивом организовать, то можно и в цикле. Комбинаций кстати 27

А как придумать поудобнее что бы жмякаю NUMPAD1 знак > еще жмякаю = еще жмякаю < и все сначала ?

[Аватар]

А как придумать поудобнее что бы жмякаю NUMPAD1 знак > еще жмякаю = еще жмякаю < и все сначала ?

А это желательно перевести на общедоступный сленг

[ClMlD]

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

А это желательно перевести на общедоступный сленг

if (GetAsyncKeyState(VK_NUMPAD1) and 1)<> 0 then
begin
как их по кругу комбинировать по нажатию?
kcLess
kcEqu
kcMore
end;

[Аватар]

Так бы и сказал. Как вариант так можно

var i: Byte;
...
i:=0;
...
if TKindComparison(i)<High(TKindComparison) then Inc(i) else i:=0;
if ArtfulComparison(StridesN,NumVertices,primCount,0,1,0,TKindComparison(i),kcEqu,kcLess)