对于编辑中的反向词的循环

Question

这是我目前使用的代码:

procedure TForm1.Button1Click(Sender: TObject);
var a:string;
    i:smallint;
begin
  a:=Edit1.text;
  for i:= 1 downto length(Edit1.Text) do
   begin
    Edit2.Text:= {last letter};
   end; 

我希望程序取出单词的最后一个字母Edit1.Text并将其打开Edit2.Text.我能做什么？如果您需要,可以看到该程序的图片:

Answer 1

您可以尝试使用ReverseString();StrUtils中包含的函数.因此,首先添加StrUtils您的uses子句.然后把这个代码而不是for循环:

begin
  a:=Edit1.text;
  Edit2.Text:=ReverseString(a);
end;

它与你的相同,但这种方式更容易.另外,如果你想要字符串的长度只需写下这段代码:

Edit3.Text:=IntToStr(length(your_edit.text));

当然,而不是your_edit键入编辑的正确名称.