String → Ascii
Материал из DRKB
String --> Ascii[править | править код]
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Преобразование строки S в набор её чисел,
где каждое число представляет каждый символ строки
Получив строку S функция преобразует её в набор чисел, каждое из которых
обозначает код текущего символа, а перед каждым числом располагается символ "#".
Пусть, например, S = 'Hello';
Тогда Result = '#72#101#108#108#111';
Зависимости: system
Copyright: VID
Дата: 25 апреля 2002 г.
***************************************************** }
function StrToAscii(S: string): string;
var
I, X: Integer;
RS: string;
CurChar: string;
begin
Result := '';
if Length(S) = 0 then
Exit;
X := 1;
for I := 1 to Length(S) do
begin
CurChar := '#' + Inttostr(Ord(S[I]));
Insert(CurChar, RS, X);
X := X + Length(CurChar);
end;
Result := RS;
end;
Author: VID
Source: http://delphibase.endimus.com
ID: 00917