Code:

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Преобразование строки S в набор её чисел,

где каждое число представляет каждый символ строки

 

Получив строку S функция преобразует её в набор чисел, каждое из которых

обозначает код текущего символа, а перед каждым числом располагается символ "#".

Пусть, например, S = 'Hello';

Тогда Result = '#72#101#108#108#111';

 

Зависимости: system

Автор: VID, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра., ICQ:132234868, Махачкала

Copyright: VID

Дата: 25 апреля 2002 г.

***************************************************** }

 

function StrToAscii(S: string): string;

var

I, X: Integer;

RS: string;

CurChar: string;

begin

Result := '';

if Length(S) = 0then

Exit;

X := 1;

for I := 1to Length(S) do

begin

CurChar := '#' + Inttostr(Ord(S[I]));

Insert(CurChar, RS, X);

X := X + Length(CurChar);

end;

Result := RS;

end;

Добавить комментарий

Не использовать не нормативную лексику.

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

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить