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

[Shawn]

Что-то где-то напутал...Не подскажете ли, господа, где? И как можно реализовать то же, но по-другому? Прошу строго не судить - ибо это моя первая программа.

procedure TForm2.Button1Click(Sender: TObject);
begin
if form2.Edit1.Text='' then begin
MessageDlg ('Не задано название темы'+#13#10+'Повторите ввод',mtError,[mbOK],0);
form2.Edit1.SetFocus;
end
else begin
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
begin
ShowMessage ('Тема с таким названием уже создана!');
form2.Edit1.Clear;
form2.Edit1.SetFocus;
end;
end
else begin
form1.database1.open;
form1.Table1.open;
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;

[_SERGEYX_]

Ну,... я бы сделал так...
На второй форме в событии onChange Edita написал
Button1.enabled := Edit1.Text <> '';
Это как-то солиднее.

Для чего form1.database1.open; ???
database1.connected:=true жолжно быть по умолчанию.

Используй sql-запросы.
Вместо этого

form1.Table1.first;
while not form1.table1.Eof do begin
if form1.table1.FieldByName('Name_T').AsString = edit1.Text then
begin
ShowMessage ('Тема с таким названием уже создана!');

напиши это

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('SELECT Name_t FROM TABLE1  WHERE (Name_t = "'+Edit1.text+'")');
Query.Open;
If Query.recordCount > 0 then
begin
ShowMessage ('Тема с таким названием уже создана!');
exit;
end;

Вместо этого

form1.Table1.Last;
max_ID:=form1.table1.fieldbyname('ID').asinteger;

напиши это

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('SELECT max(id) FROM TABLE1');
Query.Open;
max_ID:= Query.fields[0].asinteger + 1;

Будет работать гораздо быстрее, чем гонять циклы.

[pu4koff]

1) может проще в табличке по полю Name_T уникальный индекс сделать и проверять ниче не надо будет?
2) вместо эдит юзать DBEdit и прописывать руками заполнение таблицы не надо будет
3) поле ID проще сделать автоинкрементным
4) зачем два раза выполнять эти строки:
form1.database1.open;
form1.Table1.open;

[Shawn]

Большое спасибо, действительно более солидно выглядит (век живи - век учись)... Но проблема в проверке схожести названий тем - при вводе уже существующей темы паскудно виснет, а планировался вовсе не висяк... ((

[pu4koff]

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

Для чего form1.database1.open; ???
database1.connected:=true жолжно быть по умолчанию.

Это с какого такого перепугу база данных должна быть обязательно подключена?

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

Вместо этого

form1.Table1.Last;
max_ID:=form1.table1.fieldbyname('ID').asinteger;

напиши это

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('SELECT max(id) FROM TABLE1');
Query.Open;
max_ID:= Query.fields[0].asinteger + 1;

Будет работать гораздо быстрее, чем гонять циклы.

Что-то я сильно сомневаюсь, что переход к последней записи будет дольше, чем перебор всех записей и поиск максимального значения

[Shawn]

На второй форме в событии onChange Edita написал
Button1.enabled := Edit1.Text <> '';
Это как-то солиднее.


К сожалению такой вариант не прошел...

[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 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;
if bad_point=true then
begin
ShowMessage ('Тема с таким названием уже создана!');
form2.Edit1.Clear;
form2.Edit1.SetFocus;
end;
end;

[Pitbull]

если ві используете while not table1.eof do, то в конце обязательно ставится Table1.next;
просто в противном случае Ваш код зациклится... Он будет постоянно в первой строке стоять... А Table1.next переводит на следующую строку.... используйте Abort , для віходя из процедурі, если найдется такая же запись....

[_SERGEYX_]

Что-то я сильно сомневаюсь, что переход к последней записи будет дольше, чем перебор всех записей и поиск максимального значения

Зря сомневаешься.

form1.Table1.Last;
max_ID:=form1.table1.fieldbyname('ID').asinteger;

будет справедливым только если таблица отсортирована по полю ID. А, обычно, как я понимаю, таблица сортируется по именам или названия.
Значит нужно создать индекс для поля ID и перед Last написать

var aIndex: string;
...............
aIndex:= table1.indexname;
table1.indexname:='id';
form1.Table1.Last;
max_ID:=form1.table1.fieldbyname('ID').asinteger;
table1.indexname:=aIndex;

Но записи в Гриде будут "дергаться", это не солидно. Поэтому все это
нужно вставить между

Table1.DisableControls;
{...........}
Table1.EnableControls;

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

[pu4koff]

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