Не работает условие

[ilyxaaa]

На форме имеется stringgrid edit и кнопка.
Так вот по кнопке дробавляется в stringgrid, нужно сделать что бы проверялось на дубли и выдавало сообщение, если дубля нету то добавилось в stringgrid.
Имеется такой код, но он не работает. Посмотрите кто знает.

procedure TForm1.btn1Click(Sender: TObject);
   var
  R : Integer;
 o: textfile;
 t, i,x:integer;
  begin
    for R := 0 to strngrd1.RowCount-1 do
    if strngrd1.Cells[0, R] = Edt1.Text then  begin
           showmessage('Повтор')
end else     begin

 strngrd1.RowCount:=strngrd1.RowCount+1;
strngrd1.Cells[0,strngrd1.RowCount-2]:=edt1.text;
strngrd1.Cells[1,strngrd1.RowCount-2]:=edt2.text;
                  end;
     end;

[Аватар]

Код влом отформатировать, на него смотреть аналогично влом. И этот код вполне рабочий

[ilyxaaa]

Но он не работает, выдает сообщение и добавляет несколько строк.

[Serge_Bliznykov]

попробуйте так:

 begin
    R := 0;
    while (R< strngrd1.RowCount) and (strngrd1.Cells[0, R] <> Edt1.Text) do Inc(R);
    if R<strngrd1.RowCount then
           showmessage(' Уже есть такая запись (см. строку ' + IntToStr(R) + ')')
    else begin
      strngrd1.RowCount:=strngrd1.RowCount+1;
      strngrd1.Cells[0,strngrd1.RowCount-1]:=edt1.text;
      strngrd1.Cells[1,strngrd1.RowCount-1]:=edt2.text;
    end;

[Аватар]

Если бы форматировал сам бы ошибку заметил

  for R := 0 to strngrd1.RowCount-1 do
    if strngrd1.Cells[0, R] = Edt1.Text then
    begin
      showmessage('Повтор');
      Exit;
    end;
  strngrd1.RowCount:=strngrd1.RowCount+1;
  strngrd1.Cells[0,strngrd1.RowCount-2]:=edt1.text;
  strngrd1.Cells[1,strngrd1.RowCount-2]:=edt2.text;

[ilyxaaa]

Serge_Bliznykov, Аватар, Спасибо.
Serge_Bliznykov, Ваш код работает как нужно спасибо еще раз.

[ilyxaaa]

Подскажите еще как написать, что бы в едит если есть пробел после слова, то он удалялся?

[Serge_Bliznykov]

что бы в едит если есть пробел после слова, то он удалялся?

может, Trim(edt1.Text) устроит?

[Simply-Art]

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

Подскажите еще как написать, что бы в едит если есть пробел после слова, то он удалялся?

r:=length(Edit1.Text);
while Edit1.Text[r]=' ' do
 begin
  Edit1.Text:=copy(Edit1.Text,0,r-1);
  r:=r-1;
 end;

[superedward]

strngrd1.Cells[i,j]:=Trim(edt1.text);