Има ли в Делфи процедура за преобразуване на цяло десетично в двоично (може и представено като низ).

function IntToBin(Value: LongInt;
Digits: Integer): String;
var
i: Integer;
begin
Result:='';
for i:=Digits downto 0 do
if Value and (1 shl i)<>0 then
Result:=Result + '1'
else
Result:=Result + '0';
end;

Щом не върви от първия път, значи има шанс

Ili za po lesno mojesh da izpolzwash gotowata funkciq na Delphi-to
IntToBin

Btw wsi4ko go ima w help-a zasto ne potyrsish tam pyrwo i togawa pitai

Важно е да се знае каде се намира 'Any Key'

Mnogo znaesh - bravo

Благодаря!
Започвам експеримента.

Mersiiiii mersiiiiii

Важно е да се знае каде се намира 'Any Key'