Arrays 如何获取csv文本的值并插入access

我的备忘录中有这样一个字符串：

型号，“GHN-888”，id，“00000000”，日期，“04-21-2016”，型号，1

我怎样才能做到这样：

var
  TS:TStringList;
begin
  TS := TStringList.Create();
  TS.StrictDelimiter := True;
  TS.Delimiter := ',';
  TS.DelimitedText := 'model,"GHN-888",id,"00000000",date,"04-21-2016",type,1';

型号=GHN-888 id=00000000 日期=2016年4月21日 类型=1

---

这可能吗？提前感谢。

您可以使用

TStringList

解析此行。有一个简单的方法，可以使用属性来分割字符串，

Delimiter

、

DelimitedText

和

StrictDelimiter

您可以使用如下代码：

var
  TS:TStringList;
begin
  TS := TStringList.Create();
  TS.StrictDelimiter := True;
  TS.Delimiter := ',';
  TS.DelimitedText := 'model,"GHN-888",id,"00000000",date,"04-21-2016",type,1';

现在（在分配了

DelimitedText

属性之后，

TStringList

使用char

，“

您有8行具有此值：

Model
GHN-888
id
00000000
date
04-21-2016
type
1

---

现在很容易获得这些值​​分别使用循环o使用TS[0]、TS、TS[2]…

解析字符串并构建查询。虽然您应该使用SQL参数。那么，您是否打算a）解析原始字符串，b）将数据序列化回不同格式的字符串？第二个字符串与“insert into access”有什么关系？您的问题与数组有什么关系？我们真的需要另一个解释如何拆分字符串的答案吗。进行搜索。外面有数百人。