» Вопросы по компонентам для Delphi, C++ Builder 2

Удалено. Я тормоз........

relictus
Насколько я помню, другого пути нет, кроме как запомнить ссылку в указателе

myxa0
SERGE_BLIZNUK

по поводу SQL запросов - TXQuery (есть в обменнике) решает эту проблему для любых TDataSet'ов. Так что, берите любую либу для чтения данных из dbf, а потом надстраивайте над таблицами SQL с помощью TXQuery.

Может кто знает - есть ли какой компонент/надстройка над Delphi 7, позволяющий делать collapse выбранных функций/процедур? (Достался в наследство чужой проект, в котором весь код находится в одном модуле, более 80.000 строк - задолбало прокручивать! ()

relictus
А на BDS тебе перейти никак?

Vladimir_Pashutin
Контора не хочет покупать! Говорят, достаточно вам и 7-ки

Тогда возможно придётся самому что-то ваять. По крайней мере я не смог эту проблему решить, пытался WebBrouser к этому делу приучить, но раньше чем закончил мне BDS попался, я обычно контору не спрашиваю на чём мне программировать. Удачи.

есть такой вопрос у компонента TADOTABLE есть свойство filter

например если я работаю с базами данных телефонного справочника
и хочу пустить фильтр по полю Фамилия например Иванов
то я делаю так


ADOTABLE.filter:=' Фамилия= ''Иванов''';
вот при этой команде все другие фамилии исчезают остаются только Ивановы

но это фиксированный вариант, тоесть я немогу поменять фамилию например с Иванова на Сидоров
тоесть мне надо чтобы в помпонент TEdit я забивал фамилию и он фильтровал
по этому значению

GTA3
Попробуй так
ADOTABLE.filter:=' Фамилия= ' + Edit.Text;

relictus

Цитата:

надстройка над Delphi 7, позволяющий делать collapse выбранных функций/процедур?

Надстроек таких нет. Год назад точно не было, а потом появился BDS.
Я когда-то списывался по этому вопросу с ребятами из GExperts - они говорят очень геморно делать.

Vladimir_Pashutin
нет так не катит выдает ошибку
[Error] Unit1.pas(69): Undeclared identifier: 'Edit'

Блин, а как называется твой компонент TEdit?

GTA3
тебе Vladimir_Pashutin дело говорит.
Ты на форму бросил компнент редактирования (Tedit) ?
Имя у него, наверное, не менял?
Тогда исправь на
ADOTABLE.filter :=' Фамилия= ' + Edit1.Text;

и ещё - если поле ввода будет пустое, возможно получите ошибку при фильтрации!
(проверить, что в поле что-то есть можно, например, так:

Код:
if Length( Trim(Edit1.Text) ) >0 then
ADOTABLE.filter :=' Фамилия= ' + Edit1.Text
else
ADOTABLE.filter := '';

Vladimir_Pashutin
ок я завтра попробую под рукой компилятора нету просто

Добавлено:
SERGE_BLIZNUK
а что означает

"if Length( Trim"

GTA3
Ф1 нажимать пробовал? посмотри там описание функции Length и процедуры Trim

Figaro2000
help на английском я особенно на нем не рулю

GTA3
да... ты поверь мне, без минимального знания английского ты далеко не уедешь..
ставь словарик на комп, переводи... или бросай программировать )

И ещё - это вопросы НЕ по компонентам.

теперь отвечу на твои вопросы (добью оффтопик ).
1)

Цитата:

На http://www.delphiplus.org
В разделе Документация|Delphi
"Файл справки по Object Pascal и Delphi 1 - Delphi 5"

или в разделе Документация | Delphi 5
"Справка по Delphi 5 и Object Pascal на русском языке версия 5.1"

http://DelphiPlus.org - ежедневные новости информационных технологий

2)
Length ( S : string) : integer - возращает длину строки
Trim( S : string) : string - возращает строчку с образанными пробелами спереди и сзади.

удачи.

SERGE_BLIZNUK
все равно как ты говоришь не получается

procedure TForm1.Button4Click(Sender: TObject);

begin

if Length( Trim(Edit1.Text) ) >0 then
datamodule2.BookTable.filter :=' Фамилия= ' + Edit1.Text
else
datamodule2.BookTable.filter := '';

end;

