TStrings AccessViolatino Error

[nat]

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.