pake fungsi ini..
ngambil directory
  ExtractFilePath()
ngambil nama file
  ExtractFileName()
ngambil extension
  ExtractFileExt()


On Thu, 2 Dec 2004 22:17:51 -0800 (PST), yancir yan
<[EMAIL PROTECTED]> wrote:
>
>
> hello teman - teman milis
> teman - teman milis mohon bantuannya. saya lagi menemukan kesusahan dalam mendapatkan
> nama dari suatu file yang saya buka dengan open dialog.
> berikut adalah listing saya :
> procedure TForm1.Button1Click(Sender: TObject);
> begin
>    if ( opendialog1.Execute ) then
>      begin
>          form1.Caption := opendialog1.FileName ;
>          edit1.Text := opendialog1.FileName ;
>      end;
> end;
> end.
> hasil dari sintak diatas pada edit text adalah :  C:\Program Files\BORLAND\Delphi7\install.txt
> padahal saya hanya ingin mendapatkan nama filenya saja yaitu : install.txt
> tapi saya gak tau caranya . tolong bantu saya .
>
> thanks
>
> kastawan
>
> ---------------------------------
> Do you Yahoo!?
>  Yahoo! Mail - 250MB free storage. Do more. Manage less.
>
> [Non-text portions of this message have been removed]
>
>
> Berlangganan: [EMAIL PROTECTED]
> Stop Berlangganan: [EMAIL PROTECTED]
> Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
> Yahoo! Groups Links
>
>
>
>
>


--
Feel free to visit
My Album: http://community.webshots.com/user/rusydanm
My Blog: http://blogwithblogandblog.blogspot.com


Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]



Yahoo! Groups Sponsor
ADVERTISEMENT
click here
Web Bug from http://us.adserver.yahoo.com/l?M=298184.5639630.6699735.3001176/D=groups/S=:HM/A=2434971/rand=438807382


Yahoo! Groups Links

Kirim email ke