主页 / 问题 / 1155348
Accepted
Татьяна
Asked:2020-07-21 08:40:23 +0000 UTC2020-07-21 08:40:23 +0000 UTC

单击按钮更改编辑文本

  • 772

在表单上有一个按钮 Button1Click 和 Edit1.Text 以及一个文本文件1.txt，其中有几行： 例如：

1234567
98765432
3232323
434343434

需要在Edit中点击按钮时，出现第一行1234567 的值，按下按钮，第二行98765432的值也会出现，以此类推。但是什么是有序的。

delphi

1 个回答

  1. Best Answer

    让我们memo先从.txt. 一般逻辑似乎是正确的，但我不仅仅是确定我在某个地方犯了错误，而且不止一个。试试这个代码。并报告错误。我们会修复它。如果我是你，我会首先尝试将列表中的值放入对话框中，以这种方式 -ShowMessage(textFromFile.Strings[numberItem]);通过将此消息调用放置在按钮单击事件中。

    全局声明变量：

    var 
textFromFile: TStringlist;
numberItem: integer;

    引发表单初始化事件。这里创建了一个列表，其中输入了您的文本文件的值：

    procedure TForm1.FormCreate(Sender: TObject);
begin
numberItem:=0;
textFromFile:=TStringlist.Create;
textFromFile.LoadFromFile('ваш_текстовый_файл.txt');
end;

    调用按钮单击事件（选项 1）。这是按钮点击计数器，以及在备忘录中创建一个空字符串以将创建列表中的值输入其中textFromFile:=TStringlist.Create;：

    procedure TForm1.Button1Click(Sender: TObject);
begin
numberItem:=numberItem+1;
//ShowMessage(textFromFile.Strings[numberItem]);
Memo1.Lines.Add;
Memo1.Lines[numberItem]:=textFromFile.Strings[numberItem];
end;

    调用按钮单击事件（选项 2）：

    procedure TForm1.Button1Click(Sender: TObject);
begin
numberItem:=numberItem+1;
Memo1.Lines.Add;
Memo1.Lines.Insert(numberItem, textFromFile.Strings[numberItem]);
end;
    • 1

相关问题