读取CSV文件并将结果输出为HTML列表

Question

我正在尝试使用PapaParse读取CSV文件，然后将其输出为html列表。到目前为止我有这个......

procedure TForm1.Button14Click(Sender: TObject);
var
  D: array of char;
  S: array [0..1] of char;
  st: string;

function Foo(charArray: array of char): string;
var
  i: integer;
begin
  Result := 'a';
  for i := Low(charArray) to High(charArray) do
    Result := Result + charArray[i];
end;

begin
  SetLength(D, 2);
  D[0] := 'D';
  D[1] := 'y';
  S[0] := 'S';
  S[1] := 't';
  Memo1.Lines.Add(Foo(D));
  Memo1.Lines.Add(Foo(S));
  SetString(st, PChar(@D[0]), Length(D));
  Memo1.Lines.Add('a' + st);
end;

这可以工作，但每个列表项输出为[object Object]。我哪里错了？

我的控制台输出看起来像这样......

Answer 1

你有对象的数组，因此当你做

时

"<li>" + data.data[i] + "</li>"

这些对象被转换为字符串。普通对象的toString表示为[object Object]。

根据你的问题，你不清楚你期望什么，所以你可以得到对象的apple字段：

"<li>" + data.data[i].apple + "</li>"

或使用此对象的JSON表示形式：

"<li>" + JSON.stringify(data.data[i]) + "</li>"