| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TStack [D6, Win95/98, Win2k]

UserL ©   (2002-11-25 11:30:00) 


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 12:50:00) [1]

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

---

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

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

---

han_malign   (2002-11-25 11:52:00) [3]

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 - может и небыть, но работать не будет).

---

Наверх