将多种数据类型读入列表

Question

一旦问题发布，标题可能会更新，但我从一个.ini文件开始，我想将整数，字符串，Bool保存到此.ini文件。

我可以做些什么

WriteString
WriteInteger
WriteBool

然后我想将它读入一个列表，当我从列表中提取数据时，它会知道它已准备好整数或字符串还是bool？

目前我必须将所有内容都写成字符串然后读入字符串列表。

Answer 1

如上所述，您可以将所有数据读取为字符串。您可以使用以下函数来确定数据类型：

type
  TDataType = (dtString, dtBoolean, dtInteger);

function GetDatatype(const AValue: string): TDataType;
var
  temp : Integer;
begin
  if TryStrToInt(AValue, temp) then
    Result := dtInteger   
  else if (Uppercase(AValue) = 'TRUE') or (Uppercase(AValue) = 'FALSE') then
    Result := dtBoolean
  else
    Result := dtString;
end;


You can (ab)use the object property of the stringlist to store the datatype:


procedure TMyObject.AddInteger(const AValue: Integer);
begin
  List.AddObject(IntToStr(AValue), TObject(dtInteger));
end;

procedure TMyObject.AddBoolean(const AValue: Boolean);
begin
  List.AddObject(BoolToStr(AValue), TObject(dtBoolean));
end;

procedure TMyObject.AddString(const AValue: String);
begin
  List.AddObject(AValue, TObject(dtString));

end; 

function TMyObject.GetDataType(const AIndex: Integer): TDataType;
begin
  Result := TDataType(List.Objects[AIndex]);
end;