Code:

function BCDToNumString(const inStr: string): string;

procedure UnPack(ch: Char; var ch1, ch2: Char);

begin

ch1 := Chr((Ord(ch) and$F) + $30);

ch2 := Chr(((Ord(ch) shr4) and$F) + $30);

Assert((ch1 >= '0') and (ch1 <= '9'));

Assert((ch2 >= '0') and (ch2 <= '9'));

end;

var

i: Integer;

begin

SetLength(Result, Length(inStr) * 2);

for i := 1to Length(inStr) do

UnPack(inStr[i], Result[2 * i - 1], Result[2 * i]);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

S1, S2: string;

begin

S1 := '15151515151515151515';

S2 := NumStringToBCD(S1);

memo1.lines.add('S1: ' + S1);

memo1.lines.add('Length(S2): ' + IntToStr(Length(S2)));

memo1.lines.add('S2 unpacked again: ' + BCDToNumString(S2));

end;

Code:

var

Str: Char;

begin

Str := 'В';

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

end;

Code:

function BinStrToByte(a_sBinStr: string): byte;

var

i: integer;

begin

Result := 0;

for i := 1to length(a_sBinStr) do

Result := (Result shl1) or byte(a_sBinStr[i] = '1');

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:

function BinToInt(Value: string): Integer;

var

i, iValueSize: Integer;

begin

Result := 0;

iValueSize := Length(Value);

for i := iValueSize downto1do

if Value[i] = '1'then Result := Result + (1shl (iValueSize - i));

end;

Code:

{by Andre Fritzsche}

unit BinConvert;

interface

//Wandelt Bytewert (Value) zu Binarwert und trennt mit Splitter Hi- und Lo-Bits

function ToBin(Value: Byte; Splitter: Char): string; overload;

//Wandelt Wordwert (Value) zu Binarwert und trennt mit Splitter Hi- und Lo-Byte

function ToBin(Value: Word; Splitter: Char): string; overload;

//Wandelt Binarwert (String) zu Zahl (Cardinal)

function BinTo(Value: string): Cardinal;

implementation

{------------------------------------------------------------------------------}

function ToBin(Value: Byte; Splitter: Char): string;

var

val, bit, intX: Byte;

begin

val := Value;

for intX := 0to7do

begin//Alle 8 Bits durchlaufen

bit := 48; //48 (='0') zu bit

val := val shr1; //Value um 1 Bit nach rechts verschieben

asm

adc bit,0//CarryFlag zu bit addieren

end;

if intX = 4then Result := Splitter + Result;

Result := Chr(bit) + Result; //zu Result hinzufugen

end;

end;

{------------------------------------------------------------------------------}

function ToBin(Value: Word; Splitter: Char): string;

begin

Result := ToBin(Byte(Hi(Value)), Splitter) + Splitter + ToBin(Byte(Lo(Value)), Splitter);

end;

{------------------------------------------------------------------------------}

function BinTo(Value: string): Cardinal;

var

intX, PosCnt: Byte;

begin

Result := 0;

PosCnt := 0;

for intX := Length(Value) - 1downto0do//zeichen von rechts durchlaufen

case Value[intX + 1] of//prufen, ob 0 oder 1

'0': Inc(PosCnt); //bei 0 nur Pos-Zahler erhohen

'1':

begin//bei 1 Bit an Position einfugen

Result := Result or (1shl PosCnt);

Inc(PosCnt); //und Zahler erhohen

end;

end;

end;

{------------------------------------------------------------------------------}

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:

function ByteToBinStr(a_bByte: byte): string;

var

i: integer;

begin

SetLength(Result, 8);

for i := 8downto1do

begin

Result[i] := chr($30 + (a_bByte and1));

a_bByte := a_bByte shr1;

end;

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;

Code:

function HexToBin(Hexadecimal: string): string;

const

BCD: array [0..15] ofstring =

('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',

'1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');

var

i: integer;

begin

for i := Length(Hexadecimal) downto1do

Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(HexToBin('FFA1'));

// Returns 1111111110100001

end;

Code:

function IntToBin1(Value: Longint; Digits: Integer): string;

var

i: Integer;

begin

Result := '';

for i := Digits downto0do

if Value and (1shl i) <> 0then

Result := Result + '1'

else

Result := Result + '0';

end;

Code:

function IntToBin2(d: Longint): string;

var

x, p: Integer;

bin: string;

begin

bin := '';

for x := 1to8 * SizeOf(d) do

begin

if Odd(d) then bin := '1' + bin

else

bin := '0' + bin;

d := d shr1;

end;

Delete(bin, 1, 8 * ((Pos('1', bin) - 1) div8));

Result := bin;

end;