Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #4  
Старый 03.10.2008, 13:08
w1zard w1zard вне форума
Прохожий
 
Регистрация: 04.07.2008
Сообщения: 26
Репутация: 10
По умолчанию

Хотя, всё равно глючно работало. После трёх часов мучений пришёл к выводу, что надёжнее будет просто перебором. Вот даже кусочек кода, в котором показано это:

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Procedure TForm10.Ochered(Rayon_name:String);
var
st_count1,qx:integer;
Begin
 Table2.Active:=True;
 Table2.Open;
 Table2.First;
 st_count1:=Form1.ListBox1.Items.Count-1; // Получаем <b>реальное </b>количество строк в ListBox'e.
  For qx:=0 to st_count1 do
   begin
 
    If Table2.Locate('ID',Form1.ListBox1.Items.Strings[qx],[loCaseInsensitive]) then // При условии, что данной строки ещё нет в базе выполняем:
    begin
    Table2.Edit;
    Table2.Fields[0].AsString:=Form1.ListBox1.Items.Strings[qx];// Счётчик цикла определяет индекс строки
    Table2.Fields[1].AsString:='NNN';
    Table2.Fields[3].AsString:=IntToStr(qx+1); //Для <b>реального</b> значения увеличиваем индекс на 1
    Table2.Post;
    Table2.FlushBuffers;
    end
      else // В случае, если такая строка уже есть в базе
        begin
        Table2.Append;
        Table2.Fields[0].AsString:=Form1.ListBox1.Items.Strings[qx];
        Table2.Fields[1].AsString:='NNN';
        Table2.Fields[3].AsString:=IntToStr(qx+1);
        Table2.Post;
        Table2.FlushBuffers;
        end;
 
 
  end;
 
 
 Table2.FlushBuffers;
 Table2.Close;
 Table2.Active:=False;
 end;
 
 
end;

Вызывать процедуру при событии ListBox1EndDrag.

Вроде всё так, может кому-то понадобится

Последний раз редактировалось w1zard, 03.10.2008 в 13:13.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:56.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025