Pitanje oko zapisa,tj record-a!!!!Imam mali probem oko zapisa tj record-a.Na formu sam ubacio 4 dugmeta,na prvo kad se klikne snimi se neka velicina u record i tako vise puta,ja zelim da kad klikam na sledece i predhodno dugme da se krecem kroz velicine koje sam snimio u record(u ovom slucaju to su imena).Probao sam na par nacina,i da kazem j+1,k-1,i for i:=8 down to 1 do,..., da bih mogao da se krecem kroz tu listu.Ako moze objasenje,i kako da znam za ubuduce,posto sam i ranije imao problema sa slicnim zadacima,doduse to je vise pitanje iz pascala nego iz delphija.Hvala,poz!
Code:
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.
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.
Ivan :)
