mach
Delphi-Quellcode:
var
lst: TStrings;
begin
lst := TStringList.Create;
try
lst.LoadFromFile(filename);
finally
lst.free;
end;
end;
zur 2. frage nimm entweder ne funktion
Zitat:
BOOL CopyFile(
LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);
oder machs mit 2 filestreams (falls du dazwischen evtl. noch rumfummeln mußt)
Delphi-Quellcode:
fsIn := TFileStream.Create(inputfile, fmOpenRead or fmShareDenyWrite);
try
fsOut := TFileStream.Create(outputfile, fmCreate or fmShareDenyWrite);
try
fsIn.Position := 0;
fsOut.CopyFrom(fsIn, fsIn.Size)
finally
fsOut.free;
end;
finally
fsIn.free;
end;
statt copyfrom könntest du auch blockweise lesen/schreiben und so z.B.
n statusbalken noch anzeigen lassen.