tosset spørgsmål - Kan man konvetere tekst til binær i delphi

Hvad mener du med den binære værdi af en tekst streng ?

8 tegn som er enten 0 eller 1 for hvert tegn i tekst strengen ?

Hver bogstav har sin egen binærkode (af 0 og 1)... og det er denne binær kode (for hvert bogstav) jeg gerne vil have trukket ud af en sætning...

Så for 'ABC' vil du se '010000010100001001000011' ?

Jep... Hvis det er den binære kode for ABC ;o)

utestet:

function IntToBin(Value : Char): String;

var
  tmp,i : Integer;
  digits : array [0..1] of char;

begin
  tmp := Ord(value);
  digits[0] := '0';
  digits[1] := '1';
  Result := '';
  for i := 1 to 8 do begin
    Result := digits[tmp and 1] + Result;
    tmp := tmp shr 1;
  end;
end;

Det skal så lige ydeligere en løkke omkring for at tage en hel string

arne_v jeg røg lige af sporet der... Jeg ka' ikke helt hitte ud af hvordan og hvorledes jeg skal implantere den...

function CharToBin(Value : Char): String;

var
  tmp,i : Integer;

begin
  tmp := Ord(value);
  Result := '';
  for i := 1 to 8 do begin
    Result := Chr(48 + (tmp and 1)) + Result;
    tmp := tmp shr 1;
  end;
end;

function StringToBin(Value : String) : String;

var
  i : Integer;

begin
  Result := '';
  for i := 1 to length(Value) do begin
    Result := Result + CharToBin(Value[i]);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
  Edit2.Text := StringToBin(Edit1.Text);
end;

OK ?

Jeg siger mange tak for hjælpen :O)