Membuat animasi warna shape berkedip di delphi

Untuk membuat animasi warna shape berkedip - kedip dengan delphi, kita hanya menggunakan komponen timer untuk memanipulasinya, sedangkan untuk mengetahui perubahan warna pada shape digunakan komponen shape yang ada di tab Additional di komponen pallete. sedangkan komponen timer bisa di dapat pada tab system di komponen pallate.
langsung saja,klik ganda/double/dua kali pada timer tersebut dan isikan kodenya seperti di bawah ini :
if Shape1.Brush.Color=clWhite then
Shape1.Brush.Color:=clRed
else
Shape1.Brush.Color:=clWhite;
penjelasan singkat dari listing diatas adalah dengan menyeleksi apakah shape berwarna putih atau tidak, jika berwarna putih makan warna dari shape akan di ganti menjadi merah, begitu juga sebaliknya.

semoga bermanfaat.


referensi : google.co.id

Mengakses file txt di delphi

Pada tutorial kali ini saya akan menjelaskan tentang bagaimana cara mengakses file yang berekstesi .txt, langkah pertama yang harus dilakukan yaitu dengan membuat file txt dan di tempatkan dalam satu folder dengan aplikasi yang akan kita buat contohnya saya membuat file txt dengan nama bacatxt.txt dan diletakkan di dalam folder baca txt.
Langkah selanjutnya yaitu membuat aplikasi yang dapat mengakses file txt dan membaca isi di dalam file txt tersebut.
Tambahkan komponen button dan memo dan tempatkan di dalam form. Kemudian klik dua kali pada komponen button dan ketikan listing sebagai berikut :
procedure TForm1.Button1Click(Sender: TObject);
var
myFile : TextFile;
text : string;

begin
AssignFile(myFile, 'bacatxt.txt');

Reset(myfile) ;
Memo1.Clear;
while not Eof(myFile) do
begin

ReadLn(myFile, text);
Memo1.Lines.Add(text);
end;
CloseFile(myFile);
end;

simpan aplikasi yang kita buat dan di simpan satu folder dengan file txt yang kita buat tadi. setelah itu run aplikasi yang kita buat. ketika di jalankan dan button di klik maka isi yang ada di dalam file txt akan di salin dan dimasukkan ke dalam memo.

sumber : http://delphi.about.com