StackOverflow
Posted: Fri 23 Sep 2005 15:25
I have a stack OverFlow with AnsiCompareTextS
And wath the code ??????
it's normaly, I have a StackOverFlow ????? I don't understand waths you make with AnsiCompareTextS.
I check code for AnsiCompareTextS !!!!!CoreLab.Dac.Units.MemUtils::AnsiCompareTextS()
CoreLab.Dac.Units.MemUtils::AnsiCompareTextS()
CoreLab.Dac.Units.MemUtils::AnsiCompareTextS()
CoreLab.Dac.TData::@32MemData$InitFields$InitAliases$ReplaceNextOriginalNames()
CoreLab.Dac.TData::@22MemData$InitFields$InitAliases()
CoreLab.Dac.TData::InitFields()
CoreLab.Dac.TMemData::InitFields()
CoreLab.Dac.TCRRecordSet::Prepare()
CoreLab.Dac.TMemDataSet::Prepare()
And wath the code ??????
Code: Select all
function AnsiCompareTextS(const S1, S2: string): integer; // SORT_STRINGSORT
begin
{$IFDEF SORT_STRINGSORT}
Result := CompareString(LOCALE_USER_DEFAULT, NORM_IGNORECASE + SORT_STRINGSORT, PChar(S1),
Length(S1), PChar(S2), Length(S2)) - 2;
{$ELSE}
Result := AnsiCompareTextS(S1, S2);
{$ENDIF}
end;
