TFileStream - irgendwie raff ichs net

[Predator]

@Luckie

ich hab den Code jetzt mal in meinen angepasst. Müsste so richtig sien oder ?

Delphi-Quellcode:

function Kopiere(Input, Output: string) : string;
const
BlockSize = 1024;
var
fs: TFileStream;
Buffer: Pointer;
Len: Integer;
dest: TFileStream;
begin
fs := TFileStream.Create(Input, fmOpenRead);
dest := TFileStream.Create(Output, fmCreate);
GetMem(Buffer, 1024);
try
while (fs.Position < fs.Size) do
begin
if fs.Size - fs.Position > BlockSize then
Len := BlockSize
else
Len := fs.Size - fs.Position;

fs.ReadBuffer(Buffer^, Len);
dest.WriteBuffer(Buffer^, Len);
end;
finally
FreeMem(Buffer);
end;
end;

hab jetzt mal schnell copy,paste ohne Formatierung kopiert.

Trotzdem ist das File 0 KB.