تشخيص زبان تكست

[seyed_farid]

چگونه مي توان فهميد كه جمله يا كلمه موجود در يك اديت باكس فارسي است يا انگليسي؟

[MohsenB]

سلام

به این جمله به دقت فکر کنید:

"همچی انگلیسیه مگر اینکه خلافش ثابت بشه "


موفق باشد .

[pezhvakco]

اگه نوشته فقط انگلیسه و یا فقط فارسی میتونین یک حرفش رو بگیرین و فارسی یا انگلیسی بودنش رو بدست بیارین تا متناسب با اون در مورد همه نوشته نظر بدین .

[seyed_farid]

ممنون از پاسخهاتون.
خوب چطور بايد اين چك را انجام بدم؟

[Felony]

ممنون از پاسخهاتون.
خوب چطور بايد اين چك را انجام بدم؟
بررسی کد اسکی .

[seyed_farid]

ممنون از جوابتون.:بوس::
کد:


Function IsFarsiString(s : String):Boolean;
var i : integer;
begin
Result := False;
for i := 1 to Length(s) do
if Ord(s[i]) > 128 then
begin
result := True;
Break;
end;
End;