TRaGeDi ItUpUn TeRuLaNG.....

Bumi menggelegar laksana guntur membelah angkasa,
Lumpur merangsek meratakan semua bangunan yang di lewatinya laksana lahar gunung berapi meratakan perbukitan dibawahnya,
Air bah menerjang semua yang ada di depannya laksana SatPol PP menggusur rakyat kecil tanpa peduli mereka benar atau salah,

Tragedi itu terulang kembali, tiada kekuasaan yang bisa menghalanginya kecuali Allah SWT.
Aceh, Nias, Bantul, Jember, dan sekarang Situ Gintung Tangerang.
siapa yang salah??
masyarakatkah yang tidak mampu berbuat banyak manakala mengetahui tanda-tanda akan terjadi bencana??
Tidak !!! bukan mereka yang harus disalahkan.
Lalu !! siapa yang harusnya di salahkan ??

bisakah orang-orang yang mempunyai kekuasaan merasakan yang bertengger diatas penderitaan masyarakat bisa merasakan apa yang sedang dirasakan korban sekarang??
bisa mereka membayangkan SEANDAINYA ITU TERJADI PADA MEREKA ATAU KELUARGANYA??

para bangsawan pemerintahan yang menikmati duit pajak rakyat hanya bisa saling pandang dan saling menyalahkan, kalau tidak mereka hanya bisa berkoar-koar menjadi sok pahlawan dengan sedikit bantuan yang mereka berikan itu pun tidak tau duit dari mana....

sudah mati rasa para bangsawan pemerintahan sekarang ini, mereka tidak ingat jasa2 masyarakat saat memilihnya menjadi pemimpin, atau atau malah mereka balas dendam dengan membiarkan rakyat yang tidak memilihnya terlunta-lunta..????

ini bukan takdir tapi lebih mengarah ke kebodohan dan ketidak pedulian para bangsawan negara ini mendengar keluh kesah rakyatnya.

PANTAS KAH PARA BANGSAWAN NEGARA INI DI PILIH KEMBALI???

TIDAK !!!!!!!!!!!!!!!!!!!!!!

Bencana Aceh = Takdir
Bencana Nias = Takdir
Bencana Bantul = Takdir
Bencana Jember = kecerobohan manusia
Bencana Situ Gintung = Kelalaian Bangsawan PEMERINTAHAN

mEmIsAh STRiNG...

Ada sedikit oleh2 dari ngobrol ma temen nih...

tentang memisah string ,aku cuman meringkas aja dari code temen biar tambah dikit gitu...

gini masalahnya :

-gimana cara memisahkan string yang ada di edit ke dalam list dengan pemisah ';' atau ',' atau '.' tau apa aja lah...



ni source nya....sederhana sekali loh....gak pake acara trim...



unit pisah;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type TForm1 = class(TForm)

ListBox1: TListBox;

Edit1: TEdit;

Button2: TButton;

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var Form1: TForm1;
implementation
{$R *.dfm}

function pilah(t,kode:string):TStringList;

var i:integer;

begin

result:=TStringList.Create();

if copy(t,length(t),1)<>';' then t:=t+';';

repeat i:=pos(kode,t);

result.Add(copy(t,1,i-1));

t:=copy(t,i+1,length(t)-i);

until t='';

end;


procedure TForm1.Button2Click(Sender: TObject);

begin

listbox1.Items.AddStrings(pilah(edit1.Text,';'));end;
end.





ini print screennya :