Проверка на дублирование в базе данных

[POPOV]

Короче мне нужно было сделать простую базу данных с использованием 3-х DBGrid-ов ). Нужно было к каждой таблице сделать кнопку "Проверка на дублирование записи в таблице". Например в первой таблице проверка должна идти по полю "Практики". Т.е я заполняю таблицу практиками, и нажимая на ту кнопку выдается сообщение в случае если добавляемое название практики уже существует.

Код который у меня проверяет тока в том случае, если в названии практики нет пробелов, например "ООП". Если же у меня например уже добавлена запись "Базы данных" и я пытаюсь проверить на дублирование, программа считает, что такой записи нет и добаляет ей повторно.

Вот текущий код:

procedure TForm2.Button12Click(Sender: TObject);
var k:integer;
st:string[10];
begin
If Table1.State in [dsEdit,dsInsert] then
begin
Table1.Post;
k:=table1.RecNo;
st:=table1.FieldValues['Naimenovanie_practiki'];
end
else
begin
table1.Cancel;
showmessage('выбран неверный метод состояния таблицы');
exit;
end;
//showmessage(inttostr(k));
//showmessage(st);
table1.First;
while not table1.Eof do
begin
if (table1.FieldByName('Naimenovanie_practiki').AsString=st) and (table1.RecNo<>K) then
begin
table1.RecNo:=k;
if messagedlg('Дублирование записей. Удалить?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
table1.Delete;
exit;
end;
table1.Next;
end;
showmessage('Запись добавлена');
end;

Кто подскажет, как изменить код чтобы программа реагировала на повторяющиеся записи с пробелами, так и без них .

[mihali4]

Используйте метод LOCATE и все ваши вопросы снимутся.

[POPOV]

А где этот метод использовать ?

[mihali4]

Это стандартный метод датасета.

[POPOV]

Короче я не знаю как его вообще использовать в задании )

[mihali4]

Сообщение от POPOV

Короче я не знаю как его вообще использовать в задании )

Еще короче - это я не понимаю - неужели трудно открыть хэлп по любому датасету и посмотреть пример использования LOCATE ?

[POPOV]

Сообщение от mihali4

Это стандартный метод датасета.

Датасет это объект SQLDataSet ?

[dron-s]

метод Locate

Searches the dataset for a specified record and makes that record the current record.

Delphi syntax:

function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean;

C++ syntax:

virtual bool __fastcall Locate(const AnsiString KeyFields, const System::Variant &KeyValues, Db::TLocateOptions Options);

Description

Call Locate to search a dataset for a specific record and position the cursor on it.

KeyFields is a string containing a semicolon-delimited list of field names on which to search.

KeyValues is a variant array containing the values to match in the key fields. If KeyFields lists a single field, KeyValues specifies the value for that field on the desired record. To specify multiple search values, pass a variant array as KeyValues, or construct a variant array on the fly using the VarArrayOf routine

[mihali4]

Сообщение от POPOV

Датасет это объект SQLDataSet ?

Еще немного побольше внимательности, и вы сделаете для себя открытие, что датасет - это и TTable, и TQuery, и, если совсем просто, любой компонент, который используется для указания в свойстве DataSet компонента TDataSource...
Кстати, сия тайна очень прозрачно раскрыта в штатном хэлпе...

[POPOV]

Ладно, разберёмси..