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

made in programmersforum 5

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

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

25th
Окт

Сравнение строк методом перебора в StrinGrid

Posted by Chas under Пост-обзор

Не могу придумать код, перебора строк в StringGrid. Мне нужно найти строку из Edit’а в StringGrid при этом, если она не будет найдена, то применить ее из Edit к String~

var
  flag: boolean;
  i, j :integer;
begin
  flag:= fasle; // true – если строка найдена
  for I:= 0  to КоличествоСтрок – 1 do
  forj:= 0 to Количество столбцов – 1do
  begin
     if StringGrid1.Cells[i,j] = Edit.Text then
     begin
       flag:= true;
       break; 
     end;
  end;
  
  //если не найдена строка
  if not flag then
  begin
    ищем где-то там……
 end;