Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
- var a: string;
- i: integer;
- begin
- if Key = #13
- then
- begin
- if Edit1.Text <> '' then
- if edit2.Text = '' then
- edit2.Text:= edit1.Text;
- else
- edit2.Text:= edit2.Text + ' ' + edit1.Text;
- edit1.text:= '';
- end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement