Question

如题： 请问各位大牛，在Delphi中 如何把memo中的数据通过TRzButton按钮导入到T

如题： 请问各位大牛，在Delphi中 如何把memo中的数据通过TRzButton按钮导入到TRzGrid中。

TRzGrid连接的数据库是BDE里的DB数据库

DB数据库中有以下字段
idx Name Act Look

memo中的数据
0,衣服,5,5, (其中 , 为分割符)

请问实现这些，具体代码该怎么写。

谢谢了，我是菜鸟纠结了好久了。

Answer 1

哎呀，你这个有点麻烦，要逐行读取memo的文本，放到TStringlist类型的变量里，然后用TStringlist的字符串分割功能，分割出来子串，然后按照顺序写入数据库。

追答

使用Tstringlist的分隔符来切割字符串
var
str:string;
i:integer;
Slist:Tstringlist;
begin
str:='01,02,23,55,33,66,88,99,22';
Slist:=Tstringlist.Create;
slist.Delimiter:=','; //设置分隔符
slist.DelimitedText:=str; //设置待分割的字符串
for i:=0 to slist.Count-1 do //列举所有值
begin
if Strtoint(Slist[i])>33 then
showmessage('这个数字'+slist[i]+'满足要求');
end;
end;

这是分割的例子

在for循环里写sql语句或者其他办法写入数据库，就可以了

追问

能给个具体的实例吗。大牛

想自己写一个库存的软件。

追答

呃，你会不会，往数据库插入记录呢

俺手里没电脑，要不就直接给你写代码了

追问

就是不会弄数据库。现在是已经能读取数据库中的数据。就是想要一个能把memo中的数据导入到数据库中。就好了。

追答

呃，恐怕还是要靠你自己研究了，思路就是，循环读取memo每行，读取后通过TStringlist分割，然后写SQL语句“insert into 表名 (字段1，字段2，字段3，字段4)”，然后执行SQL语句，循环尾

追问

你帮我写个吧。谢谢了