Determines whether a string contains Chinese characters and returns the Chinese character position.

{

Judge whether a string contains Chinese Characters
// Judgestr: string to be judged
// Posint: the first Chinese character position
}

Function tform1.ishavechinese (judgestr: string; var posint: integer): Boolean;
VaR
P: pwidechar; // the character to be judged
Count: integer; // The position containing Chinese characters.
Ishave: Boolean; // whether the returned value contains Chinese Characters
Begin

Ishave: = false; // whether the returned value contains Chinese characters. The default value is false.
Count: = 1; // the default position containing Chinese characters is 1.

P: = pwidechar (judgestr); // converts the string to be judged.

// Judge each character cyclically
While P ^ <> #0 do
Begin
Case P ^
#$4e00 .. # $9fa5:
Begin
Ishave: = true; // set whether to include Chinese characters and return true
Posint: = count; // you can specify a position that contains Chinese characters.
Break; // exit the loop
End;

End;

INC (P );
INC (count); // The position containing Chinese characters increases progressively
End;

Result: = ishave;
End;

--- Restore content end ---

Determines whether a string contains Chinese characters and returns the Chinese character position.