Delphi(Цикл)

[martin0102]

procedure TForm1.FormCreate(Sender: TObject);
var
  i:Integer;
begin
for i:=0 to 98 do
begin
  ADOTable1.First;
  if ComboBox1.Items[i]=(ADOTable1.FieldByName('n').AsString) then Continue
  else
  ComboBox1.Items.Add(IntToStr(i+1));
  ADOTable1.Next;
end;
end;

мне надо чтобы в случае если совпадает значение в поле n(в таблице) со значением строки ComboBox-а то в ComboBox не добавлялась такая строка, вроде написано норм, но выводит полностью все 99, есть какието советы?




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ViktorR]

Предположу, что строку:

ADOTable1.First;

следует вынести за цикл:

ADOTable1.First;
for i:=0 to 98 do
begin
  if ComboBox1.Items[i]=(ADOTable1.FieldByName('n').AsString) then
     Continue
  else
     ComboBox1.Items.Add(IntToStr(i+1));
ADOTable1.Next;
end;

Вроде так ...
PS: Только по наитию ...

[martin0102]

особо ничего не поменялось, как еще можно это реализовать?

[Utkin]

как еще можно это реализовать?

Анализом имеющегося кода и поиском ошибок. Ставьте бреакпоинты и смотрите в чем проблема. К примеру алгоритм может быть рабочим, но в ComboBox1 могут уже иметься все значения из ADOTable1. Я бы заострил внимание на работу Continue. Как я понимаю она просто берет следующую итерацию, соответственно пропуская ADOTable1.Next;
Делайте выводы сами.

[Serge_Bliznykov]

во-первых, полность согласен с высказанными выше замечаниями.

во-вторых,
у Вас проблема в алгоритме. алгоритм у Вас не плохой - он ЖУТКИЙ!
вообще ничего не понятно, что находится в таблице, почему цикл от 0 до 98 (ведь есть и количество записей в таблице и есть количество элементов в ComboBox), почему сравнивается на элемент на i-m месте ComboBox'а c элементом таблицы ?!...

если хотите получить конкретную помощь, то, расскажите, что у Вас изначально (до выполнения данного кода в ComboBox, что в таблице, и что должно получится после выполнения данного цикла. Желательно на конкретном примере, с конкретным набором циферок...

p.s. пока, ИНТУИТИВНО (читай "телепатически" ) я думаю, что задача должна выглядеть примерно так:

var i: integer;
begin
  ComboBox1.Items.Clear;
  for i:=0 to 98 do
    if Not ADOTable1.Locate('n', i ,[]) then
             ComboBox1.Items.Add( IntToStr(i));
end;

[Sciv]

Может, проще первый цикл по таблице делать, а уже второй в комбике?

Типа такого:

procedure TForm1.FormCreate(Sender: TObject);
var
  i:Integer;
  find: boolean;
begin
  ADOTable1.First;
  While not ADOTable1.Eof do begin
    find:=false;
    for i:=0 to 98 do begin
      find:=ComboBox1.Items[i]=ADOTable1.FieldByName('n').AsString;
      if find then break;
    end;
    if not find then ComboBox1.Items.Add(ADOTable1.FieldByName('n').AsString);
    ADOTable1.Next;
  end;
end;

[evg_m]

Может, проще первый цикл по таблице делать, а уже второй в комбике?

особенно если пользоваться всеми возможностями Tstrings (Indexof)

adotable1.first;
while not adotable1.EOF do begin
  if combobox1.items.Indexof(adotable1.fieldbyname('n').asstring)<0 then combobox1.Items.add(adotable1.fieldbyname('n').asstring);
  adotable1.Next;
end;

[martin0102]

Я извеняюсь что не правильно поставил вопрос, всем спасибо за помощь)))

[martin0102]

var i: integer;
begin
  ComboBox1.Items.Clear;
  for i:=0 to 98 do
    if Not ADOTable1.Locate('n', i ,[]) then
             ComboBox1.Items.Add( IntToStr(i));
end;

это именно то что мне нужно