How i can assigned values from combobox to dataport
here how i doing and i get error
procedure TFormPortSettings.BtnOkClick(Sender: TObject);
var i:longint;
begin
Sett := TIniFile.Create(cbSerialPort.Text+'.ini');
Sett.WriteString('PORT', 'PORTNAME', cbSerialPort.Text);
Sett.WriteString('PORT', 'BAUDRATE', cbBauderate.Text);
Sett.WriteString('PORT', 'DATABITS', cbdATAbITS.Text);
Sett.WriteString('PORT', 'STOPBITS', cbStopbits.Text);
Sett.WriteString('PORT', 'PARITY', cbParity.Text);
Sett.WriteString('PORT', 'FLOWCONTROL', cbFlowcontrol.Text);
Sett.free;
Formmain.dpSerial.Port := cbSerialPort.Text;
Formmain.dpSerial.BaudRate := StrToIntDef(cbBauderate.Text, StrtoInt(cbBauderate.Text));
Formmain.dpSerial.DataBits := StrToIntDef(cbDataBits.Text, StrtoInt(cbDataBits.Text));
Formmain.dpSerial.StopBits := cbStopBits.Text;
Formmain.dpSerial.Parity := cbParity.text;
Formmain.dpSerial.FlowControl := cbFlowControl.Text;
Formmain.DataPort.Open();
Self.Close;
end;
Compile Project, Target: C:\Users\smcuser\Documents\Typhonapps\TermiData\Terminal.exe: Exit code 1, Errors: 3, Hints: 3
fportsettings.pas(147,48) Error: Incompatible type for arg no. 1: Got "TTranslateString", expected "TSerialStopBits"
DataPortSerial.pas(565,27) Hint: Found declaration: SetStopBits(TSerialStopBits);
fportsettings.pas(148,44) Error: Incompatible type for arg no. 1: Got "TTranslateString", expected "AnsiChar"
DataPortSerial.pas(545,27) Hint: Found declaration: SetParity(AnsiChar);
fportsettings.pas(149,54) Error: Incompatible type for arg no. 1: Got "TTranslateString", expected "TSerialFlowControl"
DataPortSerial.pas(555,27) Hint: Found declaration: SetFlowControl(TSerialFlowControl);
