Aug 222010
 

haaahhh.. akhirnya setelah sekian lama bisa juga disempatkan sedikit waktu untuk post sebuah artikel tutorial. kali ini saya akan membuat sebuah tutorial untuk menggabungkan beberapa String atau kata menjadi sebuah string. Dan kemudian memisahkan kembali string yang telah di gabung tersebut menjadi beberapa substring. mungkin dalam penggabungan kita tidak akan terlalu menemukan masalah karena sangat mudah hanya dengan script sederhana. misal:

String:=''+string1+' '+string2+'';

namun bagaimana jika kita hendak memisahkan lagi 2 string yang telah digabung tersebut untuk keperluan edit data atau keperluan lainnya?? itu lah yang agak merepotkan..

hal seperti ini baru saja saya alami. dimana biasanya saya hanya memakai datetimepicker untuk menyajikan data berupa tanggal. Namun kemarin, saya diminta untuk menyajikan tanggal dalam bentuk 3 combobox. sebut saja masing-masing dengan cbhari, cbbulan, dan cbtahun. user menginputkan dengan 3 combobox tersebut lalu data tanggal disimpan dalam 1 field bernama tanggal (proses penggabungan string) dan jika suatu saat diperlukan edit data tanggal, maka tanggal yang tadinya telah disimpan menjadi 1 string harus dipisah lagi menjadi 3 substring tanggal. yaitu untuk hari, bulan, dan tahun. contoh:

user input tanggal :
cbhari=7
cbbulan=April
cbtahun=1999

kemudian data disimpan menjadi 7/April/1999. dan jika dibutuhkan edit, maka String 7/April/1999 harus dipisah lagi menjadi:
cbhari=7
cbbulan=April
cbtahun=1999

o iya, disini dipakai pemisah/delimiter tanda ‘/’ sebenarnya bisa juga memakai spasi,’;’, atau tanda lainya…

berikut source lengkapnya..



——————————begin—————————
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
Button1: TButton;
Button4: TButton;
Button2: TButton;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=”+combobox1.Text+’/’+combobox2.Text+’/’+combobox3.Text+”;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.terminate;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
s: string;
sl: TStringList;

begin
sl := TStringList.Create;
s := edit1.Text;
sl.Delimiter := ‘/’;
sl.DelimitedText := s;
combobox4.Text:=sl[0];
combobox5.Text:=sl[1];
combobox6.Text:=sl[2];
//ShowMessage(sl[0]);
end;
end.

————————————end———————————-

dan untuk memudahkan anda, silakan download source code lengkapnya di :



disini

  5 Responses to “Menggabungkan beberapa string kemudian memisahkan string menjadi beberapa substring berdasarkan delimiter pada delphi 7”

  1. kl dibuat versi C++ jd gmn ya??

  2. jadinya q lum tahu… 😀 dah lama ga main di C++ jadinya agak lupa juga… maf… thanks… 😀

  3. mas.. mw tny dong..
    klo parsing kata misal ny..
    kode_jumlah,kode_jumlah,kode_jumlah, dan seterusnya tergantung yg diinputkan berapa banyak gmn yaa..
    kirim email yaa.. trimss..
    klo bsa ma source code ny.. 😀

  4. mail sent… 😀

  5. gan,, bsa krimn lg.. maab ngerepotn..

 Leave a Reply

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

(required)

(required)