Arsip: ambil tipe file

more 13 years ago
weiy
Salam, mau nanya dgn master2 disini.....
ada yg tahu gimana caranya ambil nama extension file di delphi
saya pake open dialog, trus file itu di-open
misalnya alamatnya C:/tugas/web1.html
kemudian saya ingin ambil nama extension file tersebut, yaitu HTML aja....
nama tipe file tersebut saya mau simpan
saya ingin tau apa ada function langsung dari delphi
kalo diakali pake label , saya uda pernah coba
gitu aja, trims bagi yg bersedia membantu
by the way, ada gak master2 delphi yg berdomisili di jogja..
saya perlu bantuan nih....ada komisi deh....hehehehehe

more 13 years ago
cyber_hecker
:D @dE emang keren.. wekekek..
seperti biasa, diriku menyediakan source code sederhananya buat para pemula :

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
OpenDialog1: TOpenDialog;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses StrUtils;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
sFileName: string;
begin
if OpenDialog1.Execute then begin
sFileName := ExtractFileName(OpenDialog1.FileName);
Delete(sFileName,
Pos('.',sFileName),
Length(sFileName) - Pos('.',sFileName)+1);
Edit1.Text := ExtractFileName(sFileName);
Edit2.Text := ExtractFileExt(OpenDialog1.FileName);
end;
end;
end.

more 13 years ago
Budiadi
cool man :-) :-),
DE memberikan filsafatnya CH memberikan penjabarannya, akhirnya jadi teranglah dunia,..a.aa.aa

more 13 years ago
cyber_hecker
wekeke... :D, habis nick kalian mirip sih.. tapi santai aja klo diriku emang untuk deLogic itu @dE, tapi buat DelphiExpert itu @DE :P (alasan gak mau disalah in) wekekeke...., habis klo deLogic di panggil @DL kayak download ajah...

more 13 years ago
xerion
hehe saya juga salah sebut, tapi udah dibetulin :p
wakkakak :) mas cyber_hacker urat syaraf ketawanya udah nyambung 100% :mrgreen:
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Harga Software
by delphi1st in Tip n Trik Pemrograman more 14 years ago - [help] kirim data ke mikro
by willbrig in Enginering more 13 years ago - menghitung stok barang ?
by jajang in Hal umum tentang Pascal Indonesia more 12 years ago - Buat media player untuk karaoke
by mijojogja in Multimedia & Graphic Enhancement more 14 years ago - memangil procedure/ function ke form2
by nurez in Tip n Trik Pemrograman more 13 years ago - Mohon bantuan scale tampilan display MediaPlayer
by nizar in Hal umum tentang Pascal Indonesia more 15 years ago - Ask: koneksi mySQL di internet
by cyber_hecker in MySQL more 13 years ago - problem install zeos
by wong_error in Hal umum tentang Pascal Indonesia more 14 years ago - Tolong ya... aku dibantuin.
by Zulkarnain in OOT more 14 years ago - Koneksi Client to ke Server using Interbase....newbie
by cheetoozz in Hal umum tentang Pascal Indonesia more 14 years ago