Membuat inisial nama dengan menggunakan Delphi

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;

Terbilang dengan menggunakan Delphi

Banyak rekan-rekan programmer yang bertanya bagaimana cara membuat program yang menerjemahkan dari sebuah angka ke sebuah kalimat (Terbilang) atau disebut juga program kwitansi.

ini saya buat scriptnya, nanti tinggal di copy paste aja bila ada rekan-rekan yang merasa memerlukannya.

Karena scriptnya terlalu panjang makan saya convert ke PDF. Klik yang ada tulisan “function-currtotext”

function-currtotext