aplikasi penggabung nama menggunakan delphi 2010

Kali ini saya akan berbagi tutorial membuat aplikasi penggabung nama menggunakan delphi 2010

DESAIN FORM

Desain Properties

Design Properties

Objek	Caption	Name
Label1	Nama depan	Label1
Label2	nama belakang	Label2
Label3	nama akhir	Label3
Label4	nama lengkap	Label4
Button1	Gabung	Button1
Edit1	-	e1
Edit2	-	e2
Edit3	-	e3
Edit4	-	e4

Listing Program

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TForm11 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    e1: TEdit;
    e2: TEdit;
    e3: TEdit;
    e4: TEdit;
    Label4: TLabel;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);
var
depan:string[20];tengah:string[20];
akhir:string[20];gabung:string[80];

begin
   depan:=e1.Text;tengah:=e2.Text;akhir:=e3.text;
   gabung:=depan+'_'+tengah+'_'+akhir;
    e4.Text:=gabung;
end;

end.

itulah sedikit tutorial cara membuat aplikasi penggabung nama menggunakan delphi, untuk contoh filenya silahkan download di sini