Enan0
16-02-2005, 17:29:36
HOla amigos posteo aca ya que no se donde hacerlo, estoy revisando un codigo de una aplicacion de mi empresa y me pasa algo que desonozco
en el sig codigo de delphi 5
f ConfigSys1[calSysType]='' then // Helt ny database
begin
// Connection 1
{$ifdef cal1_TT} ConfigSys1[calSysType]:=IntToStr(sysTaskTimer51); {$else}
{$ifdef cal1_TT51} ConfigSys1[calSysType]:=IntToStr(sysTaskTimer51); {$else}
{$ifdef cal1_TT52} ConfigSys1[calSysType]:=IntToStr(sysTaskTimer52); {$else}
{$ifdef cal1_USWP} ConfigSys1[calSysType]:=IntToStr(sysUSWPJ); {$else}
{$ifdef cal1_Notes} ConfigSys1[calSysType]:=IntToStr(sysNotes); {$else}
--- Ingen kalendar system 1 defineret????
{$endif}{$endif}{$endif}{$endif}{$endif}
ConfigSys1[calGenerelConnect]:='';
ConfigSys1[calUserID]:='';
ConfigSys1[calUserPassword]:='';
{$ifdef udv}
ConfigSync[cfgDeleteFilename]:=CDeleteLogName;
{$endif}
// Connection 2
{$ifdef cal2_TT} ConfigSys2[calSysType]:=IntToStr(sysTaskTimer51); {$else}
{$ifdef cal2_TT51} ConfigSys2[calSysType]:=IntToStr(sysTaskTimer51); {$else}
{$ifdef cal2_TT52} ConfigSys2[calSysType]:=IntToStr(sysTaskTimer52); {$else}
{$ifdef cal2_USWP} ConfigSys2[calSysType]:=IntToStr(sysUSWPJ); {$else}
{$ifdef cal2_Notes} ConfigSys2[calSysType]:=IntToStr(sysNotes); {$else}
{$ifdef cal2_Olk} ConfigSys2[calSysType]:=IntToStr(sysOutlook); {$else}
--- Ingen kalendar system 2 defineret????
{$endif}{$endif}{$endif}{$endif}{$endif}{$endif}
ConfigSys2[calGenerelConnect]:='';
ConfigSys2[calUserID]:='';
ConfigSys2[calUserPassword]:='';
En esa linea me da un error de identificador no declarado en "Ingen"
el problema es que esta tambien debajo pero ahi no da problema si comento la primer opcion.. funciona bien.. pero en la seccion color BODRO y GRANDE.. me da ese Error.
Alguien puede darme una mano??
y otra cosa algun lugar para leer sobre {$ifdef} este tipo de etiquetas??
Gracias!!!
en el sig codigo de delphi 5
f ConfigSys1[calSysType]='' then // Helt ny database
begin
// Connection 1
{$ifdef cal1_TT} ConfigSys1[calSysType]:=IntToStr(sysTaskTimer51); {$else}
{$ifdef cal1_TT51} ConfigSys1[calSysType]:=IntToStr(sysTaskTimer51); {$else}
{$ifdef cal1_TT52} ConfigSys1[calSysType]:=IntToStr(sysTaskTimer52); {$else}
{$ifdef cal1_USWP} ConfigSys1[calSysType]:=IntToStr(sysUSWPJ); {$else}
{$ifdef cal1_Notes} ConfigSys1[calSysType]:=IntToStr(sysNotes); {$else}
--- Ingen kalendar system 1 defineret????
{$endif}{$endif}{$endif}{$endif}{$endif}
ConfigSys1[calGenerelConnect]:='';
ConfigSys1[calUserID]:='';
ConfigSys1[calUserPassword]:='';
{$ifdef udv}
ConfigSync[cfgDeleteFilename]:=CDeleteLogName;
{$endif}
// Connection 2
{$ifdef cal2_TT} ConfigSys2[calSysType]:=IntToStr(sysTaskTimer51); {$else}
{$ifdef cal2_TT51} ConfigSys2[calSysType]:=IntToStr(sysTaskTimer51); {$else}
{$ifdef cal2_TT52} ConfigSys2[calSysType]:=IntToStr(sysTaskTimer52); {$else}
{$ifdef cal2_USWP} ConfigSys2[calSysType]:=IntToStr(sysUSWPJ); {$else}
{$ifdef cal2_Notes} ConfigSys2[calSysType]:=IntToStr(sysNotes); {$else}
{$ifdef cal2_Olk} ConfigSys2[calSysType]:=IntToStr(sysOutlook); {$else}
--- Ingen kalendar system 2 defineret????
{$endif}{$endif}{$endif}{$endif}{$endif}{$endif}
ConfigSys2[calGenerelConnect]:='';
ConfigSys2[calUserID]:='';
ConfigSys2[calUserPassword]:='';
En esa linea me da un error de identificador no declarado en "Ingen"
el problema es que esta tambien debajo pero ahi no da problema si comento la primer opcion.. funciona bien.. pero en la seccion color BODRO y GRANDE.. me da ese Error.
Alguien puede darme una mano??
y otra cosa algun lugar para leer sobre {$ifdef} este tipo de etiquetas??
Gracias!!!