Wo soll das FileMode im Quellcode hin?

[peterbelow]

Zitat von ter:

Frage:
Wo soll das FileMode im Quellcode hin?
Was ist richtig, 1) oder 2) oder 3)?

Code:

var TR : TextFile;
    s : string;
begin
...
1) 
AssignFile(TR, 'D:\Dir\FileName.txt');
FileMode:=fmOpenRead;
Reset(T);
...
2) 
FileMode:=fmOpenRead;
AssignFile(TR, 'D:\Dir\FileName.txt'); 
Reset(T);
...
3) 
AssignFile(TR, 'D:\Dir\FileName.txt'); 
Reset(T);
FileMode:=fmOpenRead;
...
{-}
ReadLN(TR, s);
{-}
CloseFile(TR);
{-}
...

Gruss Terence

Ist völlig egal, für Textfile wird Filemode intern durch Reset, Append oder Rewrite gesetzt. Das liegt daran, dass man Textfiles nicht für read und write öffnen kann, da der IO gepuffert wird. Filemode wird nur für file oder file of <type> verwendet, die nicht nur schreib/lesezugriff sondern auch random access erlauben.

[ter]

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

[ter]

Zitat von peterbelow:

Ist völlig egal, für Textfile wird Filemode intern durch Reset, Append oder Rewrite gesetzt. Das liegt daran, dass man Textfiles nicht für read und write öffnen kann, da der IO gepuffert wird. Filemode wird nur für file oder file of <type> verwendet, die nicht nur schreib/lesezugriff sondern auch random access erlauben.

Das wusste ich gar nicht. Vielen Dank fuer Deine Hilfe.
Gruss
Terence