TUGAS DELPHI

 .       klik pada button1 lalu ketikkan program seperti dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.SetFocus;

end;

           Jika sudah selanjutnya klik button2 lalu ketikkan program seperti dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);

var

F:Textfile;

nmfile:string;

begin

if savedialog1.Execute then

begin

nmfile:=savedialog1.FileName+'.txt';

assignfile(F,nmfile);

rewrite(F);

write(F,memo1.text);

closefile(F);

end;

end;

        Selanjutnya klik pada button3 lalu ketikkan program seperti dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);

begin

application.Terminate

end;

end.

1.Bikin Seperti ini

2. Lalu seperti ini

3.Seperti ini jadinya