Ich habe jetzt die Loesung zu der FileMode Position.
Delphi-Quellcode:
var S, D : File;
ior : integer;
myDPFNSource, myDPFNDest : string;
...
myDPFNSource:='D:\File1.ext';
myDPFNDest:='D:\File2.ext';
...
AssignFile(S, myDPFNSource);
FileMode:=fmOpenRead;
{$I-} Reset(S, 1); //oeffnen
{$I+} inc(ior, IORESULT);
{-}
AssignFile(D, myDPFNDest);
FileMode:=fmOpenReadWrite;
{$I-} Rewrite(D, 1); //ueberschreiben bzw. erzeugen
{$I+} inc(ior, IORESULT);
...
Bei einer anderen Position mit verschieden gesetzten Dateiattributen ergeben sich Werte groesser Null in der IORESULT Rueckgabe.
Gruss
Terence