phi3A`s Digital Notes

Procedure Parse(var sList:TStringList;psn:string);
var str,wrd:string;
begin
wrd:=”;
str:=psn;
while (Pos(’ ‘,str)>0) do               
   begin                                       
   wrd:=Copy(str,1,Pos(’ ‘,str)-1);   
   sList.Add(wrd);                            
   str:=Copy(str,Pos(’ ‘,str)+1,Length(str)-Length(wrd)+1);
   end;
if (Length(str)>0) then sList.Add(str);

===================================

Thx To Google

by OPICK feat AMANDA 

Bersujud kepada Allah
Bersyukur sepanjang waktu
Setiap nafasmu, seluruh hidupmu
Semoga diberkahi Allah

Bersabar taat pada Allah
Menjaga keikhlasannya
Semoga dirimu, semoga langkahmu
Diiringi oleh rahmatNya
Setiap nafasmu, seluruh hidupmu
Semoga diberkahi Allah

Alhamdulillah wasyukurilah
Besyukur padamu ya Allah
Kau jadikan kami saudara
Indah dalam kebersamaan

Bersujud kepada Allah
Bersyukur sepanjang waktu
Setiap nafasmu, seluruh hidupmu
Semoga diberkahi Allah
Semoga dirimu semoga langkahmu
Diriringi oleh rahmatnya

Alhamdulillah wasyukurilah
Besyukur padamu ya Allah
Kau jadikan kami saudara
Indah dalam kebersamaan

Alhamdulillah wasyukurilah
Besyukur padamu ya Allah
Kau jadikan kami saudara
Hilanglah semua perbedaan

Alhamdulillah wasyukurilah
Bersyukur padamu ya Allah
Bersujud kepada Allah
Bersyukur sepanjang waktu

========================

NSP of this month

29.11.2005   22.15

Xxxxx

…. I`m feeling like I`m losing my bestfriend.. I can`t believe this could be the end…

===============

Jangan bersedih..

Tidak ada yang abadi, termasuk persahabatan..

Kemarin mungkin dia adalah sahabat terbaik, curahan hati..

Hari ini, ntah kemana.. menghilang…

Di saat tak ada lagi tempat berkeluh kesah.. menulis mungkin bisa jadi katarsis

Di saat tak ada lagi tempat bersandar.. yang tinggal hanyalah Aku dan Dia

===================

Dedicated to my lovely bestfriend out there.. Don`t Be Sad..