Ich bleib im Case hängen

[Udo]

@Daniel

Da folgendes funktioniert:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  sCom: string;
  sByte: Char;
  iFor: Integer;
begin
  sCom := #0#1;
  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;
    end;
  end;
end;

Keine Ahnung ob man Alles auf einmal aus dem Buffer lesen muss aber sByte sollte bestimmt ein Char sein.

Gruss
udo