Дайте комментарии

[АлександрАврел]

что значит функция TestOnFloat?

[Utkin]

АлександрАврел, Вы не пробовали задавать вопрос в гугл? Так быстрей

[АлександрАврел]

пробовал, он вообще не находит этого слова

[Utkin]

Приведите фрагмент текста где она используется. Вообще это может быть собственное имя функции, если она определена в каком-нибудь самописном модуле. В идеале здесь же ищите в самом исходнике поищите описание функции.

[АлександрАврел]

с этой функцией я разобрался сам, спасибо.
скажите что значит эта процедура

Col= R
MsgFindOk(R+1)

я думаю, что это переход к следующему элементу(т.к. это интерполяционный поиск)

[АлександрАврел]

какой смысл следующего кода?

#pragma package(smart_init)

Binary Binary::operator >>(unsigned char K)
{
Binary Out = B;
for(char J = 1; J <= K; J++) {
   for(char I = Out.B.Length(); I >= J + 2; I--)
      Out.B[I] = Out.B[I - 1];
   Out.B[J + 1] = '0';
   }
return Out;
}

Binary Binary::operator ^(Binary In)
{
Binary Out = B;
for(char I = 1; I <= Out.B.Length(); I++)
   if (Out.B[I] == In.B[I])
      Out.B[I] = '0';
   else
      Out.B[I] = '1';
return Out;
}

[Петррр]

Перегрузка операторов

[АлександрАврел]

Спасибо, конечно, но если можно по подробнее.

[Петррр]

Нужно знать внутреннюю реализацию, что бы объяснить подробнее

[АлександрАврел]

void Binary::FromDec(int Num)
{
B = "000000000000000000000000000000 00";
if (Num != 0) {
char I = 32;
int In = abs(Num);
while (In > 1) {
B[I] = IntToStr(In % 2)[1];
In = In / 2;
I--;
}
B[I] = '1';
if (Num < 0)
B[1] = '1';
}
}

int Binary::ToDec()
{
int Out = 0;
for(char I = 2; I <= B.Length(); I++)
if (B[I] != '0')
Out += StrToInt(B[I]) * IntPower(2, B.Length() - I);
if (B[1] == '1')
Out = Out * -1;
return Out;
}

AnsiString Binary::ToStr()
{
AnsiString Out = B;
for(char I = 29; I >= 4; I -= 4)
Out.Insert(" ", I);
return Out;
}

void Binary::Mix()
{
char J, Tmp;
srand(time(NULL));
for(char I = 1; I <= B.Length(); I++) {
J = random(B.Length()) + 1;
Tmp = B[I];
B[I] = B[J];
B[J] = Tmp;
}
}