procedure copyfile(sourcefile, destfile: string);
varsf, df: tfilestream;
begin
sf := tfilestream.create(sourcefile, fmopenread); //建立原始檔流
trydf := tfilestream.create(destfile, fmcreate or fmopenwrite);
try
df.copyfrom(sf, sf.size);
finally
freeandnil(df);
end;
finally
freeandnil(sf);
end;
end;
呼叫這個過程：
copyfile('c:/1.txt', 'd:/2.txt');
delphi的TFileStream 記憶體流
一 檔案 文字檔案是以行為單位進行讀 寫操作的。文字檔案只能單獨為讀或寫而開啟，在乙個開啟的文字檔案上同時進行讀 寫操作是不允許的。二 定義 filestream tfilestream 三 開啟檔案 filestream tfilestream.create afilename string mo...
delphi的TFileStream 記憶體流
一 檔案 文字檔案是以行為單位進行讀 寫操作的。文字檔案只能單獨為讀或寫而開啟，在乙個開啟的文字檔案上同時進行讀 寫操作是不允許的。二 定義 filestream tfilestream 三 開啟檔案 filestream tfilestream.create afilename string mo...
利用kickstart快速安裝Linux
在學習linux的階段可能需要不斷地重新安裝linux,或者你是學校計算教室的管理人員,需要大量安裝相同硬體配置的計算機.由於在安裝過程中需要重複的選擇所要的軟體包以及設定系統環境,這時只要利用redhat linux所提供的kickstart設定程式,就可以快速地安裝linux 你是使用redha...