Работа со строками

Code:

var

Str: Char;

begin

Str := 'В';

Form1.Caption := Format('%x', [Ord(Str)]);

end;

Code:

procedure TForm1.Button1Click(Sender: TObject);

const Source: string = '4D 5A';

var S: string;

t: Integer;

begin

with TStringList.Create do

try

Text := StringReplace(Source, #32, #13#10, [rfReplaceAll]);

S := '';

for t := 0to Count - 1do

S := S + Chr(StrToInt('$' + Strings[t]));

ShowMessage(S);

finally

Free;

end;

end;

Code:

var

i : integer

s : string;

begin

s := '$'+'20FF';

i := StrToInt(a);

end;

Code:

CONST HEX : ARRAY['A'..'F'] OF INTEGER = (10,11,12,13,14,15);

VAR

str : String;

Int,

i : integer;

BEGIN

READLN(str);

Int := 0;

FOR i := 1TO Length(str) DO

IF str[i] < 'A'THEN

Int := Int * 16 + ORD(str[i]) - 48

ELSE

Int := Int * 16 + HEX[str[i]];

WRITELN(Int);

READLN;

END.

Code:

const

HKEYNames: array[0..6] ofstring =

('HKEY_CLASSES_ROOT',

'HKEY_CURRENT_USER',

'HKEY_LOCAL_MACHINE',

'HKEY_USERS',

'HKEY_PERFORMANCE_DATA',

'HKEY_CURRENT_CONFIG',

'HKEY_DYN_DATA');

function HKEYToStr(const Key: HKEY): string;

begin

if (key < HKEY_CLASSES_ROOT) or (key > HKEY_CLASSES_ROOT+6) then

Result := ''

else

Result := HKEYNames[key - HKEY_CLASSES_ROOT];

end;