Delphi-Quellcode:
function AddTerminalLog(Buf : Pointer ; BufLen : DWord ; Typ : String) : Boolean;
var
I : Integer;
s : String;
begin
for I := 0 to BufLen - 1 do
S := s + ByteToHex(Buf); //ist nätürlich Blödsinn weil immer das Erste Byte wiederholt wird
Memo2.Lines.Add(Typ+': '+s);
end;
Buf ist ein Pointer kann ja alöso schlecht mit
S := s + ByteToHex(Buf[i]);
arbeiten