If someone wants to use the previous version, he have to insert next function in the code.
Gracias. He editado mi primer mensaje y he borrado la función.
Si alguien lo quiere usar para la version vieja (3.5.0.0), que lo dudo, no tiene mas que meter esta función dentro del código.
Code: Select all
function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
i: Integer;
begin
Result := -1;
if StartAt < 0 then
StartAt := 0;
for i := StartAt to List.Count-1 do
if Pos(Pattern, List.GetString(i)) <> 0 then
begin
Result := i;
Break;
end;
end;