TFileStream Fehler

[himitsu]

Als wenn jemals in der Hilfe immer die Wahrheit drin stand.

Ich war mir ganz sicher gestern noch ein

Delphi-Quellcode:

const 
  fmCreate = $FFFF;

gesehn zu haben, als ich nach fmShareExclusive suchte.

Hmmm, stimmt, du hast Recht.

Aber fand grade nur noch diese Stelle (vermutlich diese Stelle im Augenwinkel gehabt)

Delphi-Quellcode:

constructor TFileStream.Create(const AFileName: string; Mode: Word; Rights: Cardinal);
var
  LShareMode: Word;
begin
  if (Mode and fmCreate = fmCreate) then
  begin
    LShareMode := Mode and $FF;
    if LShareMode = $FF then
      LShareMode := fmShareExclusive; // For compat in case $FFFF passed as Mode

und dich denke nicht, dass mir die Reste der alten Delphi 4, 7, TurboPascal und FreePascal unter die Augen kamen.