Re: Как закодировать?

From

Alexander Chislov ()

To

Mike Makhov

Date

2002-10-07T18:16:40Z

Area

RU.ALGORITHMS

From: Alexander Chislov <arch-vile@rnd.runnet.ru>

			  
MM> Вот pешение "влоб":

MM> function BinaryStrToDecimal(BinStr: string):
MM> integer;
MM> var
MM>   i: integer;

MM> function DecimalToBinaryStr( ANum: integer;
MM> StrLength: Byte ): string;
MM> var
MM>   i: integer;
MM>   str: string;


MM>	Mike

MM> P.S. Можно и cоптимизиpовать, но, обычно эти
MM> функции нужны для отобpажения =>
MM> и так сойдет ;-(


прошу прощения, если я написал глупость насчёт того, что функции не 
полностью приведены..
вполне возможно, что это в эхе какие-то глюки...
как бы там ни было, у меня отображается только вот что:
function BinaryStrToDecimal(BinStr: string): integer;
var
i: integer;

function DecimalToBinaryStr( ANum: integer;
StrLength: Byte ): string;
var
i: integer;
str: string;
если не трудно, скинь мне их полностью на емэил плиз



-- 
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
 * Origin: Talk.ru (2:5020/400)