I'm just a hobby Turbo Delphist. I'm sure this is one line of code simple to you, but I've tried everything :o and can't find it.

I want to add the text from 5 edit boxes [TEdit] to 1 edit box. Can you help me? Be an OnClick Button event.

It's just to make adding a url under name for a forum code.

[B]URL text[/B]

[.u.r.l.=. h.t.t.p.:/./.url. .].[.b.]. U.R.L. t.e.x.t. [./.b.].[./.u.r.l.]

The forum url code would be marked 'read only' ie. edit1 - edit3 - edit5 -- The 2 inputs are the URL and Name visible.

It's just to make it easier for me. :confused:



10 Years
Discussion Span
Last Post by linux


try this :

edit6.text := edit1.text + edit2.text + edit3.text + edit4.text + edit5.text;

or even beter this :

edit6.text := '(url=' + edit2.text + '(b)' + edit4.text + '(/b)(/url)';

I used ( instead of square brackets on purpose because we use BB tag on the forum and it confuses it. On your code write them with square brackets.

Loren Soth



try this :

edit6.text := edit1.text + edit2.text + edit3.text + edit4.text + edit5.text;

or even beter this :

edit6.text := '(url=' + edit2.text + '(b)' + edit4.text + '(/b)(/url)';

I used ( instead of square brackets on purpose because we use BB tag on the forum and it confuses it. On your code write them with square brackets.

Loren Soth

*** THANKS LOREN you save my donkey. (Equus asinus)

I was trying similar, but nowhere near it, and could have gone on for ever. Like edit6.text := (edit1) + (edit2) + (edit3) + edit4) + (edit5);

And don't you hate it when Delphi says:- EXPECTED ':' but FOUND ';' So, you put in ':' and it stops and says expected ';'

I'm a bit (lot) rusty beginner. Did my projects from looping together code snippets on the Net some years ago. Usual midi player, wav player, text pad, rich text pad, save bookmarks, and on and on. Got some from PC Plus also.

Did this too -- shame on me....

procedure TMainForm.Button1addClick(Sender: TObject);
   ebinput1, ebinput2 : string;

codecombine.text := '[.u.r.l.=' + 'ebinput1'  [B]+ '.[.b.].' + [/B][B] 'ebinput2' + '[/B][/.u.r.l].';

I searched every bookstore in Perth, WA and could not find a book on Delphi programming. Even the local agents didn't have an actual copy of Delphi 5, only an empty box.

Been using Delphi since about ver. 2, and what have we learned. Nick it off the Net, because someone has done it all before. ;)

Will try it when I get off the Net, but it looks good, even more the second one, no need to show the other TEdits.


Thanks again -- here is image of program. I'll put the link as well, in case it does not show up. And I think I'll try listing the code, although it may not turn out correctly displayed.




{There may be a problem at TinyPic - cutting off bottom of image.}

{{NO -- I think it's Firefox 2, check in Internet Explorer 7, and image is OK. Such is life.}}


Form > Miscellaneous
AlphBlend > set to True
AlphaBlendValue > set to 230 (Usually 255)

FormStyle > fsStayOnTop

Visual > BorderIcons > set to biMaximize False

*Change Button text to Bold > does not appear to work? >> nor colour?

I used to have Componet > dsFancyButton ?? also, that makes great looking buttons.

(Put a credit for (Lord) Loren Soth major help in the exe version info. :) Goes well with i8Spooky :) :) )

In days gone by used ASPack to compress my exe's. Reduces size by about 50%.

(This program is for a free forum I set up for BigPond ISP Aust. members.)


It's a Powered by phpBB © 2001-2003 phpBB Group board.

** Interesting thing -- I took a screen capture with Irfanview, and it just captured behind the Form!
So, it was the invisable Form. Maybe capture can handle -- Alpha blend???


unit forum1;


  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, huwStrutils, StdCtrls;

  TMainForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ebinput1: TEdit;
    ebinput2: TEdit;
    Button1add: TButton;
    codecombine: TEdit;
    Button2selectcopy: TButton;
    Button3clear: TButton;
    Button4exit: TButton;
    procedure Button1addClick(Sender: TObject);
    procedure Button2selectcopyClick(Sender: TObject);
    procedure Button3clearClick(Sender: TObject);
    procedure Button4exitClick(Sender: TObject);
    { Private declarations }
    { Public declarations }

  MainForm: TMainForm;


{$R *.dfm}

procedure TMainForm.Button1addClick(Sender: TObject);

      codecombine.text:= '(url=' + ebinput1.text + ')(b)' + ebinput2.text + '(/b)(/url)';

procedure TMainForm.Button2selectcopyClick(Sender: TObject);

procedure TMainForm.Button3clearClick(Sender: TObject);

procedure TMainForm.Button4exitClick(Sender: TObject);


I changed the Forum Code from end brackets to () like you suggested.

Yes -- just found F1 Delphi help again.

*I couldn't get a scroll bar on the Edit3 (codecombine), but may not need.


XP crashed :evil: -- or FROZE while I was writing this -- had to reboot and drop my Net connection. Luckily Firefox 2 loaded all tabs again, and fortunately the message was still there! :cool:


Oh, oh, better recompile -- looks like I left 'huwStrutils' in.


Your contribution helps us keep the site free for our members and the advertising as unobtrusive as possible.


Little program in Turbo Delphi.

It helps with quickly adding NAME on top of URL LINK. Also END TAGS to images -- without having to select the link in the 'post a topic' window.

Whacked it up on EZ-Files.net for downloading if you want it. Never used them before, so don't know how reliable they are.

download> Forum Code Linker


It's for bigbillabong forums, but may work in other forums.

****EDIT :: IMPORTANT ;;; FOR MODERATER I'm using Firefox 2.01 and I tried to insert a picture of the program, but it keeps disappearing. Did a quick check in IE7 and there appears to be 3 pictures there. Cut them if you can. Apparently, my Firefox is NOT PERFECT! Does not show images on forum. Sorry for multi ones I see in IE7, but have to go now...

This article has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.