Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Авг

Сравнить строку из memo с условием

Posted by micher under Delphi

Как строку из memo сравнивать с условием? И если не проходит по условию брать следующую?

Serge_Bliznykov

храните счётчик текущей строки где-нибудь глобально.
например:



procedure TForm1.FormCreate(Sender: TObject);

begin

  Button1.Tag := 0;

end;
procedure TForm1.Button1Click(Sender: TObject);

begin

  if Memo1.Lines.Count = 0 then begin

    showmessage('Memo пуст!! Нечего тут жмакать!');

    Exit;

  end;

  if Button1.Tag>=Memo1.Lines.Count

    then Button1.Tag := 0;
  showmessage('Очередная строчка мемо:'+chr(10)+chr(13)+

            Memo1.Lines[Button1.Tag]);
  Button1.Tag := Button1.Tag + 1;

end;

Пост написан при поддержке EuroCave — французские винные шкафы.

Особенности винных шкафов «EuroCave»:

Системы терморегулирования обеспечивают температуру внутри шкафa от 10° до 14° C;
Продукция EuroCave способна выдерживать температуры от 0 до 35° С. Это идеальный вариант, если вы хотите хранить винный шкaф в гараже;
Пассивная вентиляция с контрольным фильтром (древесный уголь);
Мощные антивибрационные системы «Vibration Exclusion System» (VES).

тема на форуме