1

На форме расположена кнопка Button1Click и Edit1.Text а также и текстовый файл 1.txt в котором есть строки: Например:

1234567
98765432
3232323
434343434

Нужно что бы при нажатия на кнопку в Edit появилось значение первой строки 1234567 Нажал кнопку еще появилось значение второй строки 98765432 и так далее. Но что бы по порядку.

6
  • 1
    может эти строки лучше в memo или richedit добавлять чередом? Или edit обязательно?
    – rabbit
    21 июл 2020 в 3:30
  • @sergey kuznetsov, Можно и так, что бы эти строки из Memo брать. Помогите решить вопрос. 21 июл 2020 в 9:47
  • 1
    у вас есть какие нибудь наработки события Button1Click?
    – rabbit
    21 июл 2020 в 9:54
  • @sergey kuznetsov, к сожалению нет. Просто не знаю как это сделать. 21 июл 2020 в 10:10
  • 1
    с pascal и delphi уже много лет не имел дел. Но я попробую по памяти написать.
    – rabbit
    21 июл 2020 в 11:28

1 ответ 1

1

Давайте сначала попробуем в 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). Тут счетчик клика на кнопку, а так же создание пустой строки в memo для занесения в нее значения из созданного списка 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;
6
  • 1
    Немного логику поняла и переделала под себя. Спасибо! Вопрос решен. 21 июл 2020 в 12:36
  • 1
    Код то работает?
    – rabbit
    21 июл 2020 в 12:40
  • 1
    Да, после некоторых правок. Просто идеально!!!!!! 21 июл 2020 в 14:13
  • 1
    @Татьяна, Боялся, что облажаюсь. Просто я на delphi сегодня начал писать спустя 8 лет, с того момента, когда в последний раз, на первом курсе вуза написал на нем последнюю лабораторную, и забыл про него :-). Ну если так, тогда я рад!
    – rabbit
    21 июл 2020 в 14:17
  • 2
    Две строчки добавления строки в Memo замените на одну Memo1.Lines.Add(textFromFile[numberItem]);
    – MBo
    21 июл 2020 в 16:43

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.