Hi,
ich hab das ganze Posting nur überfolgen, aber ich bin der Meinung, dass
Du folgendes versuchen solltest :
Code:
var
sCom, sByte: String;
iFor: Integer;
begin
{ ComPort1.ReadStr(sCom, 2);
sByte := '';
Delay;
sByte := IntToStr(Byte(sCom[2]));
ShowMessage('Daten: ' + sByte); }
ComPort1.ReadStr(sCom,ComPort1.InputCount);
for iFor := 1 to Length(sCom) do
begin
sByte := sCom[iFor];
begin
case sCom[iFor] of
#0 : begin
ShowMessage(IntToStr(Ord(sCom[iFor]))); ***
//ShowMessage(IntToStr(Ord(sCom[2])));
end;
#1 : begin
// ShowMessage(IntToStr(Ord(sByte)));
// ShowMessage(IntToStr(Ord(sByte])));
end;
end; //case
end; //begin
end; //for
end;
Das kann jetzt auch totaler SChwachsinn sein, aber ich weiss ja nicht was Du genau machen willst ?!
Data