VPF::Проблема с навигацией - Форум программистов

mhalion

Дата 10.9.2007, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 18.2.2007

Репутация: нет
Всего: нет

Для работы с таблицам я использую компонет TTable. Есть две таблицы: Исходная и таблица с результатами. Действия такие: читаем из исходной запись и ищем её в таблице результатов. Причем в таблице результатов может быть несколько похожих записей (т.е. необходимо ещё и редактировать и добавлять записи), поэтому делаю два цикла в одном просматриваем записи по исходной таблице, а второй цыкл просматривает записи в таблице результатов (причем просмотреть нужно все записи) и в зависимости от результата сравнения добавляет или редактирует запись.

Код


while (not tblExportAddressBook.Eof) and (not Terminated) do
begin
    sCurrent :=tblExportAddressBook.FieldByName('Display Name').AsString;
    sDiryAddress :=tblExportAddressBook.FieldByName('E-mail Addresses').AsString;

    if IsPeopleName(sCurrent,sFirstname,sMiddlename,sLastname) and
    ScanSMTPAddress(sDiryAddress,sAddress) then
    begin
    nLength :=tblPeopleCounter.RecordCount;
    Synchronize(tblPeopleCounter.First);
          if nLength =0 then
          begin
    AddNewRecord(sFirstname,sMiddlename,sLastname,sAddress);
          end else begin
    for i :=1 to nLength do
                begin
                tblPeopleCounter.MoveBy(i -1);
                        
                sPCFirstname :=tblPeopleCounter.FieldValues['Firstname'];
                if CompareText(sFirstname,sPCFirstname) =0 then
                begin
    Synchronize(tblPeopleCounter.Edit);
    tblPeopleCounter.FieldValues['Counter'] :=tblPeopleCounter.FieldValues['Counter'] +1;
    Synchronize(tblPeopleCounter.Post);
                end else begin
                            Synchronize(frmMain.tblPeopleCounter.Insert);
                            tblPeopleCounter.FieldValues['FirstName'] :=sFirstname;
                            tblPeopleCounter.FieldValues['Counter'] :=1;
                            Synchronize(tblPeopleCounter.Post);
                end;
                Synchronize(tblPeopleCounter.Next);
           end;
        end;

    end;
    Synchronize(tblExportAddressBook.Next);
end;

Добавлено через 36 секунд
В итоге не пашет... В чем загвостка и как лучше сделать???

ALeXandrK

Дата 10.9.2007, 12:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: 2
Всего: 6

А не проще пользоваться методами Locate или Lookup, или может воспользоваться SQL запросами?!
Беглый просмотр говорит, что ф-ии Locate вполне достаточно.

--------------------

Богат не/ни тот, у кого много, а тот, кому хватает

mhalion

Дата 10.9.2007, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 18.2.2007

Репутация: нет
Всего: нет

Ладно понял, и даже написал правильно без использования locate. Но при достижении 2000 записей скорость обработки значительно снижается. Вопрос: Как использовать locate так чтобы я мог просматривать всю таблицу, даже после того как locаte уже один раз вернул нужное значение??? Т.е. поиск поиском, а некоторые поля мне нужно проверять вручную в программе. Поэтому даже если одно поле нашел, то не факт что это ещё конец поиска и приходится просматривать всю таблицу в итоге

Это сообщение отредактировал(а) mhalion - 10.9.2007, 13:24

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »