Скачать: CL | DM;

TStack   Найти похожие ветки 

← →
UserL   (2002-11-25 11:30) [0]


type
TMes = Record
MType: String;
Host: String;
Date: TDate;
Time: TTime;
Mes: String;
End;
...

MessageStack: TStack;
...


procedure TForm1.FormCreate(Sender: TObject);
begin
MessageStack := TStack.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
MessageStack.Free;
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
Var Mes: TMes;
begin
With Mes Do
Begin
MType := "Kernell";
Host := "192.168.122.133";
Date := Now;
Time := Now;
Mes := "Hi";
End;
MessageStack.Push(@Mes);
end;


Теперь вопрос...
Как из созданного стека вытащить записи занесенного Mes?

---

← →
han_malign ©   (2002-11-25 11:52) [1]

type
PMes = ^TMes;
TMes = Record
MType: String;
Host: String;
Date: TDate;
Time: TTime;
Mes: String;
End;
...
MessageStack: TStack;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
MessageStack := TStack.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
MessageStack.Free;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
Var Mes: PMes;
begin
New(Mes);
With Mes Do
Begin
MType := "Kernell";
Host := "192.168.122.133";
Date := Now;
Time := Now;
Mes := "Hi";
End;
MessageStack.Push(Mes);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
Var Mes: PMes;
begin
Mes:=PMes(MessageStack.Pop);
With Mes Do ........
Dispose(Mes);
end;
P.S. var Mes: TMes - - локальный блок памяти в стеке, при выходе из метода указатель @Mes - не будет валидным(будет указывать на участок стека который уже мог быть ипользован другим методом, violation - может и небыть, но работать не будет).

---

← →
UserL   (2002-11-25 12:23) [2]

А чтоб не удалять записи из стека, а просто их прочитать... все.
А удалить только тогда последнюю запись, когда добавиться новая (например нужно хранить всего 10 записей, а пришла 11 запись, удалить первую, добавить 11 и перечитать, чтоб, скажем, отобразить пользователю)...

---

← →
han_malign ©   (2002-11-25 12:50) [3]

то что нужно тебе - это не стек, а кольцевой буфер, вполне можно реализовать массивом или связным списком, если хочется красиво можно класс наваять

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c