faArchive, faSysFile is specific to a platform

[Rollo62]

Hallo zusammen,

die Fileattribute sind Platformspezifisch, so wie so gut.

Delphi-Quellcode:

  faInvalid     = -1;
  faReadOnly    = $00000001;
  faHidden      = $00000002 platform; // only a convention on POSIX
  faSysFile     = $00000004 platform; // on POSIX system files are not regular files and not directories
  faVolumeID    = $00000008 platform deprecated;  // not used in Win32
  faDirectory   = $00000010;
  faArchive     = $00000020 platform;
  faNormal      = $00000080;
  faTemporary   = $00000100 platform;
  faSymLink     = $00000400 platform; // Available on POSIX and Vista and above
  faCompressed  = $00000800 platform;
  faEncrypted   = $00004000 platform;
  faVirtual     = $00010000 platform;
  faAnyFile     = $000001FF;

Aber wen kann die Kommentare ergänzen für die restlichen Attribute ?
Bedeutet Platform immer MsWindows ?

Ich würde das gerne beim Aufruf auskommentieren, damit die blöden Warnings weg sind,
bin mir aber nicht sicher ob das nicht doch zuviel des Guten bei OSX, Android oder iOS etc. ist.

So in der Art:

Delphi-Quellcode:

  faInvalid
  , faReadOnly
{$IF    DEFINED(OSX) or DEFINED(ANDROID)} // ist ANDROID Posix ???
  , faHidden   // only a convention on POSIX
{$ENDIF DEFINED(OSX) or DEFINED(ANDROID)}
  , faSysFile  // on POSIX system files are not regular files and not directories
{$IF    DEFINED(MSWINDOWS)}
  , faVolumeID // not used in Win32
{$ENDIF DEFINED(MSWINDOWS)}
  , faDirectory
{$IF    DEFINED(MSWINDOWS)}
  , faArchive
{$ENDIF DEFINED(MSWINDOWS)}
  , faNormal
  , faTemporary   //???
  , faSymLink     //???
  , faCompressed  //???
  , faEncrypted   //???
  , faVirtual     //???
  , faAnyFile

Kennt sich vielleicht jemand damit aus und hat einen Tip wo man findet was "platform" wirklich bedeutet ?

Rollo

[bra]

http://stackoverflow.com/questions/3...-to-a-platform

Gibt es eventuell plattformunabhängige Funktionen, die du verwenden kannst?

[Rollo62]

Hallo bra,

ja dankesehr, Warnings ausschalten geht auch.

Ich hatte das schon gefunden aber so verstanden das es nur fürs ganze Unit geht.
Aber im StackOverflow sieht es so aus das man auch bestimmte Bereiche ausschalten kann.

Werds morgen mal ausprobieren.

Rollo

[himitsu]

"blöd" ist halt, dass man bei platform nicht angeben kann, für was das gültig ist, damit die Warnung nur da kommt, wo nicht.

[Sir Rufo]

Blöd ist es überhaupt nicht.

Es gibt so einige Dinge, die man im Code veranstalten kann, die aber unter bestimmten Umständen ein seltsames oder anderes Verhalten an den Tag legen.

Delphi-Quellcode:

var
  aStr: AnsiString;
  uStr: UnicodeString;

aStr := uStr; // <- Warnung

Will ich diese Warnung wegbekommen, dann schreibt man

Delphi-Quellcode:

var
  aStr: AnsiString;
  uStr: UnicodeString;

aStr := AnsiString( uStr ); // <- keine Warnung

Jetzt sollte ich dem Compiler damit nicht gesagt haben

Zitat:

LMAA

sondern

Zitat:

Ich bin mir völlig bewusst, dass es zu einem Datenverlust kommen könnte, aber ich kann gewährleisten, dass es nicht dazu kommt (alle Zeichen sind auch mit ANSI darstellbar), bzw. der Datenverlust ist hier unerheblich und wird die Funktion des Programms nicht beeinflussen.

Mit den FileAttributes verhält sich das genauso - nur muss man hier eben an der entsprechenden Codestelle die Warnung ab- und direkt danach wieder einschalten. In der Regel wird man das dann so implementieren

Delphi-Quellcode:

{$IFDEF MSWINDOWS}
{$WARN SYMBOL_PLATFORM OFF}

// Jetzt die entsprechenden Attribute verwenden

{$WARN SYMBOL_PLATFORM ON}
{$ELSE}
  raise ENotImplementedException.Create( 'Das soll wer anders machen :o)' );
{$ENDIF}

Dadurch dokumentiert man, dass man sich mit der Plattform Windows auseinander gesetzt hat. Alle anderen Plattformen sind nicht berücksichtigt und müssten (wenn die dort verwendet werden sollen) nochmal genau geprüft werden.

[himitsu]

Zitat von Sir Rufo:

Blöd ist es überhaupt nicht.

Doch.

Wenn ich nur z.B. (aktuell) für Windows programmiere, dann sind diese Meldungen vollkommen fehl am Platz, da sie "mein" System nicht betreffen.
"Warnungen" nun abzuschalten ist hier auch die falsche Lösung, denn dann bekomm ich da keine Meldungen mehr, wo sie mich betreffen.

faArchive = $00000020 platform pfWin32 or pfWin64; so könnte man aber nur geziehlt das deaktivieren können {$WARN SYMBOL_PLATFORM_WIN32 OFF} , was für sein System uninteressant ist.