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