Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit1;
- interface
- uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Lista;
- type
- TForm1 = class(TForm)
- Panel1: TPanel;
- LBImie: TListBox;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- Label4: TLabel;
- Label5: TLabel;
- Label6: TLabel;
- LBNazwisko: TListBox;
- LBData: TListBox;
- LBUlica: TListBox;
- LBNr: TListBox;
- LBID: TListBox;
- Edit1: TEdit;
- Edit2: TEdit;
- Edit3: TEdit;
- Edit4: TEdit;
- Edit5: TEdit;
- Button1: TButton;
- Lista1: TLista;
- procedure FormCreate(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure AddToList;
- //----[Deklaracja rekordu]----------
- type Pacjenci = ^TPacjenci;
- TPacjenci = record
- Next: Pacjenci;
- imie: String[20];
- nazwisko: String[20];
- data_ur: String[11];
- ulica: String[15];
- nr_dom: String[6];
- id_lek: String[4];
- end;
- private
- { Private declarations }
- public
- Root: Pacjenci;
- Last: Pacjenci;
- end;
- //------------------------------------------------
- var Form1: TForm1;
- TF: TextFile;
- implementation
- {$R *.dfm}
- procedure AddToList(var head:Pacjenci; v: char);
- procedure TForm1.Button1Click(Sender: TObject);
- var NewOne: Pacjenci;
- AtList: Pacjenci;
- begin
- New(NewOne);
- NewOne^.Next:= nil;
- NewOne^.imie:= Edit1.Text;
- NewOne^.nazwisko:= Edit2.Text;
- NewOne^.data_ur:= Edit3.Text;
- NewOne^.ulica:= Edit4.Text;
- NewOne^.nr_dom:= Edit5.Text;
- NewOne^.id_lek:= Lista1.Text;
- Last^.Next:= NewOne;
- AtList:= Root;
- while AtList <> nil do
- begin
- LBImie.Items.Add(AtList^.imie);
- LBNazwisko.Items.Add(AtList^.nazwisko);
- LBData.Items.Add(AtList^.data_ur);
- LBUlica.Items.Add(AtList^.ulica);
- LBNr.Items.Add(AtList^.nr_dom);
- LBID.Items.Add(AtList^.id_lek);
- AtList:= AtList^.Next;
- end;
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- var NewOne: Pacjenci;
- AtList: Pacjenci;
- begin
- Root:= nil;
- Last:= nil;
- AssignFile(TF, 'C:\Users\Patryk\Desktop\PP\DB.txt');
- Reset(TF);
- while Not Eof(TF) do
- begin
- New(NewOne);
- ReadLn(TF, NewOne^.imie);
- ReadLn(TF, NewOne^.nazwisko);
- ReadLn(TF, NewOne^.data_ur);
- ReadLn(TF, NewOne^.ulica);
- ReadLn(TF, NewOne^.nr_dom);
- ReadLn(TF, NewOne^.id_lek);
- if Root = nil then
- begin
- Root:= NewOne;
- Last:= Root;
- end
- else
- begin
- Last^.Next:= NewOne;
- Last:= NewOne;
- end;
- end;
- AtList:= Root;
- while AtList <> nil do
- begin
- LBImie.Items.Add(AtList^.imie);
- LBNazwisko.Items.Add(AtList^.nazwisko);
- LBData.Items.Add(AtList^.data_ur);
- LBUlica.Items.Add(AtList^.ulica);
- LBNr.Items.Add(AtList^.nr_dom);
- LBID.Items.Add(AtList^.id_lek);
- AtList:= AtList^.Next;
- end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement