如何从框架中获取用户输入并保存到 txt 文件中？

Question

我的程序运行如下：

• 我有一个带有添加按钮、保存按钮和选项卡控件的表单。
• 当点击表单中的添加按钮时，tabcontrol会添加更多的tabitem。 并且 tabitem 基本上是从 myframe 添加的，其中包括 TEdit 中的用户键入值。

我想要实现的是当我单击表单中的保存button(tick)时，将所有用户输入从框架打印到 txt 文件。 这是我的代码形式。 谁能给我一些提示？

我的框架图像：

我的表格图片：

我的代码：

Answer 1

下面应该教你所有你需要的成分。

创建一个新的应用程序。 我选择制作一个 VCL 应用程序，但我仔细检查了 Firemonkey (FMX) 中的所有步骤是否相同。

添加一些编辑框和组合框，如下所示：

分别将控件命名为eFirstName 、 eLastName 、 cbSex和btnSave 。

然后为按钮编写以下OnClick处理程序：

procedure TForm1.btnSaveClick(Sender: TObject);
var
  DataFile: TMemIniFile;
begin
  DataFile := TMemIniFile.Create(TPath.Combine(TPath.GetDocumentsPath, 'PersonalData.txt'));
  try
    DataFile.WriteString('General', 'FirstName', eFirstName.Text);
    DataFile.WriteString('General', 'LastName', eLastName.Text);
    if cbSex.ItemIndex <> -1 then
      DataFile.WriteString('General', 'Sex', cbSex.Items[cbSex.ItemIndex]);
    DataFile.UpdateFile;
  finally
    DataFile.Free;
  end;
end;

您需要将IniFiles和IOUtils添加到您的uses列表（至少是implementation之一）。

现在，如果你填写表格，

并单击Save按钮，将创建以下文件：

[General]
FirstName=Andreas
LastName=Rejbrand
Sex=Male

仅从屏幕截图中并不明显，但如果您在顶部编辑框并反复按Tab键，您会 go 到第二个编辑框，到组合框，然后最后到按钮。 这是因为我确保标签顺序是正确的。 你也应该这样做。

还要注意带下划线的字符。 这些被称为键盘加速器。 例如，如果我按Alt + F ，焦点将移至“ First name ”字段。 这是通过为 label 提供标题（文本） &First name:并将相应的编辑控件分配给标签的FocusControl属性来实现的。

在这种情况下，按钮是Default ，这意味着它是响应Enter键的按钮。 如果它不是默认的（并且在您的 GUI 中，这可能没有意义），我会给它标题&Save并将&Sex:更改为S&ex: 。 你能猜到为什么吗？

其他方法

您还可以使用TStringList ：

procedure TForm1.btnSaveClick(Sender: TObject);
var
  DataFile: TStringList;
begin
  DataFile := TStringList.Create;
  try
    DataFile.AddPair('FirstName', eFirstName.Text);
    DataFile.AddPair('LastName', eLastName.Text);
    if cbSex.ItemIndex <> -1 then
      DataFile.AddPair('Sex', cbSex.Items[cbSex.ItemIndex]);
    DataFile.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'PersonalData.txt'),
      TEncoding.UTF8);
  finally
    DataFile.Free;
  end;
end;