急啊，ord(),pos()怎么用

Question

//Ord的用法
uses Dialogs;
type   Colors = (RED,BLUE,GREEN);var  S: string;
 begin
   S := 'BLUE has an ordinal value of ' + IntToStr(Ord(BLUE)) + #13#10;
   S := S + 'The ASCII code for "c" is ' + IntToStr(Ord('c')) +  ' decimal';
   MessageDlg(S, mtInformation, [mbOk], 0);
 end;//Pos 的用法
var S: string;begin
  S := '   123.5';
  { Convert spaces to zeroes }
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
end;

Answer 1

ord(65)  : return 'A'

Answer 2

呵，上面的兄弟。。ord('A');//等于65

Answer 3

ord(数字) --->返回ASCII码pos(str1, str2) -->返回str1 在 str2出现的位置！看看帮助应该很快就知道了，有例子！

Answer 4

ord()返回字符的ASCII码编号,Pos(STR1,STR2)，求STR1在STR2中的位置(从1开始计数字符)。例子就是一楼的，很充分了吧。

Answer 5

ord(a),//取出a的asc码；
pos(sub,s)//取出sub在s的第一个位置

Answer 6

if((pos(ord('口'),ord('咬'))>0) then
   此汉字包括某编旁else
  .............请问那里错了

Answer 7

ord中的参数只能是一个字符，而汉字是两个字符组成，所以失败！

Answer 8

汉字定位
var
   s:widestring;
   i:integer;
begin
   s:='此汉字包括某编旁';
   i:=pos('汉',s);
   showmessage(inttostr(i));
end;