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.