antp.be forum

Code: Select all

// *****
{    Same as FindFullLine but take the IgnoreCase into account with ASCII standards
     Returns -1 if not found   }
//  PhG

function FindFullLineWithoutCase(Line: string; List: TStringList; StartAt: Integer; IgnorCase: Integer ): Integer;
var
  i: Integer;
  LookIn: string;
begin
  result := -1;
  if StartAt < 0 then
    StartAt := 0;
  if IgnorCase = 1 then Line := Cp1252ToASCII(AnsiLowerCase(Line));
  for i := StartAt to List.Count-1 do
    LookIn := List.GetString(i);
    if IgnorCase = 1 then LookIn := Cp1252ToASCII(AnsiLowerCase(LookIn));
    if Line = LookIn then
      begin
        result := i;
        Break;
      end;
end;