摘要:
procedure TForm3.SpeedButton1Click(Sender: TObject);Var I:integer;begin I:=0; repeat I:=I+1; until I=10; ShowMessage(INTTOSTR(i));end;很少用到 repeat until,但有时候,她真的很实用 阅读全文
摘要:
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 ... 阅读全文