Я пыталься работать следующий код без использования пункт SQL = DISTINCT (потому, что это хорошее решение) чтобы получить Поля (Fields) без повторения; первый код работает хорошо, но второй НЕT почему?  


  
Почему линия:  

Это не РАБОТАЕТ ТО ЖЕ КАК этот Другой?:  
  
Как сделать (решить) тот второй код что работал в качестве первого?


Which is it the differences of these Codes?  
I am trying to make work the following code without using the clause SQL = DISTINCT (because this a good solution is) to obtain Fields without repeating; does the first one work well, but the second NOT why?  
 
Why the line:  
if (B.IndexOf(FieldByName ('Type'). AsString) = -1) then 
Doesn't it WORK THE SAME AS this Other one?:  
if (ComboBox1.Items.IndexOf(FieldByName ('Type'). AsString) = -1) then  
  
How to make (solve) that the second code works as the first one?

Type зарегеное слово... переименую поле и должно пойти!

да, но оно в кавычках => не в этом дело...  

зачем тебье во втором коде переменная B, в которой содержится объект TStringList, ведь ты используешь поиск: 

хотя вставку делаешь имеено в список, который у тебя на форме: 

т е переменная B после

не изменяеется... => в ней нети элементов и твое сравнение не работает....



ЗЫ:  и еще зачем те массив A?  Он объявлен локальным в подпрограмме => за ее пределами он не виден, а в подпрограмме ты только последовательно его заполняешь:

Но более с ним ничего не делаешь... Бессмысленные растраты ресурсов?  

Как я сказал решение это есть DISTINCT, но я не хочу содержать сомнение по вопросу о TStringList.
Что я хочу делать?  
Первые код сделает фильтры для меня очень хорошо элементов Поля (Fields) "Tip" без повторения которые показываются их в ComboBox1, но мне не нужно ComboBox в моем Программе, у меня нет ComboBoxa, из такой причины я хочу только, что cделать ту же работу первого кода но без ComboBoxa (не приходится меня) и содержать те значения без повторения: в ARRAY так что тогда те значения использовал бы на другом месте моего кода; я решил написать с TStringListoм считая, что это хорошее решение потому, что он представлет себя очень аналогичный код на линии "IF", но кажется...... Они не работают в равной мере!!  

Как я могу сохранить (содержать) элементы без повторения как первый код (но с TStringListoм) к ARRAY?



As I said the solution it is with DISTINCT, but I don't want to keep the doubt of the TStringList.  
That I want to make?  
The first code it filters me very well the elements of the Field "Tip" without repeating them in the ComboBox1, but I don't need a ComboBox in my Program, I don't have a ComboBox, for that reason I want only, to make the same work the first's code but without ComboBox (it is not necessary me) and to keep those values without repeat them: in an ARRAY so that then those values use it in another place of my code; for I decided to use a TStringList believing that this a good solution because they are very similar in code in the line "IF", but...... they don't work equally!!  
How can I keep elements without repeating as the first code (but with TStringList) to ARRAY?

Присоединённый файл ( Кол-во скачиваний: 3 )
 MyQuestion.zip 40,37 Kb

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

Это сообщение отредактировал(а) Deiv - 9.7.2007, 18:06

ты сам-то понимаешь, что ты пишешь   

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

to Deiv:
i think your problem - use NEXT(in second code) inside "if...else".So therefore if the condition is not carried out that and transition will not be carried out.
I can be mistaken.

Как я сказал те, что они знают меня: Я из Латинской Америки и говорю очень мало русский язык
Taught me that the respect is first of all the first thing in any part of the world, and to understand the Beginners in programming. If I try to look for solutions in Russia it is because I have friends there.
Спасибо за ваши комментарии, в любом случае здесь - ответ (раствор): 

© http://www.clubdelphi.com/
Конец

простите, но тоффарисчу зачот! за смелость так сказать)

Это сообщение отредактировал(а) MetalFan - 1.8.2007, 20:48