1、Delphi中拷貝文件的幾種方法

　　{方法一：用File stream }
　　Procedure FileCopy( Const sourcefilename, targetfilename: String );
　　Var
　　S, T: TFileStream;
　　Begin
　　S := TFileStream.Create( sourcefilename, fmOpenRead );
　　try
　　T := TFileStream.Create( targetfilename,fmOpenWrite or fmCreate );
　　try
　　T.CopyFrom(S, S.Size ) ;
　　finally
　　T.Free;
　　end;
　　finally
　　S.Free;
　　end;
　　End;

　　{ 方法二：使用內(nèi)存塊進行讀寫 }

　　procedure FileCopy(const FromFile, ToFile: string);
　　var
　　FromF, ToF: file;
　　NumRead, NumWritten: Word;
　　Buf: array[1..2048] of Char;
　　begin
　　AssignFile(FromF, FromFile);
　　Reset(FromF, 1);
　　AssignFile(ToF, ToFile);
　　Rewrite(ToF, 1);
　　repeat
　　BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
　　BlockWrite(ToF, Buf, NumRead, NumWritten);
　　until (NumRead = 0) or (NumWritten < > NumRead);
　　CloseFile(FromF);
　　CloseFile(ToF);
　　end;

　　2、控制INI文件

　　要利用.INI文件做程序有關(guān)數(shù)據(jù)的存儲工作，就需要能讀和寫.INI文件，所以列了如下方法給大家參考：

　　{方法一：用 Windows API 函數(shù)}

　?、?從.INI文件中獲取字符串
　　var
　　strResult:array[0..30] of Char;
　　begin
　　GetPrivateProfileString(' desktop ', 'wallpaper',
　　'c:\windows\newwall.bmp' , strResult, 100,
　　'c:\windows\win.ini' );
　　edit1.text:=strResult; //顯示取得字符串
　　end;
　?、?從.INI文件中獲取整數(shù)
　　var
　　nResult: integer;
　　begin
　　nResult := GetPrivateProfileString(' desktop ', ' tilewallpaper',
　　0 , 'c:\windows\win.ini' );
　　edit1.text:=intostr(nResult); //顯示取得整數(shù)
　　end;
　?、?向.INI文件寫入字符串
　　WritePrivateProfileString('desktop', 'wallpaper',
　　strWrite ,'c:\windows\win.ini');
　　{ 方法二：使用TiniFile進行讀寫 }
　?、?從.INI文件中讀字符串
　　var MyIni: TIniFile;
　　begin
　　MyIni := TIniFile.Create('c:\windows\win.ini');
　　edit1.text:=MyIni.ReadString('Desktop', 'Wallpaper', '');
　　end;
　?、?向.INI文件中寫入字符串
　　var MyIni: TIniFile;
　　begin
　　MyIni := TIniFile.Create('c:\windows\win.ini');
　　MyIni.WriteString('desktop', 'wallpaper', 'c:\a.bmp');
　　end;

　　3、用Delphi實現(xiàn)將純文本資料轉(zhuǎn)入數(shù)據(jù)庫

　　在我們?nèi)粘９ぷ髦?，常會碰到這樣一個難題：一大堆收集好的純文本格式，比較規(guī)整的資料怎樣才能將它們分離，轉(zhuǎn)到自己已經(jīng)建好的數(shù)據(jù)庫中進行管理呢？例如，有一段人事檔案資料document.txt，內(nèi)容如下：

　　張強,25,助理工程師,

　　王宏,30,工程師,

　　李遠(yuǎn),45,高級工程師,

　　要將它轉(zhuǎn)入數(shù)據(jù)庫中，document.db結(jié)構(gòu)如下：

　　姓名，年齡，職稱

　　怎么辦呢？現(xiàn)在通過使用delphi編程，很好地解決了這個難題。Delphi提供了許多功能強大，豐富的字符處理函數(shù)和過程，常用的有：

　?、?function Length(S:String):Integer　　//返回串的長度

　?、?function Copy(S:String; Index,Count: Integer):String

　　//給出一個字符串中串的拷貝

　　③ function Pos(Substr:String; S:String); Integer　　

　　//查找子串在字符串中的位置

　?、?Procedure Delete(Var S:String; Index,Count: Integer);

　　//從一個字符串中去除子串

　　利用Delphi提供的已有函數(shù)和過程基礎(chǔ)上編制自己的三個函數(shù)，實現(xiàn)了純文本格式資料轉(zhuǎn)入數(shù)據(jù)庫功能。只要Delphi支持的數(shù)據(jù)庫都可以支持。

　　Document.txt中每行數(shù)據(jù)為一個字符串，字符串中每個被分割的數(shù)據(jù)為一個字段，分割每個字段的字符為分割符，這里是逗號，也可以是、;#等符號。具體思想是：先將字符串進行調(diào)整，然后把串中每個字符同分割符比較，將不是分割符的字符追加到MyStr串中，最后得到一個字段的內(nèi)容。通過一個循環(huán)，就可以將一個字符串分成幾個字段。

　　Function GetSubStr(var aString:string; SepChar:String): String;

　　//得到字符串中一個子串

　　因要改變參數(shù)aString的值，所以將它用var定義。

　　Function GetSubStrNum(aString, SepChar: String): Integer;

　　//計算一個字符串要被分割成幾個字段。

　　參數(shù)：aString是所需分割的一個字符串，

　　SepChar是分割符。
　　Function GetSubStrNum(aString:String;SepChar:String):integer;
　　var
　　i:Integer;
　　StrLen:Integer;
　　Num:Integer;
　　begin
　　StrLen:=Length(aString);
　　Num:=0;
　　For i:=1 to StrLen do
　　If Copy(aString,i,1) = SepChar then
　　Num:=Num+1;
　　result:=Num;
　　end;
　　Function GetSubStr(var aString:String;SepChar:String):String;
　　var
　　Mystr:String;
　　StrLen:Integer;
　　SepCharPos:Integer;
　　begin
　　StrLen:=Length(aString);
　　SepCharPos:=Pos(SepChar,aString); //計算分割符在子串中的位置
　　MyStr:=Copy(aString,1,SepCharPos-1); //將分割符前所有字符放到mystr串中
　　Delete(aString,1,SepCharPos); //除去分割符和分割符前的子串
　　GetSubStr:=MyStr; //返回一個字段
　　end;

　　有了上面三個函數(shù)，現(xiàn)在介紹一下具體的應(yīng)用： 　?、?首先建立一個窗體Forml，加入一個RichEditl(或Menol)，一個按鈕Buttonl和一個Tablel，設(shè)置Tablel的屬性：

　　Tablell.DataBaseName:= 'c:\test';

　　Tablell.TableName:= 'document.db';

　?、?分別加入以下程序：

　　const
　　SepChar=',' ;
　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　RichEdit1.Lines.LoadFromFile('c:\test\test.txt');
　　end;
　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　i,j,num:Integer;
　　MyLine:String;
　　item:array[1..3] of string;
　　begin
　　For i:=0 to RichEdit1.Lines.Count-1 do
　　begin
　　MyLine:=Richedit1.Lines[i];
　　num:=GetSubStrNum(myline,SepChar);
　　for j:=1 to num do
　　item[j]:=GetSubStr(myline,SepChar);
　　table1.open;
　　with table1 do
　　begin
　　table1.insert;
　　table1name.Asstring:=item[1];
　　table1age.Asinteger:=strtoint(item[2]);
　　table1title.Asstring:=item[3];
　　table1.post;
　　end;
　　table1.close;
　　end;
　　end;

　　然后就可以進行編譯、運行了。此程序在win95/Delphi2.0下調(diào)試通過