TROUVER LA POSITION (LIGNE, ET "COLONNE") D'UN MOT DANS UN TSTRINGS

Commentaire de Delphiprog le 02/10/2005 10:07:54 administrateur CS

La façon de faire est bonne.
Cependant, comme la fonction Pos fait la distinction entre majuscules et minuscules, les résultats obtenus pourraient parfois surprendre. Pour éviter cela, je propose le code légèrement modifié utilisant un paramètre supplémentaire CaseSensitive. Ce paramètre est à faux par défaut ce qui fait que tu n'auras même pas à changer ton code par ailleurs dans l'application.

function PosInStrings(const Substr: string; s: TStrings; CaseSensitive: boolean = false): TPoint;
var
  SLtemp: TStringList;
  p: Integer;
begin
  Result.X := -1; // TStrings commencent à 0
  Result.Y := 0; // string commence à 1

  {ATTENTION : Pos fait la distinction majuscules/minuscules !}
  if CaseSensitive then
    p := Pos(Substr, s.Text)
  else
    p := Pos(UpperCase(SubStr), UpperCase(s.Text));

  if p > 0 then
  begin
    SLtemp := TStringList.Create;
    try
      SLtemp.Text := Copy(S.Text, 1, p);
      Result.Y := SLtemp.Count - 1;

      if CaseSensitive then
        Result.X := Pos(Substr, s[Result.Y])
      else
        Result.X := Pos(UpperCase(Substr), UpperCase(s[Result.Y]));
    finally
      SLtemp.Free;
    end;
  end;
end;