将fmx项目转换为vcl Delphi XE10

Question

我尝试在我的项目中使用firebase，我找到了一个关于她的Firebase4Delphi firebase的例子，但他们使用的是FMX而不是VCL， 如何在VCL项目中使用它而不是在FMX中？

主要问题在这里，我在VCL应用程序库中找不到TListViewItem：

procedure TMainForm.OnNewMessage(AChatMsg: TChatMessage);
var
  Item: TListViewItem;
begin
  try
    ListView1.BeginUpdate;
    try
      Item := ListView1.Items.Add;
      Item.Text := AChatMsg.Msg;
      Item.Detail := AChatMsg.Username;
    finally
      ListView1.EndUpdate;
    end;

  finally
    AChatMsg.Free;
  end;
end; 

Answer 1

无法将FMX项目自动转换为VCL项目。在VCL项目中，ListView的项目来自TListItem类型。试试这个：

procedure TMainForm.OnNewMessage(AChatMsg: TChatMessage);
var
  Item: TListItem;
begin
  try
    Item := ListView1.Items.Add;
    Item.Caption := AChatMsg.Msg;
  finally
    AChatMsg.Free;
  end;
end;