Question

delphi，有一串字符，比如‘1u9az8’转化成一串数字,算法为：遇到数字就加1，遇到字母就转化为相应的数字

如‘1b9az8’可以转话为‘22101269’，遇到数字就加1：则‘1+1’=2，'b'在26个字母排第2，则‘b’=2；相应的‘9+1’=10；‘a’=1；'z'在26个字母排第26，则'z'=26;'8+1'=9.
要求：在edit1中输入字符窜，点击button1，然后转换后的数字出现在edit2中？求大侠帮忙啊.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  Edit2.Text:='';
  for i:=1 to Length(Edit1.Text) do
  begin
    if Edit1.Text[i] in ['0'..'9'] then
      Edit2.Text:=Edit2.Text+IntToStr(StrToInt(Edit1.Text[i])+1)
    else if Edit1.Text[i] in ['a'..'z'] then
      Edit2.Text:=Edit2.Text+IntToStr(ord(Edit1.Text[i])-96)
    else if Edit1.Text[i] in ['A'..'Z'] then
      Edit2.Text:=Edit2.Text+IntToStr(ord(Edit1.Text[i])-64);
  end;
end;

Answer 2

有两个相同的圆锥，一个正着放，一个倒着放。水深都是圆锥的3/1，则甲是乙的几倍