شمارش تعداد حروف یک عبارت...

[فرزاد دلفی باز]

با سلام:
من می خواهم متنی را وارد و برنامه به من بگوید در این عبارت مثلا چند تا "الف" چند تا "ن" و ... وجود داره ........



یا تشکر

[ghabil]

var
i: integer;
CountArr: array[1..32] of integer;
begin

for i:= 1 to Length(The_Phrase) do
if (The_Phrase[i] <='و') and (the_Phrase[i] >= 'ا') then
CountArr[Ord(The_Phrase[i]) - 198] := CountArr[Ord(The_Phrase[i]) - 198] + 1
else if The_Phrase[i] = 'ی' then CountArr[32] := CountArr[32] + 1;



اینم بگم : این برای کد پیج 1256 هست ، یک نکته مهم هم اینه که توی کدپیج 1256 و اصولا در الفبای عربی حرف 'و' بعد از حرف 'ه' هست.