решение - Поиск - Библиотека программиста

Поиск

Home или Professional?

Дата: 23.03.2025 Модуль: Категория: Операционные системы (ОС)

Разместил: admin Смотрим и оставляем комментарий »

Переустанавливаем Windows

Дата: 23.03.2025 Модуль: Категория: Операционные системы (ОС)

Разместил: admin Смотрим и оставляем комментарий »

Увеличить релевантность объявлений AdSense

Дата: 23.03.2025 Модуль: Категория: Веб-дизайн

Разместил: admin Смотрим и оставляем комментарий »

Регистрационный процесс в AdSense: FAQ

Дата: 23.03.2025 Модуль: Категория: Веб-дизайн

Разместил: admin Смотрим и оставляем комментарий »

Секреты правильной раскрутки сайтов

Дата: 23.03.2025 Модуль: Категория: Продвижение интернет-проектов

Разместил: admin Смотрим и оставляем комментарий »

Выберите себе хостинг

Дата: 23.03.2025 Модуль: Категория: Хостинг

Одной из самых серьезных проблем для многих компаний, которые планируют занимаются коммерческой деятельностью в Интернете это выбор веб-хостинга и предоставления услуг веб-хостинга. Если попытаться найти оптимальное решение, какой хостинг является самым экономичным и надежным, то это может быть сложной задачей.

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

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

Каждый имеет свой набор функций и различные варианты, типы функций, которые могут быть нацелены на разные по уровню квалификации и размеры вашего бизнеса. FTP доступ будет хорошей особенностью и позволит загружать файлы на ваш сайт. Еще требуется поддержка протоколов POP3 и SMTP, хорошая пропускная способность и достаточно свободного пространства для функционирования вашего сайта.

Другая хорошая идея - пообщаться с компаниями, которые уже используют веб-хостинг и услуги вашего выбранного хостера. Вы можете сделать это, связавшись с компаниями веб-хостинга и задать вопросы по поводу вопросов или проблем. Обратите внимание и на то, сколько времени уделяется на ответ службы поддержки клиентов.

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

Так что не пожалейте потратить немного времени для поиска информации и отзывов о нескольких хостерах и проблем с хостингом у вас будет значительно меньше.

Разместил: admin Смотрим и оставляем комментарий »

Развитие стека TCP/IP: протокол IPv.6

Дата: 23.03.2025 Модуль: Категория: Сети и протоколы

Разместил: admin Смотрим и оставляем комментарий »

Протоколы обмена маршрутной информацией стека TCP/IP

Дата: 23.03.2025 Модуль: Категория: Сети и протоколы

Разместил: admin Смотрим и оставляем комментарий »

Принципы построения составных сетей

Дата: 23.03.2025 Модуль: Категория: Сети и протоколы

Разместил: admin Смотрим и оставляем комментарий »

Анализ посещаемости сайта рефералами

Дата: 23.03.2025 Модуль: Категория: PHP

Разместил: admin Смотрим и оставляем комментарий »

Как вырезать со страницы все ссылки

Дата: 23.03.2025 Модуль: Категория: PHP

Разместил: admin Смотрим и оставляем комментарий »

Создание компонента TTable без формы

Дата: 23.03.2025 Модуль: Категория: Delphi и TurboPascal

Данная проблема решается как минимум двумя путями, о чем и будет рассказано ниже.

Решение 1

Действительно, любой компонент можно создать и без (вне) формы или любого другого дочернего компонента. Для этого я использую параметр nil:

Код

FSession := TSession.Create(nil);

FDatabase := TDatabase.Create(nil);
FSession.SessionName := 'DBSession'
FDatabase.Connected := False;
FDatabase.AliasName := Database;
FDatabase.DatabaseName := USER_DATABASE;
FDatabase.SessionName := FSession.SessionName;

FUserTBL := TTable.Create(nil);
FUserTBL.DatabaseName := FDatabase.DatabaseName;
FUserTBL.SessionName := FSession.SessionName;
FUserTBL.TableName := USERTBL;
FUserTBL.IndexName := USERSpIndex;

FUserSource := TDataSource.Create(nil);
FUserSource.DataSet := FUserTBL;

Решение 2

