Serielle Schnittstelle - Bitfolge übertragen

[Maja Jessica]

Hi,

wenn du z.B. in einem TEdit die Zeichenfolge als String, wie "10101010", eingeben und senden möchtest, könnte dieses helfen:

Delphi-Quellcode:

function IntOfBin(Bin: string): Cardinal;
var
  i: Integer;
begin
  Result := 0;
  Bin := Copy(Bin, 1, 32);
  for i := Length(Bin) downto 1 do
    if Bin[i] = '1' then
      Inc(Result, 1 shl (Length(Bin) - i));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(IntOfbin(edit1.Text))+ ' ist das Zeichen '+ chr(IntOfbin(edit1.Text)));
// ApdComPort1.OutPut := chr(IntOfBin(Edit1.Text);
end;

Die hübsche Function IntOfBin ist nicht von mir, habe ich hier im Forum gefunden.

Gruß, MJ