对字符串及数组的操作，是每个程序员必须要掌握的。熟练的使用这些函数，在编程时能更加得心应手。 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...
1、“先获取服务器文件的大小，把本地文件流指向该位置，然后用Put方法并把Append设置为true。” － 我估计他压根就没实验过，文件还是会直接整个附加在上次传的后面的。本地FileS...
现在很多应用都需要上传与下载大型文件，通过HTTP方式上传大文件有一定的局限性。幸好FTP作为一个非常老而且非常成熟的协议可以高效稳定地完成大文件的上传下载，并且可以完美地...
很简单的代码，:-D unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class (TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end ; v...