Серверы Counter-Strike: Форумы / Delphi (Object Pascal) / Delphi(модальные формы)
Форумы

Серверы Counter-Strike :: Форумы :: Программирование :: Delphi (Object Pascal)
 
<< Предыдущая тема | Следующая тема >>
Delphi(модальные формы)
Переход на страницу  1 2 [3]
Модераторы: kapitowka, Agnet*, Acid Biscuit, CL0NE, ShaRhaN, McNamara, Coltovsky, HuKuToC, Jake_One, Chaos2Order
Автор Добавил
CL0NE
11.08.2010, 23:33
Редкий гость, наблюдатель...

364891953


none


ID пользователя #690
Зарегистрирован: 29.12.2008, 09:34

Сообщений: 535
Отблагодарен: 30 раза в 26 сообщениях
Репутация: 31

о_О

Хаить его лишь за то, что он язык более высокого уровня
в мыслях вообще-то не было...

  1. type
  2. TEmpioyee = class(TObject) private
  3. FName: string;
  4. FTitle: string;
  5. FSalary: Double; public
  6. property Name: string read FName write FName;
  7. property Title:, string read FTitle write FTitle;
  8. property Salary: Double read FSalary write FSalary;
  9. function CaicuiateSaiary:
  10. Double; end;


  1. procedure TForml.ButtonlClick(Sender: TObject); begin
  2. Color := clGray;
  3. Buttonl.Color := clTeal; end;
  4.  


Не мое оно :|

  1. #include "base.h"
  2.  
  3. class BaseDerivedPrivate;
  4. class BaseDerived: public Base
  5. {
  6. public:
  7.     BaseDerived();
  8.     int testInt();
  9.     virtual ~BaseDerived();
  10. private:
  11.     BaseDerivedPrivate* d;
  12. };
  13.  




Читаем правила
Правила для тех, кому лень читать:

"The best way to predict the future is to invent it." - Alan Kay.

"Заговори, чтоб я тебя увидел." - Сократ.
Наверх
kapitowka
11.08.2010, 23:35
FreeBSD The Power To Serve

статус Skype
STEAM_0:0:34602107

[RAT]


ID пользователя #1
Зарегистрирован: 01.01.1970, 02:00

Сообщений: 3245
Отблагодарен: 222 раза в 166 сообщениях
Репутация: 61

Вот и я о том-же, писать для БД на паскале одно удовольствие




-------------------------------------------------------
Правила сервера

Банлист


Наверх
Сайт
kapitowka
11.08.2010, 23:38
FreeBSD The Power To Serve

статус Skype
STEAM_0:0:34602107

[RAT]


ID пользователя #1
Зарегистрирован: 01.01.1970, 02:00

Сообщений: 3245
Отблагодарен: 222 раза в 166 сообщениях
Репутация: 61

И к чему, то, что ты написал?
Это типа один код на паскале, а один на си?
Так они вдоль и в поперек разные, к чему их равнять?




-------------------------------------------------------
Правила сервера

Банлист


Наверх
Сайт
CL0NE
11.08.2010, 23:40
Редкий гость, наблюдатель...

364891953


none


ID пользователя #690
Зарегистрирован: 29.12.2008, 09:34

Сообщений: 535
Отблагодарен: 30 раза в 26 сообщениях
Репутация: 31


  1.     QSqlDatabase = QSqlDatabase::addDatabase("QSQLITE");
  2.     db.setDatabaseName("test.sl2");
  3.     if (!db.open())
  4.     {
  5.         qDebug() << db.lastError().text();
  6.     }
  7.     else
  8.     {
  9.         QSqlQuery query = QSqlQuery::QSqlQuery(db);
  10.         QString queryStr = "DROP TABLE IF NOT EXISTS `categories`";
  11.         query.exec(queryStr);
  12.     }

В Qt не менее приятно

Просто ты же сказал синтаксис один в один А отрезки кода показывают некоторые различия, из-за коих я предпочитаю второе первому. Отделить предлагал именно по причине их различности.



[ Редактирование 11.08.2010, 23:45 ]


Читаем правила
Правила для тех, кому лень читать:

"The best way to predict the future is to invent it." - Alan Kay.

"Заговори, чтоб я тебя увидел." - Сократ.
Наверх
McNamara
11.08.2010, 23:46
hi, call me cArp

586660909 статус Skype
STEAM_0:0:36089863

dk FK MC ua


ID пользователя #1075
Зарегистрирован: 27.07.2009, 21:33

Сообщений: 2138
Отблагодарен: 122 раза в 91 сообщениях
Репутация: 57

давайте заново почнем з простого, а то ті куски кода....

  1. #include <conio.h> //
  2. #include <iostream.h> //
  3. void main ()
  4. {
  5. cout<<"Hello World";
  6. }

а тер то саме на бейсіку або асамблері

upd
і вот таково усе, я тік розігрівся як всі вже післи спати, обідно (((



[ Редактирование 11.08.2010, 23:57 ]




Скрытый текст, вы должны войти для просмотра

Наверх
Сайт
Alexandr
12.08.2010, 08:28



Нет тимы


ID пользователя #1975
Зарегистрирован: 07.05.2010, 11:18

Сообщений: 202
Отблагодарен: 7 раза в 5 сообщениях
Репутация: 9

О_о. Смотрю в книгу - вижу фигу... Веселая тема, только них не понятно




Al
Наверх
Сайт
kapitowka
12.08.2010, 09:40
FreeBSD The Power To Serve

статус Skype
STEAM_0:0:34602107

[RAT]


ID пользователя #1
Зарегистрирован: 01.01.1970, 02:00

Сообщений: 3245
Отблагодарен: 222 раза в 166 сообщениях
Репутация: 61

Раздел программирования создан, спрашивайте и обсуждайте




-------------------------------------------------------
Правила сервера

Банлист


Наверх
Сайт
Сообщение отблагодарили: 2 раз(а)а
Переход на страницу  1 2 [3]  

Перейти:     Наверх

Транслировать сообщения этой темы: rss 0.92 Транслировать сообщения этой темы: rss 2.0 Транслировать сообщения этой темы: RDF
Powered by e107 Forum System