Mine

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TPolozka = record
      Jmeno:string[10];
      Prijmeni:string[15];
      Pokoj:string[5];
      Leky:string[30];
      Doba:string[10];
    end;
  Tpacient= array [1..100] of TPolozka;
  TFormProhlizet = class(TForm)
    LbPokoj: TLabel;
    LbLeky: TLabel;
    LbDoba: TLabel;
    LbPrijmeni: TLabel;
    BtNext: TButton;
    BtBack: TButton;
    BtKonec: TButton;
    BtErase: TButton;
    LbJmeno: TLabel;
    procedure BtNextClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtBackClick(Sender: TObject);
    procedure BtEraseClick(Sender: TObject);
    procedure BtKonecClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormProhlizet: TFormProhlizet;
  pacos:Tpacient;
  databaze:file of Tpacient;
  i,q,x:integer;
  podminka:boolean; //kvuli mazani
implementation

{$R *.dfm}


procedure GetData (i: integer);
begin
  FormProhlizet.LbJmeno.Caption:='Jméno : ' + pacos[i].Jmeno;
  FormProhlizet.LbPrijmeni.Caption:='Příjmení : '+pacos[i].Prijmeni;
  FormProhlizet.LbPokoj.Caption:='č. pokoje : '+pacos[i].Pokoj;
  FormProhlizet.LbLeky.Caption:='Léky : '+pacos[i].Leky;
  FormProhlizet.LbDoba.Caption:='Užit : '+pacos[i].Doba;
end;

procedure TFormProhlizet.BtNextClick(Sender: TObject);
begin
  podminka:=true; //tady se nastavi
  i:=i+1;
  GetData (i);
end;

procedure TFormProhlizet.FormCreate(Sender: TObject);
begin
  reset(databaze,'data.dat');
  read(databaze,pacos);
  closefile(databaze);

  i:=0; //aby se zobrazil prvni zaznam
  FormProhlizet.BtNextClick(Sender);
end;

procedure TFormProhlizet.BtBackClick(Sender: TObject);
begin
  i:=i-1;
  if (i < 1) then i := 1;
  GetData (i);
end;

procedure TFormProhlizet.BtEraseClick(Sender: TObject);
begin
    for x := i to 99 do begin
       Tpacient[i] = Tpacient [i+i];
    end;

    pacos[100].Jmeno := "";
    pacos[100].Prijmeni := "";
    pacos[100].Pokoj := "";
    pacos[100].Leky := "";
    pacos[100].Doba := "";

end;

procedure TFormProhlizet.BtKonecClick(Sender: TObject);
begin
    reset(databaze,'data.dat');
    write(databaze,'data.dat');
    close(databaze);
end;


end.