unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
BtnSnimi: TButton;
BtnNovi: TButton;
BtnSledeci: TButton;
BtnPredhodni: TButton;
procedure BtnSnimiClick(Sender: TObject);
procedure BtnNoviClick(Sender: TObject);
procedure BtnPredhodniClick(Sender: TObject);
procedure BtnSledeciClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TProba = record
Ime : string[30];
end;
var
Form1: TForm1;
Zapis: array[1..8] of TProba;
implementation
{$R *.dfm}
procedure TForm1.BtnSnimiClick(Sender: TObject);
var
i:integer;
begin
if MessageDlg('Snimi text?',mtConfirmation,[mbYes,mbNo],0)=MrNo
then Exit
else
for i:=1 to 8 do
Zapis[i].Ime:=Edit1.Text
end;
procedure TForm1.BtnNoviClick(Sender: TObject);
begin
if MessageDlg('Novi zapis?',mtConfirmation,[mbYes,mbNo],0)=MrNo
then Exit
else
Edit1.Clear;
end;
procedure TForm1.BtnPredhodniClick(Sender: TObject);
var
k:integer;
begin
for k:=1 to 8 do
begin
Edit1.Text:=Zapis[k].Ime
end;
end;
procedure TForm1.BtnSledeciClick(Sender: TObject);
var
j:integer;
begin
for j:=1 to 8 do
begin
Edit1.Text:=Zapis[j].Ime;
end;
end;
end.