Отправляет email-рассылки с помощью сервиса Sendsay

СообЧА. Программирование на Delphi

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Программирование в Delphi" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Ноябрь 2001   →
 1
 2
 3
 4
04.11.2001
22:52:51
22:53:01
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей

Статистика

10.085 подписчиков
-9 за неделю
←   Все выпуски   →

СообЧА. Программирование на Delphi


Служба Рассылок Subscribe.Ru
Сообча

Почтовая рассылка "Модные обои для Вашего рабочего стола"
Ежедневная рассылка самых стильных фоновых рисунков и фотографий для Вашего рабочего стола. Избранные обои из личной коллекции создателя популярной библиотеки полноэкранной графики "Wallpapers.ru"
Подписавшись на рассылку, Вы будете ежедневно получать письмо с уменьшенными копиями фоновых изображений (200x150 pix) + ссылки на оригинальные картинки (например, 1024x768 pix). Все графические материалы располагаются на сервере "Wallpapers.ru", поэтому у Вас не возникнет никаких затруднений при скачивании файлов.

Надо бы подписаться!

 PIXEL  рекомендует!!!

Загляните в архив рассылки!

Сообча :Мы снова с вами!

 Ведущий:Pixel

 В этом выпуске:

Жила-была девочка, и звали ее Красная шапочка. Вообщето шапочка у нее была серая , из волка, но носила она ее мясом наружу...  (с) Гуманист

 

 

Рассылки Subscribe.Ru это стильно удобно, и информативно!

СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы.

подпишись и подпиши друга!!!!

 Contact (Связь с Нами):

Pixel@novgorod.net + Subject:

Vcl Haunting

"Золотой Чайник"

Вопрос по дельфи N (номер версии)

Help!

 

 

 

 

Реклама (Слово о нашем спонсоре...)

К заголовку

Господа подписчики, близятся новогодние праздники, время начать думать о подарках (я знаю что еще октябрь месяц и не сошел с ума), а лучший подарок это книга... Приглашаю вас всех посетить интернет-магазин "ОЗОН", в нем вы найдете книги на любой вкус! Помимо разношерстных изданий по дельфи и языкам программирования вы найдете детскую , зарубежную и прочую литературу, а также множество учебников и учебных пособий на любой вкус...   

Если же вы не любите книги, то к вашему вниманию:

  • Лицензионные видеокассеты
  • Лучший ЛИЦЕНЗИОННЫЙ Софт и ПОПУЛЯРНЫЕ ИГРЫ  (большинство дисков идут в комплектации "Jewel Box", а это до 100р без учета доставки! )

Доставка В ЛЮБОЙ ГОРОД РОССИИ + оплата по получению. Возможна оплата по кредитной карты через интернет, если ВЫ ОЧЕНЬ ЦЕНИТЕ ВРЕМЯ то заказ доставят курьерской почтой!

Ура товарищи! Новый год не за горами !!!!

ВНИМАНИЕ , ЕСТЬ ЛИТЕРАТУРА ПО ДЕЛЬФИ 6, ЕЕ ЛЕГКО НАЙТИ ЧЕРЕЗ ПОИСКОВУЮ СИСТЕММУ НАБРАВ "DELPHI 6"

В ПРОДАЖЕ ЕСТЬ ЛИЦЕНЗИОННЫЙ WindowsXP (English Edition)!!!!!

Кстати это чистая НТ-ха с примочками от «талисмана»+отсутсвие перезагрузки при смене драйверов…  

 

Новости....

К заголовку

Ну вот я и вернулся. Сразу перейду к делу, для начала объявляю победтеля конкурса "Золотой Чайник" (барабанная дробь) им стал.... Попов Яков Александрович .

 

Проект: Тетрис с колобком

Оценки :

·         Оригиналиность 5/5

·         Исполнение         4/5 (Графика посредственная, но(!) использованы СТАНДАРТНЫЕ компоненты)   

·         Размер                  5/5  (не учитывая звуковые файлы)

·         Интерфейс           3/5

Итоговый балл: 4.25

Суть:

Игроку предоставляется стакан 20x30, в которые падают фигуры. Задача – управляя падающими фигурами, размещать их в стакане так,чтобы получались заполненные слои, которые самоуничтожаются.Если стакан заполняется выше красной черты – Вы проиграли!

 

