StringGrid проверка данных

[-=Virus=-]

Если не трудно покажите на примере что я не так сделал.

[Прик]

С охотой, только вопрос этот не понятен.

Сообщение от -=Virus=-

Посоветуйте как сравнить из каждой строчки колонки с данными.

Что с чем сравнивать не ясно?

Сообщение от -=Virus=-

Затем если данные правельные то скопирывать данные из 1 и 2 колонки.

Что в вашем представлении "правильные данные"? Копировать все данные из 1 и 2 колонок или те, которые "правильные"? И, наконец, куда копировать?

[-=Virus=-]

Сообщение от Прик

С охотой, только вопрос этот не понятен.
Что с чем сравнивать не ясно?
Что в вашем представлении "правильные данные"? Копировать все данные из 1 и 2 колонок или те, которые "правильные"? И, наконец, куда копировать?

Сравнить данные из 1 столбца с данными из edit,причём нужно все строчки проверить. И если совпадают данные из 1 столбца с edit то передать переменным l и p

[Прик]

Сравнивать надо каждую ячейку что ли? Никак нельзя добиться от вас "правды".
Таблица состоит из колонок и строк. На пересечении находятся ячейки, в которых есть данные.
Просто перебрать все ячейки одного столбца? Если так, то простой цикл:

if StringGrid.Cells[1, R] = Edit1.text then  //в [1, R] 1 - это индекс второго стольца в таблице
  <строки в ячейке и Edit1 совпали и что-то делаем>

Все равно не понятно. А если в нескольких ячейках данные совпадут с Edit1.Text, то что делать?
Появились какие-то переменные l и p. Какого они типа не ясно. Глобальные или локальные. Если совпадающих с Edit1.Text ячеек много, то переменных мало получается.

Сравнить данные из 1 столбца

В этом случае "1" читать как "из первого столбца" или "из одного столбца"?

Видите, как важно правильно сформировать вопрос, чтобы тут не ковырялись в попытках "расшифровать" чего вам надо, а сразу ответили бы. Последнее "объяснение" запутало еще больше.
Может кто другой поймет чего автору надо. Я сдаюсь.

[-=Virus=-]

Из каждой строчки первую колонку и сравнивать с edit,если всё правельно то копировать текст из 1 и 3 колонки в переменные l и P. l,P:String;
Если же не совпадают данные то проверять следущею строчку.

[Прик]

var
  R : Integer;
begin
  for R := 0 to StringGrid1.RowCount-1 do
    if StringGrid1.Cells[0, R] = Edit1.Text then begin
      I := StringGrid1.Cells[0, R];
      P := StringGrid1.Cells[2, R];
      break;
    end;

Проходим в цикле по первой колонке (ее индекс = 0).
Если тексты в ячейке и Edit совпадают, то записываем в L строку из совпадающей ячейки, а в P строку из ячейки, которая находится на пересечении строки таблицы R и третьей колонки.

При совпадении текстов и после записи в переменные прерываем цикл (break).

Правда, опять не понятно: "копировать текст из 1 и 3 колонки".
Имеется ввиду весь текст, которые во всех ячейках колонки (составной текст из всех ячеек колонок 1 и 3 или текст ячеек (из 1 и 3 колонки, индекс строки (R) которых совпадает с той, где поиск нашел "правильные" данные?