Subversion Repositories indexer_suite

Rev

Rev 8 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 9
Line 642... Line 642...
642
  function FileDoesExist(AFileName: string): boolean;
642
  function FileDoesExist(AFileName: string): boolean;
643
  begin
643
  begin
644
{$IFDEF VIATHINKSOFT}
644
{$IFDEF VIATHINKSOFT}
645
    if StartsText('EHDD:\', AFileName) then
645
    if StartsText('EHDD:\', AFileName) then
646
    begin
646
    begin
647
      // Attention: AllowFileCheck must be called to initialize cacheAconnected and cacheBconnected
647
      // Attention: AllowFileCheck must be called to initialize cacheAconnected and cacheBconnected and cacheRconnected
648
 
648
 
649
      if cacheAconnected and FileExists(StringReplace(AFileName, 'EHDD:\',
649
      if cacheAconnected and FileExists(StringReplace(AFileName, 'EHDD:\',
650
        GUID_EHDD_A, [])) then
650
        GUID_EHDD_A, [])) then
651
        exit(true);
651
        exit(true);
652
 
652
 
653
      if cacheBconnected and FileExists(StringReplace(AFileName, 'EHDD:\',
653
      if cacheBconnected and FileExists(StringReplace(AFileName, 'EHDD:\',
654
        GUID_EHDD_B, [])) then
654
        GUID_EHDD_B, [])) then
655
        exit(true);
655
        exit(true);
656
 
656
 
657
      if cacheBconnected and FileExists(StringReplace(AFileName, 'EHDD:\',
657
      if cacheRconnected and FileExists(StringReplace(AFileName, 'EHDD:\',
658
        GUID_EHDD_R, [])) then
658
        GUID_EHDD_R, [])) then
659
        exit(true);
659
        exit(true);
660
 
660
 
661
      exit(false);
661
      exit(false);
662
    end;
662
    end;