Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
36.668 Beiträge
 
Delphi 10.4 Sydney
 
#18

AW: TFileStream Fehler

  Alt 12. Mai 2020, 14:12
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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat