開兩個檔案宣告為  A, B : file
我要把 A 去掉頭兩行, 拷到 B 去, 怎麼做會是最快的方式呢?

filestream

以基本運作來看
你只是要去掉前兩行，這與 Copy 並無相衝突

進一步說，也沒關係，Copy 就是讀出 A 寫入 B
那不要讀前兩行，由第三行開始複製，不就是 「去掉頭兩行, 拷到 B 去」？

實際作法，看你高興
RootKit 建議使用的方式不錯，如果你覺得不安穩，也可以用 原始的做法 fileopen，或是嫌程式碼太短，可以用 MemoryMapping
需要快速複製，直接使用 ASM 實作，都可以

===================引 用 Arnor 文 章===================
開兩個檔案宣告為A, B: file
我要把 A 去掉頭兩行, 拷到 B 去, 怎麼做會是最快的方式呢?

幾種做法供你參考
因為沒有實際檔案測試
請依需要自行修改

[code delphi]
//文字檔
procedure TfrmMain.Button1Click(Sender: TObject);
var
L: TStringList;
begin
if FileExists('SOURCE') then
begin
L := TStringList.Create;
try
L.LoadFromFile('SOURCE');
L.Delete(0);
L.Delete(0);
L.SaveToFile('DESTINATION');
finally
FreeAndNil(L);
end;
end;
end;

//Bianry File: record by record
procedure TfrmMain.Button2Click(Sender: TObject);
type
T_r = packed record
A: Integer;
B: Integer;
end;
var
M,N: TMemoryStream;
r: T_r;
begin
if FileExists('SOURCE') then
begin
M := TMemoryStream.Create;
try
M.LoadFromFile('SOURCE');
N := TMemoryStream.Create;
try
M.Seek(SizeOf(r)*2,0);
while M.Position if M.Read(r,SizeOf(r))=SizeOf(r) then
N.Write(r,SizeOf(r));
N.SaveToFile('DESTINATION');
finally
FreeAndNil(N);
end;
finally
FreeAndNil(M);
end;
end;
end;

//Bianry File: batch write
procedure TfrmMain.Button3Click(Sender: TObject);
type
T_r = packed record
A: Integer;
B: Integer;
end;
var
M,N: TMemoryStream;
p: Pointer;
begin
if FileExists('SOURCE') then
begin
M := TMemoryStream.Create;
try
M.LoadFromFile('SOURCE');
p := Pointer(Integer(M.Memory) SizeOf(T_r)*2);
N := TMemoryStream.Create;
try
N.Write(p^,M.Size-SizeOf(T_r)*2);
N.SaveToFile('DESTINATION');
finally
FreeAndNil(N);
end;
finally
FreeAndNil(M);
end;
end;
end;

//Bianry File: use memory move
procedure TfrmMain.Button4Click(Sender: TObject);
type
T_r = packed record
A: Integer;
B: Integer;
end;
var
M: TMemoryStream;
p: Pointer;
begin
if FileExists('SOURCE') then
begin
M := TMemoryStream.Create;
try
M.LoadFromFile('SOURCE');
p := Pointer(Integer(M.Memory) SizeOf(T_r)*2);
Move(p^,M.Memory^,M.Size-SizeOf(T_r)*2);
M.Size := M.Size-SizeOf(T_r)*2;;
M.SaveToFile('DESTINATION');
finally
FreeAndNil(M);
end;
end;
end;

[/code]