Mencari File Dalam Sebuah Folder

Berikut ini adalah contoh bagaimana cara mencari file dalam sebuah folder atau direktory. Kita akan menggunakan Listbox dan button. Saat button diclik maka file yang ditemukan kita kirim namnya ke daftar listbox.

• Buat aplikasi baru
• tambahkan Tlistbox
• tambahkan Tbutton
• Pada button1 clik

procedure TForm1.Button1Click(Sender: TObject);
var FileSearch:TSearchRec;
S,TempF,Ucode:String;
FileAttrs:Integer;
AppPath:string;
begin
ListBox1.Items.Clear;
//target pencarian
AppPath:='c:\windows\*.txt';
if findfirst(S,faDirectory,FileSearch) <> 0 then
FileAttrs:=faArchive;
if FindFirst(AppPath, FileAttrs, FileSearch) = 0 then
begin
Ucode:=FileSearch.Name;
ListBox1.Items.Add(Ucode);
while FindNext(FileSearch) = 0 do
begin
Ucode:=FileSearch.Name;
//masukan hasil pencarian ke listbox
ListBox1.Items.Add(Ucode);
end;
FindClose(FileSearch);
end;

end;

Type Data Delphi

Beberapa tipe standar (atau built-in); kompilator ini mengakui secara otomatis, tanpa memerlukan sebuah deklarasi. Hampir semua jenis bahasa ini didokumentasikan dalam referensi yang telah ditetapkan.

Jenis lain diciptakan oleh deklarasi; ini termasuk jenis yang ditetapkan pengguna dan jenis produk didefinisikan dalam perpustakaan (library).

Jenis dapat digolongkan sebagai fundamental atau generik. Rentang dan format dari tipe fundamental adalah sama dalam semua implementasi dari bahasa Delphi, terlepas dari mendasari CPU dan sistem operasi. Rentang dan format dari tipe yang umum adalah platform spesifik dan dapat bervariasi di implementasi yang berbeda. Sebagian besar tipe standar mendasar, tapi segenggam integer, karakter, string, dan tipe pointer generik. Itu ide yang baik untuk menggunakan jenis generik bila mungkin, karena mereka memberikan kinerja yang optimal dan mudah dibawa.

Namun, perubahan dalam format penyimpanan dari satu implementasi dari generic tipe berikutnya dapat menimbulkan masalah kompatibilitas - misalnya, jika Anda puas streaming file sebagai bahan baku, data biner, tanpa jenis dan versi informasi.

Jenis dapat diklasifikasikan sebagai sederhana, string, terstruktur, pointer, prosedural, atau varian. Selain itu, ketik pengidentifikasi sendiri dapat dianggap sebagai milik khusus "type" karena mereka dapat dikirimkan sebagai parameter ke fungsi tertentu (seperti tinggi, rendah, dan sizeof).

di bawah ini menunjukkan taksonomi tipe data Delphi.

simple

ordinal
integer
character
Boolean
enumerated
subrange
real

string

structured

set
array
record
file
class
class reference
interface

pointer

procedural

variant

Hubungan Pointer dan Integer

Hubungan Pointer dan Integer
Selasa, 13 Oktober 09 - oleh : edy

Berikut ini contoh mengakses type data pointer dan integer

procedure TForm1.Button1Click(Sender: TObject);

var
X, Y: Integer; // X dan Y adalah variabel Integer
P: ^Integer; // P menunjuk ke Integer
begin
x:= 17; // menetapkan nilai X
P:= @X; // assign alamat dari X ke P
Y:= P^; // dereference P; assign hasilnya ke Y
showmessage(inttostr(y));
end;

Type data record dan contoh

record adalah Sebuah catatan (analog dengan struktur dalam beberapa bahasa) merupakan seperangkat unsur-unsun heterogen. Setiap elemen disebut field. deklarasi tipe record menetapkan jenis dan nama untuk setiap kolom. Sintaks dari deklarasi tipe record

type recordTypeName = record
fieldList1: type1;
...
fieldListn: typen;
end

contoh :

