Laat maar zitten, ik heb zelf al wat in elkaar gezet. Het koste me niet meer dan 10 minuten.
Hier de code, geen commentaar aub Ik heb het simpel gehouden met 2 editboxes en een button.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var InStr:String;
OutStr:String;
tmpStr:String;
I,J,nibbles:Integer;
begin
InStr := Edit1.Text;
I := Length(InStr) mod 4;
// align to multiple of 4 bits
case I of
1:InStr:=InStr+'000';
2:InStr:=InStr+'00';
3:InStr:=InStr+'0';
end;
nibbles:=Length(InStr) div 4;
for J := 0 to nibbles-1 do
begin
tmpStr:=Copy(InStr,J*4+1,4);
I:=StrToInt(tmpStr);
case I of
0: OutStr:=OutStr+'0';
1: OutStr:=OutStr+'1';
10: OutStr:=OutStr+'2';
11: OutStr:=OutStr+'3';
100: OutStr:=OutStr+'4';
101: OutStr:=OutStr+'5';
110: OutStr:=OutStr+'6';
111: OutStr:=OutStr+'7';
1000:OutStr:=OutStr+'8';
1001:OutStr:=OutStr+'9';
1010:OutStr:=OutStr+'A';
1011:OutStr:=OutStr+'B';
1100:OutStr:=OutStr+'C';
1101:OutStr:=OutStr+'D';
1110:OutStr:=OutStr+'E';
1111:OutStr:=OutStr+'F';
end;
end;
Edit2.Text := OutStr;
end;
Bookmarks