как можно реализовать то же, но по-другому?

[Shawn]

Вообще-то от всей этой процедуры требуется лишь решить простую задачу: ЕСЛИ тема уже есть ТО вывести ошибку ИНАЧЕ создать тему...

[pu4koff]

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

Короче, некрасивый код получается... А sql-запрос будет работать и на неиндексированной таблице.

ИМХО автоинкремент краше будет

[Shawn]

To Pu4koff:
Как можно его сделать? (автоинкремент)

[_SERGEYX_]

Ну, и напоследок...
Если берем максимальный номер через Last, то ...

var loc: string;
.................
loc:=table1ID.text;
form1.Table1.Last;
max_ID:=form1.table1.fieldbyname('ID').asinteger;
table1.locate('id',loc,[]);

ИМХО автоинкремент краше будет

Автоинкремент - это конечно хорошо, но если в дальнейшем захочется связать эту таблицу с другой по уникальному полю (в данном случае id), то никак не получится, т.к. после упаковки таблицы автоинкрементное поле перезаписывается

[Shawn]

Таблица действительно будет связана с двумя другими именно по этому полю...

[Shawn]

Вот что получилось... Но все-равно не работает

procedure TForm2.Button1Click(Sender: TObject);
begin
bad_point:=false;
form1.database1.open;
form1.Table1.open;
form1.Table1.first;
while not form1.table1.Eof do begin
if form1.table1.FieldByName('Name_T'). AsString = edit1.Text then
bad_point:=true
else
form1.Table1.Next;
end;
if bad_point=true then
begin
ShowMessage ('Тема с таким названием уже создана!');
form2.Edit1.Clear;
form2.Edit1.SetFocus;
end
else
begin
form1.Table1.Last;
max_ID:=form1.table1.fieldbyname('I D').asinteger;
form1.Table1.Insert;
form1.Table1.FieldByName('Name_t'). AsString:=edit1.Text;
form1.Table1.FieldByName('ID').AsIn teger:=max_ID+1;
form1.Table1.Post;
form2.close;
end;
end;

[_SERGEYX_]

Но все-равно не работает

Ну, тебе же написали, что цикл должен выглядеть так
while not table1.Eof do
begin

TABLE1.NEXT;
end;
NEXT обязателен, иначе цикл зависнет...

А можно попробовать так...
if form1.table1.locate('name_f',edit1. text,[loCaseInsensitive] = true
then {тема существует}

[Pitbull]

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

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

ну да...Я и написал, что нужно віход организовать, если нашло копию в базе... Либо через метку, либо через переменную какую-то віход из цикла сделать

[_SERGEYX_]

либо через переменную какую-то віход из цикла сделать

if form1.table1.FieldByName('Name_T'). AsString = edit1.Text then break;

[Shawn]

Большое спасибо. Проблема решена. Красивое решение неприглядной проблемы.