Я привожу некоторый код, касающийся описываемой проблемы: он работал, когда я использовал его в большом приложении. Я не знаю специфического метода создания компонента TTable вне родителей, поэтому я пошел путем создания своего класса от TTable во время инициализации модуля. Удобство такого подхода объясняется наличием под рукой всегда готового к работе экземпляра класса, стоит всего-лишь добавить модуль к вашему приложению.

Конечно, новый класс не должен иметь одиноко выглядящую процедуру со странной технологией фильтрации данных :=))), да и не помешала бы публикация нескольких событий, но этот пример призван все-го лишь продемонстрировать иной подход к решаемой задаче.

Код

unit Unit2;

interface
uses db, DBTables, dialogs;

type fake = class(Ttable)

procedure fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean);
end;

var

MyTable : fake;

implementation

procedure fake.fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin

showmessage('Здравствуй, Вася');
end;

Initialization

MyTable := fake.create(nil);
With Mytable do begin
DataBaseName := 'dbdemos';
TableName := 'biolife';
OnFilterRecord := MyTable.fakeFilterRecord;
Filtered := true;
active := true;
end;

{проверка получением неких данных...}
showmessage(MyTable.fields[1].asstring);

Finalization
{Важно! MyTable не имеет родителя, - уничтожаем объект сами, иначе память не высвобождается...}
MyTable.free;

end.

Разместил: admin Смотрим и оставляем комментарий »

Использование опции Multi в DBGRID

Дата: 23.03.2025 Модуль: Категория: Delphi и TurboPascal

Разместил: admin Смотрим и оставляем комментарий »

Быстрый поиск в базах данных

Дата: 23.03.2025 Модуль: Категория: Delphi и TurboPascal

Я представляю на Ваш суд утилиту быстрого поиска по базе данных. Данная технология производит поиск по полям, преобразуя их значения в строки (все значения преобразуются в верхний регистр, включая действительные числа).

Данное решение может быть не самым быстрым, однако на поверку оно оказывается быстрее остальных, обнаруженных мною в Интернете (может вам повезет больше). Более того, представьте, что действительное значение какого-либо поля равно 4.509375354, а значение поиска равно 7, в этом случае утилита засчитает "попадание". Утилита удобна также тем, что она за один проход производит поиск более, чем в одном поле.

Это удобно, если у Вас имеются, к примеру, два поля с адресами. Это моя первая "серьезная" разработка, так как первое, с чем я столкнулся, изучая Delphi, стала необходимость включения процедуры поиска в любое приложение, работающее с базой данных. А так как поиск - вещь тоже сугубо специфическая, как и любое приложение, то мне пришлось побороть свой страх перед "крутым программированием" и попробовать написать свой поисковый механизм, удовлетворивший меня (и, надеюсь, других) своей скоростью и возможностью "мульти"-поиска по нескольким полям.

Я надеюсь, что он поможет тем программистам, кто часто сталкивается с подобными задачами. Технология довольно легка для понимания, но если у Вас возникли какие-либо вопросы, пошлите мне письмо электронной почтой, я буду рад Вам помочь. Посмотрев код, можно легко узнать поддерживаемые типы полей (добавить новые не составит проблем).

Код

unit Finder;

interface

uses DB, DBTables, SysUtils;

function GrabMemoFieldAsPChar(TheField : TMemoField): PChar;
function DoFindIn(TheField : TField; SFor : String): Boolean;
function FindIt(TheTable : TDataSet; TheFields : array of integer;

SearchBackward : Boolean; Beginning : Boolean; SFor : String): Boolean;
{применение функции FindIt -

if FindIt(NotesSearchT,
[NotesSearchT.FieldByName('Leadman').Index],
False, True, SearchText.Text) then DoSomething; }

implementation

function GrabMemoFieldAsPChar(TheField : TMemoField): PChar;
begin
with TBlobStream.Create(TheField, bmRead) do

begin
GetMem(Result, Size + 1);
FillChar(Result^, Size + 1, #0);
Read(Result^, Size);
Free;
end;
end;

function DoFindIn(TheField : TField; SFor : String): Boolean;
var

PChForMemo : PChar;
begin
Result := False;
case TheField.DataType of

ftString :
begin
if (Pos(SFor, UpperCase(TheField.AsString)) > 0) then
Result := True;
end;
ftInteger :
begin
if (Pos(SFor, TheField.AsString) > 0) then Result := True;
end;
ftBoolean :
begin
if SFor = UpperCase(TheField.AsString) then
Result := True;
end;
ftFloat :
begin
if (Pos(SFor, TheField.AsString) > 0) then Result := True;
end;
ftCurrency :
begin
if (Pos(SFor, TheField.AsString) > 0) then Result := True;
end;
ftDate .. ftDateTime :
begin
if (Pos(SFor, TheField.AsString) > 0) then Result := True;
end;
ftMemo :
begin
SFor[Ord(SFor[0]) + 1] := #0;
PChForMemo := GrabMemoFieldAsPChar(TMemoField(TheField));
StrUpper(PChForMemo);
if not (StrPos( PChForMemo, @SFor[1] ) = nil) then Result :=
True; FreeMem(PChForMemo, StrLen(PChForMemo + 1));
end;
end;
end;

function FindIt(TheTable : TDataSet; TheFields : array of integer;

SearchBackward : Boolean; Beginning : Boolean; SFor : String): Boolean;
var

i, HighTheFields, LowTheFields : integer;
BM : TBookmark;
begin
TheTable.DisableControls;
BM := TheTable.GetBookmark;
try
LowTheFields := Low(TheFields);
HighTheFields := High(TheFields);
SFor := UpperCase(SFor);
Result := False;
if Beginning then TheTable.First;
if SearchBackward then

begin
TheTable.Prior;
while not TheTable.BOF do
begin
for i := LowTheFields to HighTheFields do
begin
if DoFindIn(TheTable.Fields[TheFields[i]], SFor) then
begin
Result := True;
Break;
end;
end;
if Result then Break else TheTable.Prior;
end;
end else
begin
TheTable.Next;
while not TheTable.EOF do
begin
for i := LowTheFields to HighTheFields do
begin
if DoFindIn(TheTable.Fields[TheFields[i]], SFor) then
begin
Result := True;
Break;
end;
end;
if Result then Break else TheTable.Next;
end;
end;
finally
TheTable.EnableControls;
if not Result then

TheTable.GotoBookmark(BM);
TheTable.FreeBookmark(BM);
end;

end;

end.

Разместил: admin Смотрим и оставляем комментарий »

Поиск величины при вводе

Дата: 23.03.2025 Модуль: Категория: Delphi и TurboPascal

Каким способом можно производить поиск подходящих величин в момент ввода? Табличный курсор (визуально) должен перемещаться к наиболее подходящему значению при добавлении пользователем новых символов водимой величины.

Для поиска величины таблица держится открытой. Индекс должен, естественно, принадлежать полю, используемому элементом управления EditBox. В случае изменения содержимого EditBox, новое значение используется для вызова стандартной функции FindNearest таблицы TTable. Возвращаемая величина снова присваивается свойcтву Text элемента EditBox.

Я привел лишь общее решение задачи. Фактически во время изменения значения я включал таймер на период 1/3 секунды и в обработчике события OnTimer проводил операцию поиска (с выключением таймера). Это позволяло пользователю набирать без задержки нужный текст без необходимости производить поиск в расчете на вновь введенный символ (поиск проводился только при возникновении задержки в 1/3 секунды).

Вам также может понадобиться специальный обработчик нажатия клавиши backspace или добавления символа в любое место строки.

Вместо возвращения результатов элементу EditBox (который перезаписывает введенное пользователем значение), вы можете передавать результаты другому элементу управления, например компоненту ListBox. Вы также можете отобразить несколько наиболее подходящих значений, к примеру так:

Код

procedure Edit1On(...);
var i:integer;
begin
if not updating then exit; {сделайте обновление где-нибудь еще - например при срабатывании таймера}
updating:= false;
Table1.FindNearest([Edit1.text]);
ListBox1.clear;
i:= 0;
while (i < 5) and (not (table1.eof)) do

begin
listbox.items.add(Table1.fields[0].asString);
inc(i);
table1.next;
end;
listbox1.itemindex:= 0;
end;

Разместил: admin Смотрим и оставляем комментарий »

Всего 78 на 6 страницах по 15 на каждой странице

<< 1 2 3 4 5 6 >>

[ Назад | Начало | Наверх ]

Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском