تشخیص فارسی یا انگلیسی بودن متن

[sara.mahdavi]

با سلام:لبخندساده:

دوستان با چه شرطی چک کنم که :
آیا متن داخل EditBox فارسیه یا انگلیسی؟

ممنون

[یوسف زالی]

سلام.


function HasNonEnglishText(S: string): boolean;
var
i: integer;
begin
Result := false;

for i := 1 to length(S) do
begin
Result := not (S[i] in ['a'..'z', 'A'..'Z', ' ', '.', ',']); // add other delimiter characters
if Result then
Break;
end
end;

[یوسف زالی]

این هم راهی که خودم ازش استفاده می کنم :گیج:


function HasNonEnglish(S: string): boolean;
begin
Result := SameText(S, AnsiToUtf8(S))
end;