Busqueda de un string a lo largo de un TFileStream.

[b3nshi]

Viendo el codigo de este componente me surgieron unas dudas:

Q hacen estas lineas de codigo?

Código Delphi [-]
{$I DELPHIAREA.INC}
{$IFDEF COMPILER6_UP}
  {$WARN UNIT_PLATFORM OFF}
  {$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}

Y por ejemplo cuando declara las constantes lo hace de la siguiente manera:

Código Delphi [-]
const
  FILE_ATTRIBUTE_SPARSE_FILE        = $00000200;
  {$IFDEF COMPILER4_UP}
  {$EXTERNALSYM FILE_ATTRIBUTE_SPARSE_FILE}
  {$ENDIF}
  FILE_ATTRIBUTE_REPARSE_POINT      = $00000400;
  {$IFDEF COMPILER4_UP}
  {$EXTERNALSYM FILE_ATTRIBUTE_REPARSE_POINT}
  {$ENDIF}
  FILE_ATTRIBUTE_ENCRYPTED          = $00004000;
  {$IFDEF COMPILER4_UP}
  {$EXTERNALSYM FILE_ATTRIBUTE_ENCRYPTED}
  {$ENDIF}

Porq y porq le da esos valores a las constantes

O si alguien me puede indicar q deberia leer para entenderlo mejor les estaria agradecidos...

{Saludos}

[paldave]

Los valores dados a esas variables son para poder identificar luego los atributos del archivo con el cual se va a trabajar.
En cuanto a las líneas de código que te refieres son directivas para el compilador. Por ejemplo la directiva

Código Delphi [-]
{$I DELPHIAREA.INC}

indica al compilador que Incluya el archivo DELPHIAREA.INC, en tanto que la directiva

Código Delphi [-]
{$IFDEF COMPILER6_UP}
  {$WARN UNIT_PLATFORM OFF}
  {$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}

se comporta como un condicional if then else, e indica al compilador que si la versión del compilador es 6 o superior (6_UP) entonces desactive (OFF) las advertencias (WARN) de exclusividad de plataforma de unidades (UNIT) y símbolos (SYMBOL), de tal forma que si usas un símbolo que es exclusivo de la plataforma en que estás trabajando (Windows, por ejemplo) el compilador no te advertirá de ello cuando realice la compilación (por defecto te lo advierte). Si el compilador es de una versión inferior a la 6 estas directivas no se procesarán, ya que no son necesarias porque estos compiladores no traían advertencias de plataforma y por lo tanto no tienen incluídas estas directivas.