两个Edit的故事

[Linux2001]

现在有两个Edit，Edit1和Edit2，现在需要的是Edit2.Text :='ABCD'已经设置好了，不用更改了，我现在需要在Edit1中输入字符，比如我在Edit1中输入a那么同步的Edit2中的Text就成为ABCDa，如果我在Edit1中接着输入b那么Edit1的内容是ab，但是Edit1中的内容是ABCDab，如何实现！请列出代码

[BigBen]

lazy......

[geliang]

同意楼上的,怪得其它人都说Delphi程序员素质差,哎

[武稀松]

geliang(回来的光芒) 你是哪来的？敢到这里说Delphi程序员素质差！

[wind8bell]

procedure TForm1.Edit1Change(Sender: TObject);
begin
edit2.Text :=s+edit1.Text ;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
s:=edit2.Text ;
end;

其中s在全局变量中定义。

[Mercedes]

不用全局变量了！
procedure TForm1.Edit1Change(Sender: TObject);
begin
edit2.Text :='ABCD'+edit1.Text ;
end;

xixi

[Linux2001]

geliang(回来的光芒)高手，以后有问题请执教了，我素质差没有什么能力，你素质高，能力高，顺便就帮我把号外，号外，那个帖子解决了吧

[taber]

<<那么Edit1的内容是ab，但是Edit1中的内容是ABCDab，如何实现！请列出代码

这里第二个Edit1应为Edit2吧？

在Edit1的Onchange里给Edit2赋值可以做到啊，只需将Edit2已设好的内容存放到一个常量里即可：
procedure TForm1.Edit1Change(Sender: TObject);
const
str = 'ABCD';
begin
Edit2.Text:= str + Trim(Edit1.Text);
end;

[hnxyy]

edit1 onkeyup

[Linux2001]

奇怪了，我昨天就是这样写的代码怎么不行。。。。。。。。。。妈的看来我的Delphi出问题了，大家可以看一下http://www.csdn.net/expert/topic/618/618454.xml?temp=.404751
这个帖子

[taber]

：）

[抱朴守拙]

hehe

[Linux2001]

如果Edit2需要加上分隔符号怎么办呢，比如：Edit1='ab';Edit2='ABCD'组合以后Edit2='ABCD\ab'或是Edit2='ABCD.ab'如果这个时候在Edit1中再改变就不加分隔符号了比如:Edit1='abc';Edit2='ABCD.abc'其中的'c'是直接加在ab的后面

[willingsilly]

办法一大堆，自己想，以后就不会问别人了！