» Вопросы по Delphi (до версии 2009) - часть 6

Update: вроде как удалось прикрепить данный запрос к предыдущему, из которого эти 6000 id и получались с помощью left join. Тестирую...

ESV1987
То есть 6000 айдишников - это результат запроса? А можно его увидеть, чтобы более детально обсудить.

ShIvADeSt

там сложный запрос

суть его в том, есть БД с 20000 объектами (ориентировочно). По каждому объекту полно информации (информация устаревает, условно говоря, по каждому объекту очень много решений на разные даты). По некоторому условию объекты фильтруются (условие задаётся оператором), потом для объектов, прошедших фильтр (N штук), выбирается самая поздняя по дате информация и её набор для N объектов сохраняется

второй мой запрос, в который я закидывал эти N объектов, доставал для них ещё доп. информацию из другой таблицы. Сейчас я тот запрос поджоинил с первым и всё ОК стало.

ESV1987

Цитата:

По некоторому условию объекты фильтруются (условие задаётся оператором), потом для объектов, прошедших фильтр (N штук), выбирается самая поздняя по дате информация и её набор для N объектов сохраняется

подобное на Oracle хорошо делается, прямо в SQL (windowing)

в Firebird тоже есть временные таблы, оч. удобно
но и постоянная подойдет, если туда вписывать уникальный ID группы

Было соообщение и убежало %)

Доброго времени суток! Нужно отобразить текст в каком нибудь контролле, например мемо поле. Но должен быть поиск по ctrl+f. Поиск который меня устраивает есть в TWebBrowser, но текст после загрузки отображается одной длинной строкой, которую нужно проматывать скроллом. Подскажите как лучше сделать? Может можно как то настроить в TWebBrowser или есть другие стандартные компоненты (сторонние не подойдут). Спасибо.

Man_Without_Face

Цитата:

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

Сделайте замену в тексте перед показом в браузере
s := StrUtils.ReplaceStr(s, #13#10, '<p>');

Цитата:

Сделайте замену в тексте перед показом в браузере

А без строки можно? Я пишу вот так, через мемори стрим не делал, не помню почему:
TBlobField(queXmlViewDetailLOG).SaveToFile(ExtractFilePath(paramstr(0)) + 'detail.xml');
WbDetail.Navigate(ExtractFilePath(paramstr(0)) + 'detail.xml');
А сейчас мне нужно обычный текст впихнуть.

Man_Without_Face

А RichEdit не пойодет? Там есть функция поиска текста, в хэлпе есть пример с диалогом

Man_Without_Face

В интернете всё уже есть - Поиск в TMemo с использованием TFindDialog

Цитата:

Может можно как то настроить в TWebBrowser

Можно пересносы добавить (<br/>)

Использую портабельную версию Delphi7 и почему-то не устанавливается пакет vclx70.bpl. Никто не сталкивался с такой проблемой?

Цитата:

Использую портабельную версию Delphi7 и почему-то не устанавливается пакет vclx70.bpl.

А что говорит?

в packages этот пакет прописан, но неактивный. Галочку ставишь, а она сама снимается. (

Цитата:

в packages этот пакет прописан, но неактивный. Галочку ставишь, а она сама снимается. (

присоединяюсь к вопросу
у меня тоже самое было с пакетом word2000 в delphi xe
так и не смог победить

плохо помню, но вроде лечил так: создавал новый package и запихивал туда все необходимое

Скорее всего в реестре запомнилось выключение пакета (пакет перенёсся в раздел игнорируемых при загрузке). Удали его из этого раздела ...

есть код:
adocommand.Parameters.ParamByName('param').value:=param;
adocommand.execute;

первый раз срабатывает нормально. но когда этот код выполняется еще раз, выдает ошибку - parameter 'param' not found
Как эту проблему решить?

nevermind00
ввиду отсутствия кода полностью - опять на хрустальном шаре гадать приходится
paramcheck чему равно?
возможно, текст запроса очищается зачем-то после execute

nevermind00
В коде запроса отсутствует param - как параметр.

Цитата:

parameter 'param' not found

adocommand.prepare попробуй поставить вначале

Цитата:

ant0ni02004
возможно, текст запроса очищается зачем-то после execute

Ааааа! извиняюсь!.. и правда, я далее в своем когде этим adocommand другой запрос выполняю! всю голову себе сломал!!!

Цитата:

правда, я далее в своем когде этим adocommand другой запрос выполняю!

Для исключения подобных ошибок было бы правильнее сделать функцию, исполняющую запрос, а adocommand сделать внутри локальным параметром. Случайное изменение глобального контекста - вообще довольно частая проблема.

Привет всем.
Хотел узнать, есть ли возможность изменить набор параметров у стандартного метода компонента?
Скажем, в обработчике клика на StringGrid сразу получать содержимое текущей ячейки.

Например:

Цитата:

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; CellText: String);
begin
ShowMessage(CellText);
end;

Вместо:

Цитата:

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var ACol, ARow: Integer;
begin
StringGrid1.MouseToCell(X, Y, ACol, ARow);
ShowMessage(StringGrid.Cell[ACol,ARow]);
end;

Цитата:

есть ли возможность изменить набор параметров у стандартного метода компонента?

Теоретически - да, но потребуется еще править вызывающий этот метод код VCL либо переписывать все это в наследнике.

Ichigo2

Цитата:

Хотел узнать, есть ли возможность изменить набор параметров у стандартного метода компонента?

Если метод виртуальный, то можно использовать reintroduce и начать цепочку новых виртуальных методов.

Еще вопрос. Есть ли стандартная функция вычитания (сложение по модулю 2) двух TStringList?
Вообщем есть два СтрингЛиста, надо найти строки, которые есть в СтрингЛист1 но нет в СтрингЛист2.

Цитата:

Есть ли стандартная функция вычитания (сложение по модулю 2) двух TStringList

Стандартной нет, но если списки сортированные, то она легко пишется самостоятельно и работает в один проход.

Коллеги, посоветуйте, в какой структуре программы лучше всего хранить поле
типа ntext, считываемое из БД SQL Server с целью последующего посимвольного разбора.
В. Фролов