Код:
type
PMyRecord = ^TMyRecord;
TMyRecord = record
buf : array[Byte];
next : PMyRecord;
end;
var
MyRecord : PMyRecord = NIL;
...
procedure AddRecord;
var
P : PMyRecord;
begin
New(P);
P^.next := MyRecord;
P^.Buf[0] := 0;
MyRecord := P;
end;
...
procedure ClearRecord;
var
P : PMyRecord;
begin
while MyRecord <> nil do
begin
P := MyRecord;
MyRecord := P^.Next;
Dispose(P);
end;
end;
Вот тебе массив и вектор в одном флаконе. Дальше сам.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
|