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;
{ 方法二：使用內存塊進行讀寫 }
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文件做程序有關數據的存儲工作，就需要能讀和寫.INI文件，所以列了如下方法給大家參考：
{方法一：用 Windows API 函數}
① 從.INI文件中獲取字符串
var
strResult:array[0..30] of Char;
begin
GetPrivateProfileString(' desktop ', 'wallpaper',
'c:\Windowsewwall.bmp' , strResult, 100,
'c:\Windows\win.ini' );
edit1.text:=strResult; //顯示取得字符串
end;
② 從.INI文件中獲取整數
var
nResult: integer;
begin
nResult := GetPrivateProfileString(' desktop ', ' tilewallpaper',
0 , 'c:\Windows\win.ini' );
edit1.text:=intostr(nResult); //顯示取得整數
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實現將純文本資料轉入數據庫
在我們日常工作中，常會碰到這樣一個難題：一大堆收集好的純文本格式，比較規整的資料怎樣才能將它們分離，轉到自己已經建好的數據庫中進行管理呢？例如，有一段人事檔案資料document.txt，內容如下：
張強,25,助理工程師,
王宏,30,工程師,
李遠,45,高級工程師,
要將它轉入數據庫中，document.db結構如下：
姓名，年齡，職稱
怎麼辦呢？現在通過使用delphi編程，很好地解決了這個難題。Delphi提供了許多功能強大，豐富的字符處理函數和過程，常用的有：
① 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提供的已有函數和過程基礎上編制自己的三個函數，實現了純文本格式資料轉入數據庫功能。只要Delphi支持的數據庫都可以支持。
Document.txt中每行數據為一個字符串，字符串中每個被分割的數據為一個字段，分割每個字段的字符為分割符，這裡是逗號，也可以是、;#等符號。具體思想是：先將字符串進行調整，然後把串中每個字符同分割符比較，將不是分割符的字符追加到MyStr串中，最後得到一個字段的內容。通過一個循環，就可以將一個字符串分成幾個字段。
Function GetSubStr(var aString:string; SepChar:String): String;
//得到字符串中一個子串
因要改變參數aString的值，所以將它用var定義。
Function GetSubStrNum(aString, SepChar: String): Integer;
//計算一個字符串要被分割成幾個字段。
參數：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;
有了上面三個函數，現在介紹一下具體的應用：
① 首先建立一個窗體Forml，加入一個RichEditl(或Menol)，一個按鈕Buttonl和一個Tablel，設置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;
然後就可以進行編譯、運行了。
