Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
15. Jan 2009
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
14. Jan 2009
versuche mit oberer Funktion Die gelesenen Daten vom Comport in einem Memo anzuzeigen allerdings scheitere ich bei der Umsetzung
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
...