/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 712
от 20.01.2007, 11:35

Вопрос № 70.865

доброго времени суток уважаемые эксперты у меня такой вопрос база данных InterBase как после SQL запроса из выданных значений в DBGrid-е например из второй колонки вытащить 3(строку) значение и присвоить его например Label1.Caption это может быть поле Date,Integer,VarChar если это играет значение огромное спасибо за ответ особенно за подробный ответ

Отправлен: 14.01.2007, 13:57 Вопрос задал: Fins (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Крылов Александр Владимирович Здравствуйте, Fins! Можно данные получить из DataSource, к которому обычно присоединяют DBGrid. Если DBGrid соединенн с DataSource, то в таком случае неважно откуда получать данные - из DBGrid или из DataSource. Выглядеть это будет вот так: var i:integer; j:byte; k:integer; begin k:=2; DataSource.DataSet.First; // ставим курсор на первую запись for i:=1 to k do DataSource.DataSet.Next; // после прохождения цикла курсор будет стоять на k-той записи, в данном случае на второй Label.Caption:=DataSource.DataSet.Fields[j].AsString //получаем значение j-того столбца как строку (нумерация столбцов начинается с нуля) end;

Ответ отправил: Крылов Александр Владимирович (статус: 1-ый класс) Ответ отправлен: 14.01.2007, 21:42

Вопрос № 70.867

Здравствуйте, Уважаемые Эксперты!!! Пожалуйста, помогите, никак не могу найти инфу по динамическим структурам данных. Если не трудно покажите маленькие примеры, как реализовать стек в Delphi, как реализовать очередь и линейный список. Небольшие примерчики покажите, пожалуйста, чтобы понять, как с такими структурами работать. Заранее ОГРОМНОЕ всем СПАСИБО!!!

Отправлен: 14.01.2007, 14:10 Вопрос задала: Алена (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Troyan Здравствуйте, Алена! С праздниками! Информация насчет стека в приложении. Приложение: {Стек} Type TP = ^SP SP = record INF : CHAR; LINK : TP; {Для организации и ведения стека должны быть предусмотрены два указателя: TOP и K} Var Top, K : TP; CH : CHAR; {Для добавления элемента в стек необходимо: -образовать динамическую переменную по указателю K -занести в нее нужную информацию -в поле указателя нового элемента занести значение указателя TOP -указателю TOP присвоить значение указателя K} NEW(K) K^.INF:=CH; K^.LINK:=TOP; TOP:=K; {Для удаления элемента из стека достаточно: -прочитать информацию CH:=TOP^.INF -в указатель TOP занести указатель удаляемого элемента TOP:=TOP^.LINK} K:=TOP; TOP:=K^.LINK; CH:=K^.INF; DISPOSE(K); {Формирование стека с самого начала. Стек из N элементов} TOP:=Nil; WHILE N>0 DO BEGIN NEW(K); READ(CH); K^.INF:=CH; K^.LINK:=TOP; TOP:=K; TOP:=K; N:=N-1; END; {Выбор всех элементов стека (самостоятельно)} REPEAT K:=TOP; TOP:=K^.LINK; CH:=K^.INF; WRITE(CH); DISPOSE(K); UNTIL TOP=NIL; --------- Кто к нам с чем за чем от того и того!

Ответ отправил: Troyan (статус: 4-ый класс) Ответ отправлен: 14.01.2007, 14:51

Отвечает: mvp Здравствуйте, Алена! Загляните на http://sources.ru/wiki/doku.php?id=pascal:linear_data_structure - там есть всё что вам нужно и даже больше. Правда на pascal... В дельфи итак уже есть готовые классы для многих динамических структур, например очередь (TQueue). Но, если надо самой сделать, то тогда смотрите ссылку --------- Моя совесть чиста - не бывшая в употреблении

Ответ отправил: mvp (статус: Студент) Ответ отправлен: 15.01.2007, 15:33

Вопрос № 70.892

Как перевести стринг в char вот здесь: Приложение: ShellExecute(Application.Handle, 'open','http://web.com'+Edit1.text, nil, nil, SW_NORMAL);

Отправлен: 14.01.2007, 16:20 Вопрос задал: Sassoft (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Sassoft! ShellExecute(Application.Handle, 'open', PChar('http://web.com'+Edit1.text), nil, nil, SW_NORMAL); Удачи! --------- Ждешь квалифицированного ответа? Задай правильно вопрос!

Ответ отправил: Устинов Сергей Евгеньевич (статус: Практикант) Ответ отправлен: 14.01.2007, 16:26

Отвечает: Troyan Здравствуйте, Sassoft! С помощью функции PChar(s), где S - строковая переменная. --------- Кто к нам с чем за чем от того и того!

Ответ отправил: Troyan (статус: 4-ый класс) Ответ отправлен: 14.01.2007, 16:27

Вопрос № 70.904

Здравствуйте! Вопрос по теме:Создание объекта по имени класса Используя "FindClass('TLabel')" или "GetClass('TLabel')", можно создать объект класса TLabel и получить даступ к свойсвам left,top,wifth,name... этого объекта (for ex: "Констукция FindClass('TLabel').name") Но при попытке описания конструкции "TControl(Findclass('TLabel')).caption" , компилятор выдает ошибку,мол: "не могу получить доступ к защищенному свойству TControl.Caption." "TLabel(Findclass('TLabel')).caption" исправляет ошибку. тем самым требуется создавать ветвления,что приводит к снижению универсальности. Как обойтись без испльзования "TLabel(..).caption" или "TEdit(..).Text" или "TRadioButton(..).onclick"? Зарание спасибо! Приложение: var NO:Tcontrol; NC: TPersistentClass; begin NC:=findclass('TLabel'); NO:=Tcontrol(TComponentClass(NC).Create(self)); NO.Left:=10; //--------------------------------------------------------------------------- TControl(NO).caption:='TLabel'; //Error->Cannot access protected symbol TControl.Caption// //--------------------------------------------------------------------------- end;

Отправлен: 14.01.2007, 17:10 Вопрос задал: _Lexxus_ (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, _Lexxus_! Для того чтобы рассеять Ваше недоумение, достаточно заглянуть в исходники. TControl находится в файле controls.pas. Свойство Caption компонента TControl находится в разделе protected, следовательно получить защищенное свойство класса Вы не можете. Рассчитывайте только на те свойства, которые находятся в разделе public или published. Кроме того, единственное средство универсализации как раз и является приведение типов TLabel(...), TEdit(...).

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 14.01.2007, 18:20 Оценка за ответ: 5

Вопрос № 70.925

Здравствуйте, уважаемые эксперты! Подскажите пожалйста, как мне сделать программу, при запуске которой появляется иконка в трее, и, щелкнув по этой иконке, появляется меню (общий вид). Заранее спасибо!

Отправлен: 14.01.2007, 19:00 Вопрос задал: Bingo (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Coupler Здравствуйте, Bingo! В приложении текст программы. На форме - mainmenu с пунктом "выход". Иконка - в файле icon.ico. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ShellApi, StdCtrls; const MYWM_NOTIFYICON = WM_USER + 100; MyIconID = 100; type TForm1 = class(TForm) PopupMenu1: TPopupMenu; ShowItem: TMenuItem; N1: TMenuItem; Edit1: TEdit; Edit2: TEdit; XiButton1: TXiButton; mxStatusBar1: TmxStatusBar; procedure FormDestroy(Sender: TObject); procedure N1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public procedure MYWMNOTIFYICON(var Message: TMessage); message MYWM_NOTIFYICON; end; var Form1: TForm1; implementation {$R *.dfm} FUNCTION MyTaskBarAddIcon(wnd: HWND; uID: integer; Icon: HICON; S: STRING): Boolean; VAR tnid: TNOTIFYICONDATA; BEGIN tnid.cbSize := SizeOf(TNOTIFYICONDATA); tnid.Wnd := wnd; tnid.uID := uID; tnid.uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP; tnid.uCallbackMessage := MYWM_NOTIFYICON; tnid.hIcon := Icon; Lstrcpyn(tnid.szTip, PChar(S), SizeOf(tnid.szTip)); Result := Shell_NotifyIcon(NIM_ADD, @tnid); END; FUNCTION MyTaskBarDeleteIcon(wnd: HWND; uID: integer): Boolean; VAR tnid: TNOTIFYICONDATA; BEGIN tnid.cbSize := SizeOf(TNOTIFYICONDATA); tnid.Wnd := wnd; tnid.uID := uID; Result := Shell_NotifyIcon(NIM_DELETE, @tnid); END; FUNCTION MyTaskBarModifyIcon(wnd: HWND; uID: integer; Icon: HICON; S: STRING): Boolean; VAR tnid: TNOTIFYICONDATA; BEGIN tnid.cbSize := SizeOf(TNOTIFYICONDATA); tnid.Wnd := wnd; tnid.uID := uID; tnid.uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP; tnid.uCallbackMessage := MYWM_NOTIFYICON; tnid.hIcon := Icon; Lstrcpyn(tnid.szTip, PChar(S), SizeOf(tnid.szTip)); Result := Shell_NotifyIcon(NIM_MODIFY, @tnid); END; PROCEDURE TForm1.MYWMNOTIFYICON(VAR Message: TMessage); VAR Cur: TPoint; BEGIN IF Message.WParam = MyIconID THEN CASE Message.LParam OF WM_RBUTTONDOWN: BEGIN GetCursorPos(Cur); PopupMenu1.Popup(Cur.X, Cur.Y); END; END; END; procedure TForm1.FormDestroy(Sender: TObject); begin MyTaskBarDeleteIcon(Handle, MyIconID); end; procedure TForm1.N1Click(Sender: TObject); begin close; end; procedure TForm1.FormCreate(Sender: TObject); begin MyTaskBarAddIcon(Handle, MyIconID, ExtractIcon(Handle,'icon.ico',0) , 'Example'); end; end.

Ответ отправил: Coupler (статус: Студент) Ответ отправлен: 14.01.2007, 19:16

Вопрос № 70.972

Приветствую Всех!!! Возможно вопрос простейший, но ни разу не сталкивался с этим. Имеется приложение, описанное как обычное приложение. Нужно: 1) поместить его в трэй так, чтобы по правой кнопке мыши вызывалость два пункта: (Остановаить/Запустить - меняется в зависимости от состояния проги на данный момент или ставится галочка - например "Активно") и "Выход". 2) можно ли сделать, чтобы его вообще не было видно даже в трее. Программу пишу исключительно для собственных нужд - она будет пинговать определенный узел, чтобы не разорвалось соединение по умолчанию. Соответственно, никаких вредоносных конструкций добавлять не собираюсь, просто сотрудникам, которые работают со мной даже было бы удобнее не видеть ее даже в трее. И еще, повторю свой вопрос. Когда используется ICMP.Ping и соединение разорвано (процедура TForm1.Pinger) - вылетаем с ошибкой сокета: "EIdSocketError 'Socket Error #10065 No route to host'" Как с этим бороться, если мне, скажем, нужно просто остановить пингование через заданный промежуток времени или вообще завершить программу? Заранее благодарен. С уважением, Павел Форсман. Приложение: unit NoDisconnect1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient, IdException; const HostIP='193.47.87.105'; //Хост для пингования TTL=55000; //Периодичность TimeReply=5000; //Время первичного ожидания type TForm1 = class(TForm) Timer1: TTimer; Icmp: TIdIcmpClient; procedure Construct(Sender: TObject); procedure Pinger(Sender: TObject); procedure Parse(ASender: TComponent; const AReplyStatus: TReplyStatus); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Construct(Sender: TObject); begin Timer1.Interval:=TTL; Icmp.Host:=HostIP; Icmp.ReceiveTimeout:=TimeReply; Form1.Visible:=False; end; procedure TForm1.Pinger(Sender: TObject); begin try Icmp.Ping(); except halt; end; end; procedure TForm1.Parse(ASender: TComponent; const AReplyStatus: TReplyStatus); begin if (AReplyStatus.ReplyStatusType<>rsTimeOut) and ( AReplyStatus.ReplyStatusType<>rsEcho) then halt; end; end.

Отправлен: 15.01.2007, 05:15 Вопрос задал: Форсман Павел Вячеславович (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Nick_K Здравствуйте, Форсман Павел Вячеславович! Вы можете использовать компонент CooltrayIcon. Он имеет функции отображения/не отображения программы в системном трэе, а также в панели задач.

Ответ отправил: Nick_K (статус: 2-ой класс) Ответ отправлен: 15.01.2007, 10:35

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 ООО "Мастер-Эксперт Про", Москва, 2007 Авторские права | Реклама на портале Версия системы: 4.41 beta от 19.01.2007