clip_image002Na formi se nalaze OpenDialog (od), SaveDialog (sd), ListBox (ListBox1), memo komponenta (memo1), meni komponenta, edit polje, dugme i dve labele. Potrebno je uneti ime i prezime u edit, iz liste izabrati smer i potvrdom na dugme ok u memo polje dodati učenika. Kada se unesu svi učenici, spisak treba snimiti kao tekstualni fajl. U meniju podaci se nalaze opcije snimi, snimi kao i otvori. Izborom opcije snimi kao fajl se snima pod novim imenom, opcija snimi omogućuje snimanje nekih promena na postojećem fajlu, a opcija otvori omogućava otvaranje postojećeg fajla pomoću proyora Open.

Kod:

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

memo1.Lines.Add(edit1.Text+’ ‘+listbox1.Items[listbox1.ItemIndex]);

button1.Enabled:=false;

edit1.SetFocus;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

button1.Enabled:=true;

end;

procedure TForm1.otvori1Click(Sender: TObject);

begin

if od.Execute then begin

memo1.Lines.LoadFromFile(od.FileName);

sd.FileName:=od.FileName;

end;

end;

procedure TForm1.snimi1Click(Sender: TObject);

begin

if sd.FileName<>“ then

memo1.Lines.SaveToFile(sd.FileName)

else

snimikao1.Click;

end;

procedure TForm1.snimikao1Click(Sender: TObject);

begin

if sd.Execute then

memo1.Lines.SaveToFile(sd.FileName);

end;

end.

Advertisements