Am 10.02.2012 13:31, schrieb Reinier Olislagers:
2. What is the function for "properly" moving files in FPC that also
moves between partitions, if one exists?
What I'd use in those cases:
var
dest, source: TFileStream;
begin
dest := Nil;
source := TFileStream.Create(aSourceFileName, fmOpenRead);
try
dest := TFileStream.Create(aDestFileName, fmCreate or fmOpenWrite);
dest.CopyFrom(source, source.Size);
finally
dest.Free;
source.Free;
end;
end;
Regards,
Sven
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
