Ich bleib im Case hängen

[DataCool]

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