Wo soll das FileMode im Quellcode hin?

[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

[hoika]

Hallo,
1 oder 2, vor dem Open.
Den alten Wert würde ich retten und nach der Operation wiederherstellen.

[Amateurprofi]

Ich vermute mit "FileMode" ist nicht das "Mode" im Record TR, sondern eine Variable die Du, aus welchen Gründen auch immer, irgendwo anders führst.
Dieses vorausgesetzt würde ich nach dem Reset(TR) (oder Rewrite(TR) oder Append(TR) oder CloseFile(TR))
FileMode:=TTextRec(TR).Mode; machen.
Das stellt sicher, dass FileMode den Wert hat, der tatsächlich vom System gesetzt wurde.

[DeddyH]

Ich finde, das ist im Wiki ganz gut erklärt: http://docwiki.embarcadero.com/Libra...ystem.FileMode

[TurboMagic]

Frage an den original Poster: warum benutzt du diese klassischen Datei Routinen?
Es gibt inzwischen diverse modernere Alternativen, z. B.

- TFileStream
- TStringList.LoadFromFile

[EWeiss]

Zitat von TurboMagic:

Frage an den original Poster: warum benutzt du diese klassischen Datei Routinen?
Es gibt inzwischen diverse modernere Alternativen, z. B.

- TFileStream
- TStringList.LoadFromFile

Veraltet ist relativ kommt immer darauf an in welchem Kontext man es verwendet.
Nur weil es neuer\moderner ist muss es nicht immer den Bedürfnissen entsprechend besser sein.

Denn irgendwo setzt auch TStringlist auf irgendwelche Methoden auf nicht das es sogar letztendlich aufs gleiche rauskommt nämlich mit zugriff auf die Win32Api.
Die wurde bestimmt nicht für die TStringList neu erfunden.

gruss

[ter]

Zitat von DeddyH:

Ich finde, das ist im Wiki ganz gut erklärt: http://docwiki.embarcadero.com/Libra...ystem.FileMode

Danke Dir DeddyH.
Dort steht auch nur das, was in meiner Delphi 6 Hilfe
drinsteht. Alle irgendwo in der Hilfe vorkommenden
Beispiel-Quellcodes ueber Reset(T),..., etc. lassen
das FileMode nicht auftauchen, bzw. sind nicht in den
Beispiel-Quellcodes dabei.

Gruss Terence

[ter]

Zitat von Amateurprofi:

Ich vermute mit "FileMode" ist nicht das "Mode" im Record TR, sondern eine Variable die Du, aus welchen Gründen auch immer, irgendwo anders führst.
Dieses vorausgesetzt würde ich nach dem Reset(TR) (oder Rewrite(TR) oder Append(TR) oder CloseFile(TR))
FileMode:=TTextRec(TR).Mode; machen.
Das stellt sicher, dass FileMode den Wert hat, der tatsächlich vom System gesetzt wurde.

Tut mir leid, aber du liegst voellig falsch.
Ich habe weder FileMode selbst definiert noch hat
es etwas mit ".Mode" zu tun.

Danke fuer Deine Hilfe.
Gruss Terence

[ter]

Zitat von hoika:

Hallo,
1 oder 2, vor dem Open.
Den alten Wert würde ich retten und nach der Operation wiederherstellen.

Danke hoika,
das mit dem "Retten" werde ich in Zukunft immer tun.
Macht man ja beim

var wOldErrorMode : word;
begin
...
wOldErrorMode:=SetErrorMode(SEM_FAILCRITICALERRORS );
...
SetErrorMode(wOldErrorMode);
...
end;

ebenfalls.
Gruss Terence

[hoika]

Hallo,
korrekt.