[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]

    Function CompareStr(Str1, Str1 : String) : Boolean;
    begin
      if (Length(Str1) = Length(Str2)) and (Pos(Str1, Str2) <> 0)) then
        CompareStr := True
      else
        CompareStr := False;
    end;

    Function CompareStrContext(Str1, Str2 : String) : Boolean;
    begin
      CompareStrContext := CompareStr(StUpCase(Str1), StUpCase(Str2));
    end;

[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]