Editado
Posted: 2005-05-27 16:32:32
Thanks. I have edited my first message and have deleted the function.
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.
Saludos a todos
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;