| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
procedure TForum.Destoy;
BBear © (2003-03-01 20:49:00)
var
i, j : Integer;
begin
for i := 1 to Self.PagesCount do
for j := 1 to Self.Page[i].TopicsCount do
while Self.Page[i].Topic[j].MessagesCount > 0 do Self.DeleteTopMessage;
FreeMem(Self.MessagesData);
FreeMem(Self.UsersData);
Log.Write("all messages deleted");
inherited Destroy;
end;
Programist (2003-03-02 13:50:00) [1]
procedure bber.idiot(Sender: TObject)
begin
bber.idiot:=true;
end;
BBear (2003-03-02 13:47:00) [2]
а как на перле форум удалить?
Mihey (2003-03-01 22:48:00) [3]
По-моему, вопрос очевиден, по крайней мере автор так думает.
Snap (2003-03-01 21:18:00) [4]
Это он видать форум сломать пытался- да вот незадача- форум то на перле (по моему) написан...
Mihey (2003-03-01 21:14:00) [5]
2 Anatoly Podgoretsky:
Очевидно, читать и завидовать.
Anatoly Podgoretsky (2003-03-01 20:55:00) [6]
Что нам делать с данной процедурой?
| |
