河之堤

有表：Id,Name想在下拉列表框中显示Name,选择后可获得Id值，下拉列表框动态生成，个数不定。//载入procedure TForm1.FormCreate(Sender: TObject);varPID: PInteger;i: integer;beginwith ComboBox1 dofor i := 0 to 20 dobegin

直接将下面的代码拷贝到IDE中是可运行的，我这里只做几点解释1.在delphi中换行  不是/n  也不是 /r  而是  #13#102.取memo的行数  MContent.lines.count 3.判断字符串中某个字符的位置  Pos(m, str)  第一个参数为欲查找的字符4.截取字串  copy(str, 7, size); 参数定义为 原字符串、开始位置（包含）