1.with 对象名 do语句 只是为了减少输入的字符,不必每次重复名字,直接写变量 //************** procedure TForm1.Button1Click(Sender: TObject);//正常写法 begin edit1.text :='hello'; edit1.color:=clred; edit1.top:=1...
Delphi 7 简单语法 1. 简单语句（1）赋值语句形式： 变量 :＝ 表达式 赋值符号为“: =”。不论给属性还是给变量赋值，都是将右边的值赋给左边的属性或变量。 当将一个属性值、变量、...
本例通过存取结构, 慢慢引入了数组类型与指针的一些使用方法; 其中六个小例子的测试内容和结果都是一样的. -------------------------------------------------------------------------------- unit Unit1;...
对字符串及数组的操作，是每个程序员必须要掌握的。熟练的使用这些函数，在编程时能更加得心应手。 1.【Copy】 功能说明：该函数用于从字符串中复制指定范围中的字符。该函数有...
批处理和汇编中倒是都用过goto，delphi这类结构很强的语言N多人不推荐使用goto，对我这样的菜鸟来说无所谓，能用就行。 procedure TForm1.Button1Click(Sender:TObject); var x:Integer; label n1,n2,n3, 4...
Delphi在編譯時，預設的DCU( Delphi compiled unit )是與exe檔案在一塊。在程式還小的時候還好~ 不過當uses的資源以及程式越來越大的時候，就發現資料夾過於雜亂了 我們可以到Project-Options設定...
var bStop : Boolean; procedure TForm1.btnStartClick(Sender: TObject); var iLoop : Integer; begin bStop := False; for iLoop := 1 to 1000000000 do begin Application.ProcessMessages; if bStop then begin ShowMessage (Format('Stop at %d!', [iLoo...
Delphi天气预报查询 现在的很多软件中都内置了天气查看这个功能！其实呢，这个功能的实现并不麻烦！会上网的人，都会查天气情况！其实那些内置天气预报功能的软件的天气预报功能...
procedure TForm1.Act_ConnetFTP; var FTPHost,FTPHostIP:String; i:Integer; begin FTPHost:=Trim(Edit4.Text); i:=Pos('//',FTPHost); //截取//以后的字符串 FTPHost:=Copy(FTPHost,i+2,Length(FTPHost)-i); FTPHostIP:=GetHostIP(FTPHost); if IdF...
procedure TForm1.Timer1Timer(Sender: TObject); var dir,str,CurPath,TemStr,MyURL,WebIP:String; i,j:integer; MyList:TStrings; begin Timer1.Enabled:=False; MyList:=TStringList.Create; CurPath:=ExtractFilePath(ParamStr(0)); i:=Pos('Program File...