procedure TForm1.Button2Click(Sender: TObject);
type
TKursus =record
biaya:integer;
media:string[20];
materi:string[10];
online:boolean;
BolehDiangsur:boolean;
end ;
var
Konsultasi:Tkursus;
begin
konsultasi.biaya:=1000000;
konsultasi.media:='Chatting, ebook, source';
konsultasi.materi:='Delphi 7 & Database';
with konsultasi do
begin
online:=true;
BolehDiangsur:=true;
end;

if konsultasi.online then
showmessage('Kursus Online ...enak donk..!')
else
showmessage('susah donk..');

if konsultasi.BolehDiangsur then
showmessage('Ikutan ah...Mumpung ada uang..')
else
showmessage('Nunggu ngumpulin duit dulu..');
end;

Mengembalikan hasil FormatFloat

Saya punya data contoh :

t:=2500000

edit1.text:=FormatFloat('#,##0.00",t);

maka edit1.text = 2.500.000,00

Gimana sintaknya agar dari 2.500.000,00 menjadi 2500000??

klo dengan cara seperti ini:

StrToFloat(edit1.text);

malah error....

Thanks sebelumnya

jawab :

saya menggunakan button untuk proses ini, dari variabel berupa string dengan format mata uang dikonversi ke format normal yang hasilnya ditampilkan pada message

procedure TForm1.Button1Click(Sender: TObject);

var s,s2:string;

i:byte;

begin

s:='2.500.000,00';

s2:='';

for i:=1 to length(s) do

begin

if (s[i]='.') then s2:=s2

else

if (s[i]=',') then break

else

s2:=s2+s[i];

end;

showmessage(s2);

end;

isi textbox tidak bisa diisi angka

agar textbox tidak dapat diisi angka menurut saya begini sintaknya:

pilih textbox mana yang mo divalidasi, trz pd object inspector pilih event OnKeyPress, klik 2x masukan sintak ini :

if (key in['0','1','2','3','4','5','6','7','8','9'])then key:=#0;

klo hanya diisi angka saja

if not(key in['0','1','2','3','4','5','6','7','8','9',#8])then key:=#0;

Selamat mencoba !!!

di isi khusus aphabet

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['A'..'z',#8]) then key := #0;

end;

Menambah dan menghapus item pada combobox

kapan hari ada yang bertanya bagaimana item yang ada dicombobox yang sudah terpilih tidak boleh dipilih lagi...?

kalo dijawab sesuai pertanyaan maka akan menjadi masalah, karena combobox enabled akan menjadi mati karena tidak bisa dipilih. jadi harus dijawab secara akal akalan. Karena programmer emang kerjaannya ngakalin computer...

bukan ngakalin orang..

jadi untuk yang sudah terpilih itemnya harus di hapus dari daftar item pilihan... sama kayak acara salah satu tv Take Me Out..

berikut ini simulasi menggunakan 1 edit, 1 combobox dan dua buah button.

button1 untuk menambahkan item ke combobox data yang tertulis di edit1.

sedang button2 untuk menghapus item pada combobox sesuai yang tertulis di edit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

//tambah item
ComboBox1.Items.Add(edit1.Text)
end;

procedure TForm1.Button2Click(Sender: TObject);

begin

//hapus item

ComboBox1.Items.Delete(ComboBox1.Items.IndexOf(edit1.Text));
end;

end.

Site-site penting untuk masalah game di Linux

#

http://www.lokigames.com

http://www.happypenguin.com

http://www.linuxgames.com

http://www.linuxquake.com

http://games.Linux.com

http://www.mesa3d.org

http://linux3d.netpedia.net

http://www.linux3d.org

contoh : http://rangit.com/software/top-8-linux-games-of-2007/

Masih ada game Windows yang ingin Anda mainkan di Linux ? Tidak masalah, pasang saja PlayOnLinux .

let's play the game.. !!!

LiquidFM Mod - Tingkatkan Kualitas dengan Menambahkan sebuah Antena

Kensington LiquidFM external antenna hack from Max Moser on Vimeo.

Fly Free Photo Editing & Viewer

Menampilkan, mengedit ataupun memanipulasi gambar dengan mudah dan cept, tentunya akan banyak diminati oleh user. Terlebih bila aktivitas tersebut bukan merupakan hobi, melainkan pekerjaan yang berjumlah banyak.

File gambar kini tidak hanya dapat dinikmati pemiliknya saja, namun dapat dibagikan ke user lainnya ataupun dipamerkan melalui banyak cara. Salah satunya melalui website komunitas social seperti Facebook dan Flickr. Salah satu aplikasi yang dapat menjadi pilihan adalah Fly Free Photo Editing & Viewer.

Aplikasi ini memiliki interface yang menarik, serta lebih dari sekedar editor biasa. Tak hanya sebagai editor gambar, namun juga memiliki fitur lainnya, seperti batch photo slideshow, batch resize, online album tools, html konversi ke file gambar berekstensi jpg, multiple tab viewer, dan lain sebainya.

download di sini

WatermarkLib Image Editor 1.0

Mencari foto di Internet mudahbdilakukan. NAmun, tak semua orang yang menghasilkan foto-foto tersebut memperbolehkan hasil karyanya itu dipergunakan tanpa seizing ataau sepengetahuannya karena kemungkinan mengandung nilai jual atau informasi yang penting.

Solusi bagi masalah tersebut di atas, tampillah apa yang dikenal dengan watermark. Dengan cara ini, gambar akan ditandai dengan label atau pun teks untuk penanda hak kepemilikan. Untuk dapat membuatnya, cukup mudah. User dapat memanfaatkan berbagai aplikasi image editor baik itu yang sederhana maupun yang kompleks. Salah satu aplikasi yang dapat digunakan dengan mudah adalah WatermarkLib Image Editor.

Aplikasi ini dapat menambahkan teks dan gambar pada gambar-gambar untuk proteksi copyright/hak cipte. Aplikasi ini sangat powerful dalam penambahan watermark sehingga tak ada satu pun orang yang dapat menghilangkannya.

download di sini

Tweak Manager 1.0

Secara default, system operasi Windows menyuguhkan berbagai fasilitas dan fitur yang optimal yang belum tentu tepat atau cocok di pergunakan oleh user. Namun hal tersebut tidaklah menjadi kendala bagi user yang sejak awal men-custom Windows berawal dari CD installer Windows-nya. Aktivitas ini dikenal dengan istilah tweaking.

Dengan tweaking, tentunya user mendapati interface sistem operasi sesuai keinginan, mengoptimalkan pengguna resource, serta performa yang labih baik. User dapat melakukan otak-atik registry ataupun optimasi melalui beberapa aplikasi utilitas yang telah beredar.

Salah satu aplikasi yang dapat dipergunakan user untuk tujuan tweaking adalah Tweak Manager. Aplikasi ini menyajikan beberapa tweaking yang mudah dipilih dan diaktifkan oleh user, serta ditampilkan seperti daftar yang di sertai option checkbox.

Download di sini

Facebook Photo Uploader 1.4.1

Terdapat banyak website komunitas sosial yang tersedia saat ini. Salah satu yang terkenal adalah Facebook, di antaranya adalah chatting, user profile, album foto, aplikasi analisis, aplikasi game, dan lain sebagainya.

Yang menarik pada Facebook, foto yang ditambahkan tag sehingga lebih menarik. Tag ini dapat mengarahkan informasi terhadap konten foto, misalnya foto tersebut ada beberapa orang, dan tag tersebut menginformasikan nama tiap kali kursor diarahkan ke hadapan orang yang ada di foto tersebut.

Saat ini, user pengguna Facebook dapat lebih mudah lagi dalam meng-upload foto tanpa melalui web browser, yaitu menggunakan aplikasi berbasis Java yang dikenal dengan Facebook Photo Uploader. Aplikasi ini juga menyertakan fungsi tagging bagi foto sebelum di-Upload

Browser Defender 2.0.6.8

Aktivitas browsing sudah menjadi aktivitas keseharian bagi beberapa user. Tentunya keamanan menjadi suatu hal yang perlu dipertimbangkan dalam aktivitas tersebut. Tak sedikit user menjadi korban serangan maya. Perlu melakukan proteksi sejak dini untuk dapat menghindarinya, entah itu memasang aplikasi anti-phising, anti –malware ataupun anti-virus.

Salah satu aplikasi pendeteksi pada browser terhadap websit-website yang dikunjungi oleh user adalah Browser Defender. Aplikasi ini khusus didesain untuk memfalitasi browser Internet Explorer, berupa toolbar yang menampilkan rating situs yang dikunjungi sehingga memampukan user browsing dengan aman.

Server dari aplikasi Browser Defender melakukan pengesekkan website yang dikunjungi oleh user, dan akan menampilkan sebuah rating pad toolbar atas ancaman berbahaya yang didapati ada pada situs tersebut. Toolbar Browser Defender juga terintegrasi dengan beberapa fasilitas pencarian popular lainnya, seperti Google dan Yahoo! sehingga Anda dapat mengetahui website berbahaya atau tidak, sebelum mengunjunginya.

4Menu basic CD front end 1.513

Menu pilihan biasanya di temui pada beberapa CD, entah itu pad CD audio video ataupun CD data presentasi. Adapun penggunaannya mempermudah user mengakses isi CD. Untuk memiliki menu yang tampil diawal tersebut dapat menggunakan beberapa software, tergantung pada tujun dan fungsi kegunaannya.

Salah satu aplikasi yang dapat memebuat menu pilihan bagi user untuk presentasi, instalasi software atau menjalankan file .exe adalah 4Menu basic CD fornt end. Aplikasi ini sederhana, yang memampukan user untuk dapat membuat sebuah audtrun basic (self staring) CD untuk menjalankan aplikasi, termasuk file .exe, .pdf, .hlp, .zip, .chm, .dan lain sebagainya.

Sesuai dengan namannya, aplikasi versi gratis ini hanya menyediakan empat tombol untuk mengakses file dengan cepat dalam waktu 30 detik seja. Tentunya dalam penggunaan aplikasi ini, user harus memiliki salah satu aplikasi burning.

CD KEY WINDOWS 98 SE

Link download :
Win98_SE_CD-Key

Deskpecker 1.0 Beta

Aplikasi yang beredar saat ini tidak hanya mendukung pekerjaan, namun dapat juga berupa tambahan saja, yaitu berguna untuk mempercantik tampilan ataupun interface pada objek tertentu saja, misalnya jendela aplikasi atau dokumen yang aktif. Tentunya Anda tidak asing lagi melihat animasi gerakan sebuah hewan ataupun manusia pada desktop ataupun jendela Windows.


Banyak di antara aplikasi tersebut menjadi pelengkap bagi aplikasi lain, misalnya aplikasi yang menampilkan animasi penari bagi aplikasi winamp yang sedang berjalan atau sedang mendendangkan lagu ataupun aplikasi pelatihan pengucapan yang menampilkan sosok manusia dengan pergerakan mulut, wajah, serta suara. Beragam aplikasi dapat dipilih untuk menampilkan animasi yang diinginkan user. Nah, bagi Anda yang menyukai hewan burung dapat memilih aplikasi Deskpecker.

Tidak ada fungsi lain dari aplikasi ini, dengan kata lain hanya sekedar menampilkan animasi burung pematuk kayu atau lebih banyak dikenal pada sebuah film kartun ternama, yaitu Woody Woodpecker, akan terlihat.

download:
http://zamaansooft.com/products/dls/deskpecker_beta.exe

Balabolka 1.26.0.400

Membaca dan menulis merupakan aktivitas yang penting dalam pembelajaran sebuah bahasa internasional.Untuk dapat menguasai dengan baik, perlu berlatih. Anda dapat menggunakan aplikasi khusus pelafalan, salah satunya adalah Balabolka.

Aplikasi ini merupakan aplikasi text-to-speech. Melalui aplikasi ini, anda dapat mendengarkan pelafalan sebuah kata dalam teks. Dengan menginstalasi aplikasi inilah semua suara komputer tersedia pada sistem operasi anda.Teks on-screen/tampak pada layar dapat disimpan kedalam sebuah file WAV ataupun MP3. Aplikasi ini dapat membaca konten/isi clipboar, menampilkan teks file doc, rtf, dan hml, meng-costum font dan warna background, mengendalikan pembacaan yang berasal dari sistem tray ataupun hotkey global.

Balabolka menggunakan berbagai versi Microsoft speesch API (SAPI), yang memampukan Anda untuk mengubah parameter sebuah suara termasuk rate, pitch, dan volume. User termasuk Anda, dapat menerapkan sebuah daftar subtitusi khusus untuk meningkatkan kualitas artikulasi suara. Fitur inilah yang berguna bagi Anda di saat menginginkan perubahan pengejaan kata-kata. Perlu di ketahui bahwa aturan atas perbaikan lafal menggunakan sintaks VBscript.

Download :
http://www.cross-plus-a.com/balabolka.zip

SphereXP

Desktop merupakan tampilan awal yang ditemui oleh user di saat mengoperasikan sistem operasi. Ada pun penampilan desktop biasanya disertai den objek-objek tertentu, termasuk di dalamnya shortcut icon yang mengarah pada aplikasi tertentu sehingga memudahkan dan mempercepat akses bagi user.


Secara tidak langsung user akan terus menemui, dan bekerja dengan mudah melalui desktop tersebut. Tentunya pada beberapa user akan merasakan kejenuhan atau kebosanan melihat tampilan desktop yang selalu sama. Tak sedikit user yang melakukan perubahan, minimal pada background desktopnya. terdapat beberapa aplikasi pendukung yang dapat melakukan perubahan desktop, salah satunya adalah SphereXp.



Aplikasi ini didesain untuk menggantikan tampilan desktop yang lama, serta mengorganisasikan objek pada desktop. Anda akan mendapatkan tampilan desktop 3d yang menampilkan keindahan navigasi, dan manipulasi objek. Perlu adanya dukungan hardware ataupun software untuk dapat menggunakan aplikasi ini. Pastikan anda memiliki .Net Framework versi 2, serta kartu grafis yang mendukung 3D, dengan memory minimal 64 Mb, RAM 256 Mb, serta processor speed 1 Ghz

Download SphereXP
Download .Net Framework

6 Software gratis pencari file duplikat di Windows

Harddisk (HDD) saat ini memang semakin murah saja, dengan kapasitas yang tidak hanya Ratusan Giga Byte, tetapi sudah mencapai Tera Byte ( 1000 GB). Meskipun demikian kita kadang sering (lupa) menyimpan data-data yang sebenarnya sudah ada (sama), sehingga banyak space Hardisk yang tersia-siakan.

Cara mudah mengetahui file-file yang sama di hardisk adalah dengan menggunakan software pencari file duplikat.

Berikut 6 program/software gratis yang mempunyai fungsi mencari file-file yang sama di hardisk, selanjutnya bisa di hapus dan memastikan tidak ada file yang sama tersimpan dua kali atau lebih. Sehingga penggunaan space hardisk lebih efisien.

1. Fast Duplicate File Finder

Seperti namanya, selain mampu mencari dari lokasi folder, drive atau file di jaringan, program ini juga mempunyai berbagai fitur lainnya, seperti :

- Pencarian yang cepat menggunakan algoritma binary search.
- Adanya preview baik untuk image, video, audio, text atau binary file
- Fitur Automark, untuk menandai (memilih) file duplikat secara otomatis.
- File dapat di hapus, atau dipindah ke folder lain.

Fast Duplicate File Finder tidak memberikan fitur pencarian dengan ekstensi tertentu, tetapi melalui hasil yang ditampilkan, bisa dihindari pemilihan file-file tertentu.

Ukuran File : 1.53MB ( Installasi)
Sistem : Windows Vista/XP/2000/ME/98
Download Fast Duplicate File Finder

2. DoubleKiller

DoubleKiller bersifat portable dan tidak perlu menginstall untuk menjalankannya. Ukurannya pun relatif kecil, sekitar 392 KB. Meski tampilannya sederhana, DoubleKiller memberikan berbagai fitur seperti :

- Scan Directory, Drive, atau bahkan file di Jaringan yang terhubung.
- Bisa mencari file tertentu saja, misalnya *.mp3, *.dll, *.exe dan lainnya.
- Bisa mengkombinasikan berbagai kriteria, seperti nama file, ukuran, tanggal dan isi.
- Menghapus atau memindah file yang dipilih

Jika kita ingin memilih file secara otomatis, ada menu untuk memilih file duplikat pertama atau terakhir. Untuk sistem operasi yang diperlukan, karena hanya sebuah file, dan tidak perlu installasi (portable), program ini seharusnya bisa berjalan di semua versi Windows.

Ukuran : 392 kB (Portable)

Download DoubleKiller

3. Easy Duplicate Finder

Seperti halnya program sebelumnya, Easy Duplicate Finder mempunyai fitur yang hampir sama. Scan Folder atau drive, scan dengan kriteria tertentu ( file ekstensi tertentu), proteksi file sistem dan lainnya.

Untuk mempermudah pemilihan file hasil yang ditemukan, kita tinggal klik kanan di daftar file dan bisa otomatis memilih file tertentu menurut lokasi atau tanggalnya. Easy Duplicate Finder mempunyai dua versi, portable (tanpa perlu install) dan program dengan installasi.

Ukuran : 652 KB ( Installasi, windows 95/98/Me) dan 704 KB (portable, untuk semua versi Windows).
Lokasi Download : http://www.easyduplicatefinder.com/download.html

4. Duplicate File Finder 3.5

Duplicate File Finder 3.5 merupakan program pencari file yang sama dengan tampilan sederhana. Meskipun sederhana, tetapi mampu mencari file relatif cepat karena sudah menggunakan teknik multithreading dan hasilnya ditampilkan dalam daftar yang cukup memudahkan kita.

Dibanding program lainnya, Duplicate File Finder 3.5 mempunyai ukuran cukup kecil, hanya sekitar 112 KB, dengan hanya sebuah file exe dan juga bersifat Portable.

Ukuran : 112 KB (Portable)
Sistem : Windows 98/XP/Vista
website : http://www.brooksyounce.com/
Download DupFinder

5. Duplicate Cleaner

Dengan program ini, kita bisa mencari file yang sama berdasarkan konten, nama, ukuran atau tanggal. Selain itu disediakan berbagai fitur lainnya seperti :

- File filter (mencari untuk ekstensi file tertentu saja)
- Image Preview
- Selection Assistant, untuk mempermudah (kustomisasi) memilih file-file dari hasil yang ditemukan.
- Music Search, untu mencari fila audio ( MP3, WMA, OGG, APE, FLAC) berdasarkan kriteria seperti Title, Album atau Artist.

Untuk melindungi file-file penting, di bagian Options ada menu untuk memproteksi file di directory Windows, Program Files dan file EXE/DLL. Dibanding program sebelumnya, Duplicate Cleaner mempunyai ukuran installasi yang paling besar, sekitar 1.8 MB, tetapi kemampuan scan relatif cepat.

Ukuran : 1.8 MB
Sistem : Win 98/Me/XP/2000/Vista
Download Duplicate Cleaner ( dari CNET)

6. DirComp

Meskipun program ini relatif cukup lama dan tidak ada versi baru, tetapi cukup unik dan mengagumkan, karena program ini hanya berukuran sekitar 42 KB dan bersifat portable (paling kecil diantara 5 program sebelumnya).

Program ini dibuat dengan Delphi + Komponen KOL (seperti halnya program Kamus dan Shollu saya saya buat ). Jika ingin tahu lebih banyak program-program kecil yang telah dibuat lainnya (oleh pembuat DirComp) bisa melihat http://kolmck.net/e_apps.htm

Ukuran : 42 KB
Download DirComp 2.0

Thanks to :
Kang Ebta Setiawan

Kenalan

SMK TELKOM
LUAR BIASA.................................!!!!!




Blog ini saya buat untuk memberikan info-info software terhangat saat ini untuk anak-anak SKATEL, tetapi blog ini gak terbatas kepada anak-anak SKATEL aja So smua juga bisa baca postingan saya.