OleVariant类型与Tstrings类型如何相互转换

Question

如果是TStrings，还是转换为String然后直接用OleVariant吧，可以用自己定义分割符分开。收到OleVariant后，再根据分割符组装为TStrings

Answer 1

function StrsToVariant(AStrs: TStrings): OleVariant;
begin
  Result := AStrs.Text;
end;function VariantToStrs(AVariant: OleVariant): TStrings;
begin
  Result := TStringList.Create;
  Result.Text := AVaraint;
end;

Answer 2

倒，有我这么愚蠢的么？为什么不用.Text呢？