[rycu44]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

var  strField:string;   i: integer; Key: Char; procedure TForm4.Button1Click(Sender: TObject); //Создание файла .dbf     begin     with TTable.Create(nil) do       begin       DatabaseName  := 'C:\0\';//chdir1.Path;       TableType     := ttDefault;       TableName     := 'tmp.dbf';//Имя файла;       with FieldDefs do           begin           Add('ФИО', ftString,60,false);       //Первый столбец           Add('Кабинет', ftString,10,false);   //Второй столбец           Add('Телефон', ftString,15,false);   //Третий столбец           end; try              begin              if (Edit1.Text=' ') or (Edit2.Text=' ') or(Edit3.Text=' ')              then                  begin                  ShowMessage('Введите значения');                  end else //запись данных в базу                  close;                Query1.ParamByName('ФИО').AsString:=Edit1.Text;      //Ошибка                Query1.ParamByName('Кабинет').AsString:=Edit2.Text;  //Ошибка                Query1. ParamByName('Телефон').AsString:=Edit3.Text; //Ошибка                  Query1.ExecSQL;                  ShowMessage('Данные успешно сохранены!!!');                  Edit1.Text:='';                  Edit2.Text:='';                  Edit3.Text:='';              end;

Админ: Не забываем про оформление кода, иначе последуют санкции!