Delphi-Quellcode:
TBaudrate = (br1200, br2400, br4800, br9600, br19200, br38400, br57600);
TVerbParam = record
Baudrate: TBaudrate;
Das steht in Unit1 und das:
Delphi-Quellcode:
case (theVerbParam.Baudrate) of
br1200: comPort.Baud := 1200;
br2400: comPort.Baud := 2400;
br4800: comPort.Baud := 4800;
br9600: comPort.Baud := 9600;
br19200: comPort.Baud := 19200;
br38400: comPort.Baud := 38400;
br57600: comPort.Baud := 57600;
end;
in Unit2. Unit1 habe ich in Unit2 eingebunden