Monday, March 30, 2009

Membuat dan menulis file notepad menggunakan Delphi

Mau buat program delphi untuk menulis file notepad, mungkin temen-teman mau mencoba program ini, untuk sekedar coba-coba atou urusan yang laen...!!!
Program ini menggunakan perintah yang sederhana dan dapat dipergunakan sesuai kebutuhan anda, seperi membuat file temp atau register atau apapun sesuai keinginan anda.
untuk membuat program, ikuti langkah-langkah seperti dibawah ini

1. Buka program dephi anda
2. Tambahkan 2 buah tombol(Button), 1 buah Memo dan sebuah save dialog seperti gambar dibawah ini




3. Tuliskan perintah-perintah yang berada dibawah ini kedalam form yang anda buat sebelumnya

procedure TForm1.Button1Click(Sender: TObject);
begin
// untuk tombol Tulisan baru
Memo1.Clear;
Memo1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
F:TextFile;
nmfile:String;
begin
//untuk tombol Simpan tulisan
If SaveDialog1.Execute Then
Begin
nmfile:=SaveDialog1.FileName+'.txt';
AssignFile(F,nmfile);
Rewrite(F);
Write(F,Memo1.Text);
CloseFile(F);
End;
end;

4. setelah teman-teman mengetikkan perintah diatas, coba jalankan program yang anda buat dengan menekan tombol "RUN" atau "F9" pada keyboad.
5. selamat mencoba



berikut adalah perintah lengkapnya:


unit Unit1;

interface

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

type
TForm1 = class(TForm)
HeaderControl1: THeaderControl;
Button1: TButton;
Button2: TButton;
SaveDialog1: TSaveDialog;
Memo1: TMemo;
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
// untuk tombol Tulisan baru
Memo1.Clear;
Memo1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
F:TextFile;
nmfile:String;
begin
//untuk tombol Simpan tulisan
If SaveDialog1.Execute Then
Begin
nmfile:=SaveDialog1.FileName+'.txt';
AssignFile(F,nmfile);
Rewrite(F);
Write(F,Memo1.Text);
CloseFile(F);
End;
end;
end.

ato kalo mau download file programnya bisa disini

No comments:

Post a Comment