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

[-=Virus=-]

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

[asmodey1]

У StringGrid есть свойство Cells[Col, Row]...

[Stilet]

Рискну предположить что банальное

with StringGrid do
 if Cols[1].Text=Cols[2].Text then Они содержат одинаковый набор

Не проверял но попробовать мона.

[-=Virus=-]

Сообщение от Stilet

Рискну предположить что банальное

with StringGrid do
 if Cols[1].Text=Cols[2].Text then Они содержат одинаковый набор

Не проверял но попробовать мона.

А если весь список проверять?
Допустим я проверю так одну строчку,а нужно весь проверить.

[Stilet]

Допустим я проверю так одну строчку

Пардонте, колонку??? Или строки проверять нужно?
Впрочем в цикле

for i:=0 to ColCount-1 do
  if Cols[i]...

[-=Virus=-]

Сообщение от Stilet

Пардонте, колонку??? Или строки проверять нужно?
Впрочем в цикле

for i:=0 to ColCount-1 do
  if Cols[i]...

В каждой строчке 1 колонку

[Stilet]

В каждой строчке 1 колонку

А я что тебе показал?

[-=Virus=-]

Сообщение от Stilet

А я что тебе показал?

Спасибо сейчас попробую. С Новым Годом вас.

[-=Virus=-]

Хм. Что - то у меня не то получилась:

var
w,i:integer;
y,e:string;
begin
   for i:=0 to StringGrid1.ColCount -1 do
   if StringGrid1.Cols[i].text = Edit1.text then
    begin
      y:=TimeToStr(SysUtils.Time); 
      e:=DateToStr(SysUtils.Date); 

      inc(w);

      stringgrid2.RowCount:=stringgrid2.RowCount+1;

      StringGrid2.cells[0,w]:='['+e+']'+y; 
      StringGrid2.cells[1,w]:=edit1.text; 
      StringGrid2.cells[3,w]:=StringGrid1.Cols[i].text; 
    end;

Что не так подскажите.

[Прик]

Если что-то не получается, то надо обязательно говорить как это "не получается" выглядит.

Локальную переменную w надо инициализировать начальным значением. Т.к. при входе в процедуру значение этой переменной может быть каким угодно, но не тем, которое хочется. Это актуально и потому, что используется процедура Inc(w).

Cols[i].Text содержит текст всех ячеек колонки, разделенных символами "перевода каретки". При сравнении со строкой из Edit1.Text шансов на корректное сравнение, практически, нет. Для этого желательно применять свойство Cells StringGrid. Т.е. сравнивать с Edit1.Text строки, которые находятся в ячейках. Разумеется, в цикле.