Форум: "Игры";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
Внизprocedure TForum.Destoy; Найти похожие ветки
← →
BBear (2003-03-01 20:49) [0]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;
← →
Anatoly Podgoretsky (2003-03-01 20:55) [1]Что нам делать с данной процедурой?
← →
Mihey (2003-03-01 21:14) [2]2 Anatoly Podgoretsky:
Очевидно, читать и завидовать.
← →
Snap (2003-03-01 21:18) [3]Это он видать форум сломать пытался- да вот незадача- форум то на перле (по моему) написан...
← →
Mihey (2003-03-01 22:48) [4]По-моему, вопрос очевиден, по крайней мере автор так думает.
← →
BBear (2003-03-02 13:47) [5]а как на перле форум удалить?
← →
Programist (2003-03-02 13:50) [6]procedure bber.idiot(Sender: TObject)
begin
bber.idiot:=true;
end;
Страницы: 1 вся ветка
Форум: "Игры";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.025 c