@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