احصاء الحروف العربية

[Delphi4Us]

[size=small]السلام عليكم ورحمة الله تعالى وبركاته[/size]

PHP كود :

var
 i  : integer;
 s2 : string;
begin
 s2 := '';
 for i := 1 to Length( s ) do
 begin
   ShowMessage (s[ i ])  ;
 end;
end;