Question

delphi 通过edit控件输入字符获取相应的位置？

例如：已知：3个edit控件，分别为：edit1.text，edit2.text，edit3.text。1个button控件，为button1。edit1.text:='abcdefg';当edit2.text:='a';时点击button1控件如何实现edit3.text:=1;当edit2.text:='b';时点击button1控件如何实现edit3.text:=2;请高手指教。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
SetLength(s, 1);
S := Edit2.Text;
Edit3.Text := IntToStr(Ord(S[1]) - Ord('a') + 1);
end;