在delphi中的edit中写入数据，保存到数据库中，怎么写程序？

首先,你要添加 数据集空件,如:ADOQuery1 然后 设置ADOQuery1的连接到SQL数据库.当然了你必须要创建了数据库以及表.
然后,新添一个按纽->在其按纽的单击事件里写上:
ADOQuery1.Close;
ADOQuery1.sql.text:='Insert into 表名 SET (字段名) values ('+EDIT.TEXT+')';
ADOQuery1.ExecSQL;

ADOQuery1.Close;
ADOQuery1.sql.text:='select 字段名 From 表名 WHERE 字段名='''+trim(edt1.text)+'''';
ADOQuery1.Open;
if adoquery1.RecordCount >0 then
begin
Showmessage('您输入的值有重复,请重新输入!');
EXIT;
end
else
begin
adoquery1['字段名']:=trim(edit1.text);
end;

---------------------------------------
根据字段名的属性对edit1.text进行数值转换就可以了～！

用感知DB控件会轻松好多

我不懂程序啊

你用的是什么数据库？