Паскаль. Структуры и алгоритмы обработки данных

[Римма]

Ага постараюсь и буду иметь в виду.

[Stilet]

Вот тебе к раздумью :

unit Unit1;

interface

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

type
E=Record
lointer;
a,b:string[100];
nointer;
end;
//*********************************** *********************************** ****
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var pointer;z:^e;
Form1: TForm1;

implementation

{$R *.dfm}


// Кнопка Добавить запись
procedure TForm1.Button1Click(Sender: TObject);

begin
if z<>nil then
p:=z;
new(z);
z.l:=p;
z.a:=Edit1.Text;
z.b:=Edit2.Text;
if p<>nil then
e(p^).n:=z;
end;


// Кнопка показать следующую запись
procedure TForm1.Button2Click(Sender: TObject);
begin
if e(p^).n<>nil then begin
p:=e(p^).n;
Edit1.Text:=e(p^).a;
Edit2.Text:=e(p^).b;
end;{}
end;


// Кнопка Показать предидушую запись
procedure TForm1.Button3Click(Sender: TObject);
begin
if e(p^).l<>nil then begin
p:=e(p^).l;
Edit1.Text:=e(p^).a;
Edit2.Text:=e(p^).b;
end;{}
end;

end.


Обьяснить код или разберешся?

[Римма]

Ой спасибинки.Дааа и у тебя и скорость.Ну пока понятно. Если ще крикну. А ты сам кто программист да?

[Stilet]

Ну, кажись, одной ногой там )))
Если что в Асю можеш стучать

[Римма]

А сюда сразу не можешь скинуть номер а? Так быстрее был бы.

[Stilet]

Аськи? 420162866