Question

通过button1操作使edit1.text='Delphi program'，如何通过button2实现撤消动作

通过button1操作使edit1.text='Delphi program'，如何通过button2实现撤消动作，就是撤消button1操作使edit1.text='Delphi program'，使edit1.text='';
这种给值方式可以撤消吗
请问用StringList记录Edit1中曾经输入的值，这个怎么实现呀，具体思路是什么呀，是数组方式吗，或能给个例子吗

Answer 1

只是让Edit1为空的话，直接在Button2的点击事件中写edit1.text='';就可以
如果是想做撤销功能，相当于CTRL+Z快捷键功能的话，兆桐那你族埋坦得用StringList记录Edit1中曾经输入的值，然后再按照Button2的点击次数转换获取液逗StringList中的值赋给Edit1

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
i,s:integer;
begin
if Edit1.Text='' then begin
ShowMessage('Edit1不能誉散闭为空,请输入数字');
Exit;
end;
if Edit2.Text='' then begin
ShowMessage('Edit2不能为空,请输入掘轿数庆裂字');
Exit;
end;
s := 0;
for i:= StrToInt(Edit1.text) to StrToInt(Edit2.text) do
// for i:= StrToInt(Edit1.Caption) to StrToInt(Edit2.caption) do
begin
s := s + i ;
end;
ShowMessage(IntToStr(s));
end;

Answer 3

button1的点击辩源事件
edit1.text := 'Delphi Program';
button2的点击时间
SL.add(edit1.text);
edit1.text := '';
窗体的枝洞Formshow或者FormCreate事件里
SL := TStringList.Create;
SL 要定猛灶枯义成公共变量

Answer 4

Delphi中的赋值方式是 :=
为空的话应该丛掘改为信郑察Edit1.Text:='';
设置滑茄内容为Edit1.Text:='Delphi program';

Answer 5

可以的