Поиск методом Locate: маски

@kaar · Регистрация: 13.12.2009

Author24 — интернет-сервис помощи студентам

Делаю игру - города, поиск через локейт.
39 строчка работает нормально, аналогичная, но 62-ая нет, в чем ошибка?
Проект компилируется, только на 62-ой строчке, выдает ложный результат.

Т.е. я хочу что бы искало слова на уже заранее "отрезанную" букву, поиск должен работать по первой букве.

Delphi

1	if (avef.mytab.Locate('city;flag',varArrayOF([ss,0]),[loPartialKey])) and (avef.mytab.fieldbyname('flag').Asinteger=0) then

вот критерий поиска по двум полям. ss- вырезанный последний символ предыдущего слова.

если сделать так:

Delphi

1	if (avef.mytab.Locate('city',ss,[loPartialKey])) and (avef.mytab.fieldbyname('flag').Asinteger=0) then

выдает только первое найденное слово на букву ss, по условию задачи, надо исключить повторения введенных слов, для этого я организовал в бд поле "flag".

Может я зря мучаюсь с локейтом? Но все-таки хочется уже воспользоваться им, если его параметры позволят выполнить мою задачу.

Delphi

procedure Tgamef.FormCreate(Sender: TObject);
var i:integer;
    s:string[30];
begin
zz:=1;
richedit1.clear;
randomize;
i:=random(avef.mytab.recordcount-1)+1;
aveF.mytab.RecNo:=i;
s2:='';
s2:=trim(lowercase(avef.mytab.fieldbyname('city').AsString));
    avef.mytab.Edit;
    avef.mytab.FieldByName('flag').AsInteger := 1;
    avef.mytab.Post;
richedit1.lines.add('bot:   '+trim(ansiuppercase(s2)));
 
ss2:=copy(s2,length(s2),1);
if (ss2<>'Ú') and (ss2<>'Ü') and (ss2<>'Û') then label12.Caption:=trim(ansiuppercase(ss2))
else begin
ss2:='';
ss2:=copy(s2,length(s2)-1,1);
label12.Caption:=trim(ansiuppercase(ss2));
end;
end;
 
procedure Tgamef.BitBtn1Click(Sender: TObject);
var s:string[25];
begin
avef.mytab.First;
s:='';
sss:='';
s:=trim(ansiuppercase(edit1.Text));
sss:=trim(ansiuppercase(copy(s,1,1)));
 
 if ansiuppercase(sss)=ansiuppercase(ss2) then begin
 
 // ïîèñê â áä ââåäåííîãî þçåðîì ñëîâà
 
 if  (avef.mytab.Locate('city;flag',varArrayOf ([s,0]),[loCaseInsensitive,loPartialKey])) and (avef.mytab.fieldbyname('flag').Asinteger=0) then
  begin
    richedit1.lines.add('user:  '+trim(ansiuppercase(s)));
    avef.mytab.Edit;
    avef.mytab.FieldByName('flag').AsInteger := 1;
    avef.mytab.Post;
    // êîïèðóåì  ïîñëåäíèé ñèìâîë ââåäåííîãî þçåðîì ñëîâà.
ss:='';
ss:=copy(s,length(s),1);
if (ss<>'ú') and (ss<>'ü') and (ss<>'û') then begin label12.Caption:=ss; label11.Caption:=ss; end
else begin
ss:='';
ss:=copy(s,length(s)-1,1);
label12.Caption:=ss;
label11.Caption:=ss;
end;
    end
else if  avef.mytab.fieldbyname('flag').Asinteger=1 then ShowMessage('Òàêîå ñëîâî óæå áûëî íàçâàíî')
else ShowMessage('Òàêîãî ñëîâà íå ñóùåñòâóåò â áàçå');
 
 
// Õîä êîìïüþòåðà.
avef.mytab.First;
if  (avef.mytab.Locate('city;flag',varArrayOF([ss,0]),[loPartialKey])) and (avef.mytab.fieldbyname('flag').Asinteger=0) then
begin
    s2:='';
    s2:=trim(ansiuppercase(avef.mytab.fieldbyname('city').AsString));
    avef.mytab.Edit;
    avef.mytab.FieldByName('flag').AsInteger:=1;
    avef.mytab.Post;
    richedit1.lines.add('bot:   '+trim(ansiuppercase(s2)));
 
ss2:='';
ss2:=copy(s2,length(s2),1);
if (ss2<>'Ú') and (ss2<>'Ü') and (ss2<>'Û') then label12.Caption:=trim(ansiuppercase(ss2))
else begin
ss2:='';
ss2:=copy(s2,length(s2)-1,1);
label12.Caption:=trim(ansiuppercase(ss2));
end;
end
else  if  avef.mytab.fieldbyname('flag').Asinteger=1 then ShowMessage('Òàêîå ñëîâî óæå áûëî íàçâàíî11')
else ShowMessage('Òàêîãî ñëîâà íå ñóùåñòâóåò â áàçå11');
end
else  ShowMessage('Ââåäèòå ñëîâî íà÷èíàþùèåñÿ íà áóêâó: '+ss2);
end;

Добавлено через 1 час 59 минут
все, спасибо за 7 просмотров. я разобрался.

Delphi

1	avef.mytab.Locate('city;flag',varArrayOF([ss,0]),[loPartialKey])

Вобщем дело в следующем, как показала практика ключ loPartialKey работает на последнее поле из списка, т.е. на 'flag' если будут похожие задачи, меняйте местами поля и тогда маска будет работать. Мелочь, но я убил на это 5 часов, будьте внимательны

Delphi

1	avef.mytab.Locate('flag;city',varArrayOF([0,ss]),[loPartialKey])

@Lord_Voodoo · 06.07.2010, 10:31

kaar, а я бы сделал это запросом за 15 минут и не мучался... тем более поиск был бы по всем частичным вхождениям, а не по последнему

@kaar · 06.07.2010, 20:00 **[ТС]**

ну я локейтом справился, он казалось бы проще, вот только из-за мелочи столько времени потратил, не думал что важно место поля.

@Lord_Voodoo · 07.07.2010, 13:22

kaar, Locate при увеличении размера таблицы будет работать все медленее и медленееб индексы эту проблему в принципе решают, но замедляют модификацию, т.к. на модификацию индекса тоже время надо

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	06.07.2010, 10:31	2
	kaar, а я бы сделал это запросом за 15 минут и не мучался... тем более поиск был бы по всем частичным вхождениям, а не по последнему 0

@kaar 1 / 1 / 0 Регистрация: 13.12.2009 Сообщений: 7
	06.07.2010, 20:00 [ТС]	3
	ну я локейтом справился, он казалось бы проще, вот только из-за мелочи столько времени потратил, не думал что важно место поля. 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	07.07.2010, 13:22	4
	kaar, Locate при увеличении размера таблицы будет работать все медленее и медленееб индексы эту проблему в принципе решают, но замедляют модификацию, т.к. на модификацию индекса тоже время надо 0