2013年5月28日
Delphi repeat Until 运用
摘要： procedure TForm3.SpeedButton1Click(Sender: TObject);Var I:integer;begin I:=0; repeat I:=I+1; until I=10; ShowMessage(INTTOSTR(i));end;很少用到 repeat until，但有时候，她真的很实用 阅读全文
posted @ 2013-05-28 10:05 似水@流年 阅读(5617) 评论(0) 推荐(0)
Delphi PageControl.TTabSheet与DriveComboBox.items同步
摘要： procedure TForm1.Button1Click(Sender: TObject);Var X,I,Y:integer; cText:String; bNext:Boolean; T : TTabSheet;begin For I:=0 to Self.DriveComboBox1.Items.Count-1 do begin cText:=DrivecomboBox1.Items.Strings[i]; bNext:=True; for Y:=0 to Self.PageControl1.PageCount-1 do begin ... 阅读全文
posted @ 2013-05-28 09:56 似水@流年 阅读(632) 评论(0) 推荐(0)
悠悠记得当天笑 仿佛入迷 又带一点惘 种种喜悦 令人为你鼓掌 眉飞色舞千千样 你是个妙人 是个少年狂