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

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 199
от 09.08.2003, 09:20

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 830
Отправлено ответов: 1517
Активность: 182.7 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Артём Шегеда
Статус: Профессиональный
Общий рейтинг: 116.85
URL: Пристанище неодинокого программиста
[Подробней >>]
Marouder
Статус: Опытный
Общий рейтинг: 130.92
URL: Первый Хабаровский Форум
Телефон: (4212) 21-93-65
[Подробней >>]
ART_43
Статус: Доверительный
Общий рейтинг: 125.64
[Подробней >>]
 
Дима Мусиенко
Статус: Опытный
Общий рейтинг: 109.29
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 821. Здравствуйте эксперты! Помогите разобраться с DBGrid-oм.У меня есть такой компонент TPageControl т.е... (ответов: 1)
Вопрос № 823. Пишу я значит архиватор свой для игрушек... Осталось тока приличный вид сделать: Подскажите компонен... (ответов: 1)
Вопрос № 824. Хочу создать визуальный компонент от TComponent, но раньнше у меня такой практик не было, поэтому пр... (ответов: 2)
Вопрос № 825. по зарез нужен алгоритм расчета сколько осталось дней от текущий даты до указанной как назад так и в... (ответов: 3)

Вопросов: 4, ответов: 7


 Вопрос № 821

Здравствуйте эксперты! Помогите разобраться с DBGrid-oм.У меня есть такой компонент TPageControl т.е. несколько вкладок(TabSheet1,TabSheet2...) на них находятся таблицы Table1,Table2... т.е. DBGrid1,DBGrid2,....Мне надо сделать кнопочку TButton(добавить запись) чтобы при её нажатии, запись предположим записанная в Edit(находится за пределами TPageControl) добовлялась только в активную таблицу(вкладку)
Я пишу примерно так:
procedure TForm1.BitBtn1Click(Sender: TObject);
case PageControl1.TabIndex of
1:IF Table1.Locate('Автор',StrToInt(edit1.Text),[loCaseInsensitive])=true then
MessageDlg('совпадение',mtInformation,[mbok],0)else
begin
Table1.Insert;
Table1.FieldByName('Год').AsInteger:=strtoint(Edit1.text);
Table1.FieldByName('Автор').AsString:=Edit2.Text;
Table1.FieldByName('Название литературы').AsString:=edit3.Text;
Table1.FieldByName('Источник').AsString:=edit4.Text;
Table1.FieldByName('Примечание').AsString:=Edit5.text;
Table1.Post;
Table1.Close;
Table1.Open;
end;
и т.д.с Table2....
сначало работало,но добовлялась запись во все таблицы(вкладки) потом стало выдовать ошибку:
-Declaration expected 'CASE' found.
Помогите пожайлуста, я в Delphi разбираюсь ещё плохо,жду ответов.Николай.


Приложение:


Вопрос отправлен: 05.08.2003, 11:04
Отправитель: николай (chuprin_kolya@rambler.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает Артём Шегеда

Здравствуйте, николай!

Первое. После объявления процедуры должно идти объявление констант, типов, переменных и меток (если процедура таковые использует). Потом сам код, обрамлённый скобками begin...end. Почитай доку по Pascal.
Второе. Всё-таки что находится на TabSheet's - TTable's или TDBGrid's? Скорее, второе - поскольку TTable's принадлежат форме, а не визуальным компонентам на ней. Итак, имеем:

Приложение:

Ответ отправлен: 06.08.2003, 11:35
Отправитель: Артём Шегеда


 Вопрос № 823

Пишу я значит архиватор свой для игрушек...
Осталось тока приличный вид сделать:
Подскажите компонент на делфю 5(7) FileList как в Winrar...
Думаю что кто-то все равно написал... самому что-то не хочется:)
Если отправите на torry.net скажите хоть название что-ль... пробывал искать - все нето:(



Вопрос отправлен: 05.08.2003, 13:46
Отправитель: Ландграф Павел

[Следующий вопрос >>] [Список вопросов]

Отвечает Marouder

Доброе время суток, Ландграф Павел!
В обычном TListView можно сделать, если постараться.


Ответ отправлен: 06.08.2003, 12:32
Отправитель: Marouder


 Вопрос № 824

Хочу создать визуальный компонент от TComponent, но раньнше у меня такой практик не было,
поэтому прошу помочь мне. Если у кого есть наработки, кидайте, пожалуйста на ящик.
А если нет, то скажите хотя бы, как сделать, чтобы он на этапе разработки отображался не в виде иконки,
а в своём "настоящем виде". Заранее, спасибо. Кстати, я пишу на Delphi.



Вопрос отправлен: 06.08.2003, 08:03
Отправитель: Xych (xych@land.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает ART_43

Добрый день, Xych!
тебе наверно больше подойдет TWinControl

Ответ отправлен: 06.08.2003, 16:38
Отправитель: ART_43


Отвечает Артём Шегеда

Здравствуйте, Xych!

Для создания визуальной компоненты используй базовый класс TCustomControl. Переопредели его методы Create, Destroy и Paint - и новая компонента готова!
Рекомендую взглянуть на исходный код компоненты THintWindow (Source\VCL\controls.pas)


Ответ отправлен: 06.08.2003, 11:59
Отправитель: Артём Шегеда


 Вопрос № 825

по зарез нужен алгоритм расчета сколько осталось дней от текущий даты до указанной как назад так и вперед очень нужен этот алгоритм...
С уважением, maDByte



Вопрос отправлен: 06.08.2003, 09:14
Отправитель: maDByte

[Следующий вопрос >>] [Список вопросов]

Отвечает Дима Мусиенко

Приветствую Вас, maDByte!
Вот, когда-то давно писал, правда на паскале.


Приложение:

Ответ отправлен: 06.08.2003, 11:01
Отправитель: Дима Мусиенко


Отвечает ART_43

Здравствуйте, maDByte!
DaysBetween из модуля DateUtils

Ответ отправлен: 06.08.2003, 16:37
Отправитель: ART_43


Отвечает Marouder

Доброе время суток, maDByte!
А что, разве трудно это сделать? Перевести годы и месяцы в дни. Модуль разности текуго кол-ва и указанного - количество оставшихся дней.

Ответ отправлен: 06.08.2003, 12:33
Отправитель: Marouder



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (36)
C / C++ (24)
Perl (3)
Builder / Delphi (17)
Pascal (23)
Basic / VBA (12)
Java / JavaScript (11)
PHP (9)
Криптография (9)
WinAPI (15)
Пользователю
Windows 95/98/Me (44)
Windows NT/2000/XP (53)
"Железо" (42)
Поиск информации (26)
Администратору
Windows NT/2000/XP (26)
Linux / Unix (11)
Юристу
Гражданское право (10)
Семейное право (6)
Трудовое право (7)
КоАП (5)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
© 2001-2003 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное