delphi初级问题

Question

procedure Tfrm_comset.btnsetClick(Sender: TObject);
begin
ver:=copy(cbic.Text ,4,1);
mywriteini(inifile, 'comset', 'com',ver);
FigCommName:=cbfig.text;
mywriteini(inifile, 'comset', 'FigCommName',FigCommName);
figcommbaud:=strtoint(cbfigbaud.Text );
mywriteini(inifile, 'comset', 'FigCommbaud',trim(inttostr(figcommbaud)));
close;
end;我不是学delphi的，请高手将每一行都做个解释，谢谢啦

Answer 1

procedure Tfrm_comset.btnsetClick(Sender: TObject); 
begin 
ver:=copy(cbic.Text ,4,1);  //copy函数，从第4个字符位置开始截取1个字符 
mywriteini(inifile, 'comset', 'com',ver); //这个应该是你自己的一个函数，是写ini文件
FigCommName:=cbfig.text;     //将cbfig.text赋给figcommname这个是一个变量
mywriteini(inifile, 'comset', 'FigCommName',FigCommName); 
figcommbaud:=strtoint(cbfigbaud.Text );   strtoint是将字符转化成整数赋给figcommbaud变量
mywriteini(inifile, 'comset', 'FigCommbaud',trim(inttostr(figcommbaud))); 
close; 
end;