Question

delphi7 如何把memo每行第一个字符提出来,插入数据库的一个字段里？

比如memo控制里有以下内容：
A:新增用户
B:维护用户权限
C:维护品号分类
D:维护品号基本信息
如何能做到把ABCD插入到数据库里？

Answer 1

for i := 0 to memo.lines.count - 1 do
begin
szLine := trim(memo.lines[i]);
if szLine <> '' then begin
s := szLine[1];
// s 为 第一个字符
end;
end;