Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Фильтрация повторяющихся значений

AlexanderSK © (2004-06-03 17:50:00)
Есть TClientDataSet, поля р1, р2.
Причем значения р1 - повторяются (по 2-4 записи с одинм и тем же значением р1, при этом р2 для них разные).
Нужно получить список значений р1 (без повторов!)

Подскажите, пожалуйста, как это лучше сделать?

Anatoly Podgoretsky (2004-06-03 19:53:00) [1]
AlexsanderSK (03.06.04 18:07) [4]
Духом святыс что ли?

Jiny (2004-06-03 18:27:00) [2]
Ошибочка Вышла, не успел отменить отправку текста,
попробуй так
var
MyDIm: array of String;
i,i2: integer;
tmpText: string;;
Result: boolean;
Begin
SetLength(MyDim,Tdataset.RecordCount);
For i:=0 to Tdataset.RecordCount-1 do
begin
TmpText:=Tdataset.FieldByname('field').AsString;
For i2:=0 to i do
If AnsiUpperCase(TmpText)=AnsiUppercase(MYDim[i2]) then
Result:=false else result:=true;

If result then MyDim[i]:=TmpText;

Tdataset.FindNext
end;
MyDim:=nil;
end;
Потом пройдешься циклом по не нулевым значениям

Jiny (2004-06-03 18:22:00) [3]
попробуй так
var
MyDIm: array of String;
i,i2: integer;
tmpText: string;;
Begin
SetLength(MyDim,Tdataset.RecordCount);
For i:=0 to Tdataset.RecordCount-1 do
begin
TmpText:=Tdataset.FieldByname('field').AsString;
For i2:=0 to i do
begin
If AnsiUpperCase(TmpText)=AnsiUppercase(MYDim[i2]) then
break;
else
MyDim[i]:=TmpText;
end;
Tdataset.FindNext
end;
end;

Jiny (2004-06-03 18:21:00) [4]
попробуй так
var
MyDIm: array of String;
i,i2: integer;
tmpText: string;;
Begin
SetLength(MyDim,Tdataset.RecordCount);
For i:=0 to Tdataset.RecordCount-1 do
begin
TmpText:=Tdataset.FieldByname('field').AsString;
For i2:=0 to i do
begin
If AnsiUpperCase(TmpText)=AnsiUppercase(MYDim) then
break;
else
Begin
MyDim[i]:=TmpText;
break;
end;
end;
Tdataset.FindNext
end;
end;

AlexsanderSK (2004-06-03 18:07:00) [5]
>Курдль © (03.06.04 17:52) [1]
>Jiny (03.06.04 18:04) [3]
Да нет! Суть как раз в том, чтобы к БД не обращаться!

Jiny (2004-06-03 18:04:00) [6]
>Только не TClientDataSet или каким угодно другим Т..., а ТЗапросом
может быть надо было сказать каким именно запросом ?

select distinct p1 from имя таблицы

Sandman25 (2004-06-03 17:58:00) [7]
Если получить там же, то можно установить IndexFieldNames, а потом пробежаться в цикле и удалить повторяющиеся.

Курдль (2004-06-03 17:52:00) [8]
Только не TClientDataSet или каким угодно другим Т..., а ТЗапросом.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »