13-01-2009, 09:50 AM
وعليكم السلام.
هذا الكود لدالة تحول الحروف ä â ê ë ÿ û ü ô ö... الى الحروف A E Y U O ... وبنفس المبدأ حاول الاستفادة منه لتحويل آ ا ى ... إلى أ ي...
هذا الكود لدالة تحول الحروف ä â ê ë ÿ û ü ô ö... الى الحروف A E Y U O ... وبنفس المبدأ حاول الاستفادة منه لتحويل آ ا ى ... إلى أ ي...
PHP كود :
function MajusculTou( const Texte: string ): string;
var x,y : integer;
begin
Result:= Texte;
for x:= 1 to length(Texte) do begin
y:= Ord( Result[ x ]);
case y of
97..122 : Result[ x ]:= Chr( y - 32 );
224..229 : Result[ x ]:= 'A';
231 : Result[ x ]:= 'C';
232..235 : Result[ x ]:= 'E';
236..239 : Result[ x ]:= 'I';
241 : Result[ x ]:= 'N';
242..246 : Result[ x ]:= 'O';
249..252 : Result[ x ]:= 'U';
253, 255 : Result[ x ]:= 'Y';
end;
end;
end;

