> terus gimana caranya mengambil inisial namanya itu menjadi : eod.
function TForm1.inisial(var Kata:String):string;
var Teks: String;
begin
if pos(' ',Kata) > 0 then
begin
teks:= Copy(Kata,pos(' ',Kata)+1,Length(kata)-pos(' ',Kata));
result:= Copy(kata,pos(' ',Kata)+1,1)+inisial(Teks);
end else result:= '';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(Copy(Edit1.Text,1,1)+inisial(Edit1.Text););
end;
Selamat mencoba
(DeDeL)
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
| Yahoo! Groups Sponsor | |
|
|
Yahoo! Groups Links
- To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
