将多种数据类型读入列表

Question

一旦发布问题，标题可能会更新，但我从一个 .ini 文件开始，我想将 Integers 、 Strings 、 Bool 保存到这个 .ini 文件中。我可以用

WriteString
WriteInteger
WriteBool

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

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

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;