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.