Wo soll das FileMode im Quellcode hin?

[ter]

Zitat:

Zitat von Amateurprofi (Beitrag 1435915)

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))

Delphi-Quellcode:

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:

Zitat von DeddyH (Beitrag 1435916)

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:

Zitat von hoika (Beitrag 1435914)

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. ;)

[DeddyH]

Zitat:

Hinweis: Setzen Sie FileMode unbedingt zurück, bevor Sie Reset für eine schreibgeschützte Datei aufrufen. Auch wenn die Datei nur gelesen werden soll, verursacht der Standardwert von FileMode (Schreib-/Lesezugriff), dass das Öffnen einer schreibgeschützten Datei fehlschlägt.

Das erscheint mir persönlich relativ eindeutig. Man muss FileMode also irgendwann vor dem Reset setzen, damit es nicht kracht, wenn man eine schreibgeschützte Datei lediglich lesen möchte.

[p80286]

Filemode muß vor Reset,Append oder Rewrite gesetzt sein/werden.

Gruß
K-H

[DeddyH]

Nur vor Reset. Vor einem Append oder Rewrite den FileMode auf ReadOnly zu setzen wäre ja kontraproduktiv.

[peterbelow]

Zitat:

Zitat von ter (Beitrag 1435913)

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:

Zitat von peterbelow (Beitrag 1436156)

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