В стакане бегает колобок:
Колобка нельзя оставлять без воздуха: если колобку нечем дышать (воздух поступает сверху стакана), у игрока есть всего 6 фигур,чтобы его освободить из замкнутого пространства, удаляя слои кубиков.

Е-майл автора: popovja@aport2000.ru 

 

P.S Наградой как я и обещал будет тема номера, поэтому (если автор хочет) пускай присылает историю создания, код программы и особые хитрости , которые нужно знать чтобы писать игры подобного типа будем ждать...

 

 

 

 

Философия Программирования

К заголовку

Как известно любая программа это произведение искусства (не спорьте, это моя точка зрения),но успех программы целиком зависит от вашего отношения к ней. То есть, как бы вам не хотелось, но программа которая вас не вдохновляет попросту не получится, это основное положение программирования. Любой кто пишет программу должен чувствовать ее, как если бы вы были частью этой программы. Поэтому программистами не становяться у вас это либо есть либо нет и небудет.

Ниже я привел листинг ошибочных мнений, которые начинающие склонны допускать.

·         Дебаггинг SUX, моя прога идеальна

·         Оптимизация лажа мой P4 это слопает, а вам надо ровняться со мной

·         Если я использую число не больше 255, то почему бы его не объявить как Integer?  

·         Много картинок и рульных VCLов это хорошо и красиво, мой 40 гиговый винт потерпит...

·         Если я этим не пользуюсь , так НАФИГА мне это знать (к слову о моем отношении к БД)

 

 

Создание БД файла  во время работы приложения

К заголовку

 

uses DB, DBTables, StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var

tSource, TDest: TTable;

begin

TSource := TTable.create(self);

with TSource do begin

DatabaseName := 'dbdemos';

TableName := 'customer.db';

open;

end;

TDest := TTable.create(self);

with TDest do begin

DatabaseName := 'dbdemos';

TableName := 'MyNewTbl.db';

FieldDefs.Assign(TSource.FieldDefs);

IndexDefs.Assign(TSource.IndexDefs);

CreateTable;

end;

TSource.close;

end;

Дополнение 

В совете, на мой взгляд, неточность. Приведен пример копирования структуры одной таблицы в другую. Если нужно создать таблицу, то:

Простейший способ – использовать SQL запрос. Таблицы можно создавать с индексом и без индекса.
Небольшой пример

const

CreateTab = 'CREATE TABLE ';

IDXTab = 'PRIMARY KEY ';

MyTabStruct =

'IDX_TAB DECIMAL(6,0), '+

'DATE_ DATE, '+

'FLD_1 CHARACTER(20), '+

'FLD_2 DECIMAL(7,2), '+

'FLD_3 BOOLEAN, '+

'FLD_4 BLOB(1,1), '+

'FLD_5 BLOB(1,2), '+

'FLD_6 BLOB(1,3), '+

'FLD_7 BLOB(1,4), '+

'FLD_8 BLOB(1,5) ';

…

// создание таблицы без индекса
procedure TForm1.Button1Click(Sender: TObject);
begin

if CreateTable('"MYTAB.DBF"', MyTabStruct, '') then

…
// выполняем дальнейшие операции

else

…
end;

// создание таблицы с индексом
procedure TForm1.Button2Click(Sender: TObject);
begin

if CreateTable('"MYTAB.DBF"', MyTabStruct, IDXTab+' (IDX_TAB)') then

…
// выполняем дальнейшие операции

else

…
end;

function TForm1.CreateTable(TabName, TabStruct, TabIDX: string): boolean;
var

qyTable: TQuery;

begin

result := true;

qyTable := TQuery.Create(Self);

with qyTable do

try

try

SQL.Clear;

SQL.Add(CreateTab+TabName+'('+TabStruct+TabIDX+')');

Prepare;

// ExecSQL, а не Open. Иначе ... облом

ExecSQL;

except

// Обработка ошибок открытия таблицы Возможности обработчика можно расширить.

Exception.Create('Ошибка открытия таблицы');

result := false;

end;

finally

Close;

end;

end;

 

 

 

 

До встречи...

Zaluskiy Anton(COOLer)  и Khrapunov Kirill(Pixel)  - ведущие проекта    "Мир Delphi"

Copyright : Pixelsoftware(Pixel)& Delphi 2000(COOLer)



о3онTopListSpyLOGRLE Banner Network

 

 

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу 		Рейтингуется SpyLog
В избранное