摘要:
function XXXCompareText(const S1, S2: string): Integer;Begin Result := CompareString(LOCALE_SYSTEM_DEFAULT, NORM_IGNORECASE, Pchar(s1), Length(s1), Pchar(s2), Length(s2)) - 2;end;function XXXSameStr(c... 阅读全文
摘要:
function XXXReverseString(const AText: string): string;var S, D: Pchar; i: Integer;Begin S := Pchar(AText); SetLength(Result, Length(AText)); D := Pchar(Result); for i := Length(AText) - 1 downto 0 do... 阅读全文