Case in Funktion soll Message ausgeben

[MrSpock]

Hallo Daniel B,

wo kommt eigentlich "Wert" her?

Du solltest auf jeden Fall sByte vorbesetzen:

Delphi-Quellcode:

function TDataModule1.GetSXBusNumber: String;
var
  sByte: String;
begin
  sbyte := '';
  case Wert of
    0: begin
         ShowMessage('Der Wert war 0');
       end;
    1: begin
         ComPort1.WriteStr(bla);
         ComPort1.ReadStr(sByte, 2);
       end;
    2: begin
         ComPort1.WriteStr(blabla);
         ComPort1.ReadStr(sByte, 2);
       end;
  end; //case
  Result := sByte;
end;