с сом порта бинарном виде

[alenkov]

Доброго времени суток!!!
Кто подскажет как принимать считанную с сом порта информацию в бинарном виде и из каждой найденной строки 111110 удалять только 0, а затем все выводить в Memo1 в hex формате. Если можно то обьясните в виде кода(примера).
Спасибо!

[p51x]

Ты итак принимаешь в бинарном

[alenkov]

Так выводим в hex., а как вывести в bin ?

{ Процедура, выводящая строку St в Memo и в файл }
procedure TForm1.StrToMemoFile(const St: String);
var
I: Integer;
S: String;
begin
S := FormatDateTime('hh:nn:ss', Now) + ' '; // Текущее время
for I := 1 to Length(St) do S := S + ' ' + IntToHex(Ord(St[I]), 2); // Строка -> Hex
Memo1.Lines.Add(S); // Выводим строку в Memo

end;