Delphi
iteye_20358
这个作者很懒,什么都没留下…
展开
-
[转]Delphi下拉列表框
有表:Id,Name 想在下拉列表框中显示Name,选择后可获得Id值,下拉列表框动态生成,个数不定。 //载入 procedure TForm1.FormCreate(Sender: TObject); var PID: PInteger; i: integer; begin with ComboBox1 do for i := 0 to 20 do begin new(PID); PID^ :...2008-04-09 10:55:00 · 329 阅读 · 0 评论 -
Delphi字符串处理(下面贴出的是完整的可运行代码)
直接将下面的代码拷贝到IDE中是可运行的,我这里只做几点解释 1.在delphi中换行 不是\n 也不是 \r 而是 #13#10 2.取memo的行数 MContent.lines.count 3.判断字符串中某个字符的位置 Pos('m', str) 第一个参数为欲查找的字符 4.截取字串 copy(str, 7, size); 参数定义为 原字符串、开始位置(包含)、结束位...2008-06-22 21:05:00 · 107 阅读 · 0 评论