RSS

Membuat inisial nama dengan menggunakan Delphi

28 Mar

Pasti Anda pernah di minta membuat program yang pada bagian nama seseorang di buat menjadi sebuah inisial nama. misalnya : Adam Air Udara, maka inisial sebuah nama Adam Air Udara menjadi : AAU

Berikut ini script programnya tinggal di copy paste saja apabila Anda memerlukannya.

function inisial(const fullname:string):string;
var strList:TStringList;
i:integer;
strinisial:string;
begin
strList:=TStringList.Create;
try
strinisial:=”;
strList.DelimitedText:=fullname;
strList.Delimiter:=#32; //32=ascii utk spasi
for i:=0 to strList.count-1 do
begin
strinisial:=strinisial+copy(strList[i],1,1);
end;
result:=strinisial;
finally
strList.Free;
end;
end;

 
Leave a comment

Posted by on March 28, 2008 in Tips Pemrograman

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: