Ejemplo n.º 1
0
intptr_t TStrings::IndexOfName(const UnicodeString & Name) const
{
  for (intptr_t Index = 0; Index < GetCount(); ++Index)
  {
    UnicodeString S = GetString(Index);
    intptr_t P = ::AnsiPos(S, L'=');
    if ((P > 0) && (CompareStrings(S.SubStr(1, P - 1), Name) == 0))
    {
      return Index;
    }
  }
  return NPOS;
}
Ejemplo n.º 2
0
bool EndsStr(const UnicodeString & SubStr, const UnicodeString & Str)
{
    if (SubStr.Length() > Str.Length())
        return false;
    return Str.SubStr(Str.Length() - SubStr.Length() + 1, SubStr.Length()) == SubStr;
}
Ejemplo n.º 3
0
bool EndsStr(UnicodeString SubStr, UnicodeString Str)
{
  if (SubStr.Length() > Str.Length())
    return false;
  return Str.SubStr(Str.Length() - SubStr.Length() + 1, SubStr.Length()) == SubStr;
}