Locate

[Killbrum]

Здраствуйте! Вот пишу БД на делфи. И возникла проблема. Вроде код написан правильно, но он его просто не читает. Точнее не выполняет.

if not (Form1.BookName.Locate('Фамилия', Edit1.Text)) or (Form1.BookName.Locate('Имя', Edit2.Text, [loCaseInsensitive])) or (Form1.BookName.Locate('Отчество', Edit3.Text, [loCaseInsensitive])) then
begin
Form1.BookName.AppendRecord([nil,Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text,Edit5.Text,Edit6.Text,Edit7.Text,Edit8.Text,Edit9.Text]);
Form2.Close;

Как можна исправить данную ошибку? Точнее чтоб оно делало то что я написал

[Баламут]

if not (Form1.BookName.Locate('Фамилия', Edit1.Text,[]))

[Killbrum]

Нет не подходит

[Stilet]

А ты можешь проверить какой из Locate не работает? Похоже что все они ничего не находят, значит критерий поиска неверен.

[Killbrum]

Результат трасировки:
Оно доходит до процесса проверки. И проверяет. Посколько у меня стоит там if not и я ввел одинаковые имя и фамилии оно должно перепрыгнуть на else но оно прыгает на begin и добавляет запись

[Stilet]

Ы-ы-ы... Так там еще и else?! А предупредить заранее что лень было?

Теперь понятно - условие неверно, скорее всего потому что в первом Locate ты не поставил [loCaseInsensitive]

[Serge_Bliznykov]

скобок не хватает - Not относится только к ПЕРВОМУ locate!!!!

[Stilet]

Not относится только к ПЕРВОМУ locate!

Верно, я этого не заметил.

P.S. Вообще чтоб не путаться взял себе за привычку такого рода выражения обходить без not

[Killbrum]

Ребята пожалуйста помогите мне написать этот кусочек кода. А то что чтото неочень понял как это зделать...

[Stilet]

if Form1.BookName.Locate('Фамилия', Edit1.Text, [loCaseInsensitive]) and Form1.BookName.Locate('Имя', Edit2.Text, [loCaseInsensitive]) and Form1.BookName.Locate('Отчество', Edit3.Text, [loCaseInsensitive]) then
begin
// Код если ФИО существует.
end else begin
 Form1.BookName.AppendRecord ([nil,Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text,Edit5.Text,Edit6.Text,Edit7.Text,Edit8.Text,Edit9.Text]);
 Form2.Close;
end;

P.S. только мне почему то кажется что это код нестабильный... Для надежности придется тебе БД индексировать.