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
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
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
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.
Seja o primeiro a comentar
Posting Komentar