用button点击显示 Edit的内容 送50！

来源：百度知道 编辑：UC知道 时间：2024/06/08 20:16:12
用button控制 Edit的内容

按一下 显示 ABC 然后按再按一下就+30、
、、怎么实现？
formcreate里边确定基础的数值
然后Click里边点一下，+30

函数总写错

求高手写

写完送50分 说到做到！

随便写写没测.
procedure tform1.formcreate(sender:tobject);
begin
edit1.text:='abc';
end;
proedure tform1.button1click(sender:tobject);
var s:string;
begin
if edti1.text <> '' then
begin
s:=copy(edit1.text,1,6);
if length(edit1.text)>6 then
begin
edit1.text:=copy(edit1.text,7,length(edit1.text)-6);
end
else
edit1.text:='';
edit1.text:=inttostr(edit1.text) +30;
end;
edit1.text:=s+edit1.text;
end;

将与edit框关联的变量设为全局变量，在按钮的响应函数里写你要的事情，最后加个updatedata()函数。