Code: Alles auswählen
00000111|
00000111|
00001001|
00000111|
00000001|
00000000|
00000101|
00000001|
00000000|
00000111|
00000011|
00000010|
00000111|
00000001|
00000001|
00000000|
00000001|
00000001|
00001001|
00000101|
00000001|
00000101|
00001001|
00000001|
00000001|
00000000|
00000001|
00000000|
00000001|
00000001|
00000001|
00000100|
Wenn jemand von euch mal arg lange weile haben sollte, kann er ja mal versuchen meinen Namen da raus zu bekommen.
da ich Fair bin und es selbst auch erst bei 4ten mal hinbekommen habe, stell ich euch die Routinen rein, wie ich es gemacht habe
libMyCode
Code: Alles auswählen
function DeztoBin(aint:integer;bits:integer = 32):pChar; cdecl;
var B:integer;
puffer:integer;
a: String;
begin
result := '';
puffer := aint;
for B:= bits downto 0 do
begin
if puffer mod 2 = 0 then
begin
Puffer:= puffer div 2;
a:= '0'+a;
end
else
begin
puffer:= Puffer div 2;
a:='1'+a;
end;
end;
result:= pChar(A);
end;
Function StrtoBin(Value: PChar):PChar; cdecl;
var Count: Integer;
Buchstabe: Integer;
Temp: String;
begin
Temp:= '';
Count:= Length(Value);
for Buchstabe:= 0 to Count do
begin
Temp:= Temp+IntToStr(ord(Value[Buchstabe]));
end;
result:= PChar(Temp);
end;
zusätzlich gebe ich euch logischer weise auch die Procedure, welche die eingabe in dieses Schöne wirwar umandelt.
Code: Alles auswählen
procedure TForm4.Button1Click(Sender: TObject);
var A: Integer;
b: pChar;
c: Integer;
d: String;
begin
Label1.Caption:= '';
D:= '';
B:= StrtoBin(pChar(Edit1.Text));
Caption:= IntToStr(length(B));
for C:= 0 to length(B)-2 do
Memo1.Lines.Add(DezTobin(StrToInt(b[c]), 7)+'|');
Label1.Caption:= D;
end;
Verbesserungsmöglichkeit zum Programm-style sowie sonstige Kritik wird gerne gesehen.
PS: kleiner tip! auch ein sonderzeichen (6 x 8 Bit ist enthalten, Alle hilfsmittel erlaubt. also viel glück