Форум: "Базы";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизУникальные значения Найти похожие ветки
← →
Stratos (2002-03-21 09:36) [1]Ну делай проверку
iStr:= DataModule1.TRezeptQuery7.FieldByNamе( "Prod").AsString;
//^ заносим значение во временную строку
if Items.IndexOf(iStr)<0 then
//проверяем есть ли она в списке
begin
Items.Add(iStr);//если нет то добавляем
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.008 c