booktable это компонент TADoTable
он находится на другой форме (datamodule2)
сразу скажу что та форма подключена в разделе uses

при выполнении этой процедуры возникает такая вот ошибка

"Аргументы имеют неверный тип, выходят за пределы допустимого диапозона или вступают в конфликт друг с другом"

мдя.
SERGE_BLIZNUK
может, если есть такое сильное желание помочь, уйдете в приват? Все-таки здесь Вопросы по компонентам ...

GTA3
А так:

procedure TForm1.Button4Click(Sender: TObject);

begin

if Length( Trim(Edit1.Text) ) >0 then
datamodule2.BookTable.filter :=' Фамилия LIKE "' + Edit1.Text + '"'
else
datamodule2.BookTable.filter := '';

end;

Vixoid


а вот так все заработала на УРА
спасибо всем за помощь)

to relictus


Цитата:

Может кто знает - есть ли какой компонент/надстройка над Delphi 7, позволяющий делать collapse выбранных функций/процедур? (Достался в наследство чужой проект, в котором весь код находится в одном модуле, более 80.000 строк - задолбало прокручивать! ()

Попробуй вот это EControl Syntax Editor : _hччp://econtrol.ru/download.html

Там и текстовый редактор есть и компоненты. Правда это не в Delphi, а отдельно. но зато функционал который тебе нужен

Arvur

Цитата:

Отдельные, не старье и имеющиеся в варезном варианте:
Storage Library
LMD StoragePack

Спасибо за информацию. (плохо искал я в свое время, наверное...)

Наверное, бесполезно спрашивать, но... EurecaLog и madExcept (или может быть Exceptional Magic, SmartInspect, Raize CodeSite, JCL...)? Что же лучше использовать в конечных приложениях для обработки возникающих в приложении ошибок? EurecaLog и madExcept, вроде как, оптимально для этого подходят, так? Но кто же из них, вроде бы, плюсов и минусов примерно поровну?

to relictus

Попробуй Castalia http://www.delphi-expert.com/castalia/index.html
там есть удобный просмотрщик списка процедур

Цитата:

Попробуй Castalia http://www.delphi-expert.com/castalia/index.html
там есть удобный просмотрщик списка процедур

Тогда уж лучше посмотреть ModelMaker CodeExplorer, имхо.

Здравствуйте, подскажите пожалуйста где можно развернуто прочитать про работу нескольких пользователей с одним набором данный
есть ли у dataset стандартный механизм обновления (без полного fetch) или как это можно сделать

данная функциональность прекрасно реализована при работе с dbf (клиенты там работают фактически с одним физическим файлом и сразу видят чего менялось), а вот в SQL-архитектуре я натолкнулся на проблемки при одновременном внесении данных

Цитата:

Здравствуйте, подскажите пожалуйста где можно развернуто прочитать про работу нескольких пользователей с одним набором данный

Зависит от СУБД.

Цитата:

есть ли у dataset стандартный механизм обновления (без полного fetch) или как это можно сделать

Для записи по которой прошелся Update - DataSet1.Refresh, для добавленных и удаленных - не разбирался т.к. этих случаях быстро делаю CloseOpen.

xy
Вобще тогда лучше почитать транзакции и работа иже с ними. Блокировки записей.
И конечно же все завист от СУБД, метод реализации многопользовательской работы.
Обновление в основном через Close Open и востановление позии если важно (хотя быстрым это врядли назовеш).

OXDBA

Цитата:

Зависит от СУБД.

Сорри, конечно же имеется ввиду Firebird
хотя и по сути моего вопроса это совершенно не важно, ибо само по себе является проблемой SQL-архитектур

RedPromo
Цитата:

Вобще тогда лучше почитать транзакции и работа иже с ними.

спасибо, но на транзакциях я уже собаку съел, да не одну :)

проблема в том, что всё бы ничего, да и многие вообще об этом не задумываются, но тут мне как-то показали что вот в dbf как всё классно, и я призадумался - нельзя же прогрессивным SQL-архитектурам уступать на этом поприще ;)


Цитата:

Обновление в основном через Close Open и востановление позии если важно (хотя быстрым это врядли назовеш).

такой метод несовместим с быстродействием (например работаем с мегабайтным набором данных в медленной сети, причем для быстродействия делается полный fetch) ;)