Erro ao compilar ACBRUTIL.PAS

[sergiom]

Bom dia, erro ao compilar ACBRUTIL.PAS, baixado agora pela manhã.

Em vermelho o erro e a correção.

function Split(const ADelimiter, AString: string): TSplitResult;
var
  i: Integer;
  vRows: TStrings;
begin
  vRows := TStringList.Create;
  try
    vRows.Delimiter := ADelimiter[1];

    {$IFDEF CompilerVersion >= 18} //Delphi 2006+
    vRows.StrictDelimiter := True;
    vRows.DelimitedText := AString;
    {$ELSE}
    vRows.DelimitedText := '"' + StringReplace(AString, ADelimiter, '"' + ADelimiter + '"', [rfReplaceAll]) + '"';
    {$IFEND}  ->>>>> correto ->>>>> {$ENDIF}

    SetLength(Result, vRows.Count);

    for i := 0 to vRows.Count - 1 do
      Result := vRows.Strings;
  finally
    FreeAndNil(vRows);
  end;
end;
 

Atenciosamente

Sérgio

 

[Juliomar Marchetti]

bom dia

obrigado não havia feito o testes em outras versões do delphi

somente nas mais recentes.

já no svn

[julioaguilar]

No Delphi 2010 o trecho de código abaixo não funciona:

{$IFDEF CompilerVersion >= 18} //Delphi 2006+
vRows.StrictDelimiter := True;
vRows.DelimitedText := AString;
{$ELSE}
vRows.DelimitedText := '"' + StringReplace(AString, ADelimiter, '"' + ADelimiter + '"', [rfReplaceAll]) + '"';
{$ENDIF}

Está entrando no else, mesmo com o CompilerVersion sendo 21.0. Se alterar a diretiva de compilação para "{$IF CompilerVersion >= 18}" ai passa a funcionar. Ainda não descobri o motivo, se alguém souber poderia explicar a diferença entre {$IFDEF} e {$IF} no Delphi 2010.