Записать значения в базу отличные от предыдущей записи.

[Aleksandr]

Данные с ком порта вот такого вида
4,4
4,4
4,8
8
8
8
8
9,2
8
8
4
3
а нужно чтобы записались
4,4
4,8
8
9,2
8
4
3
СУБД MYSql

[eval]

проще написать хранимую процедуру, в которой первым делом проверить что там есть и по результату либо вставить либо нет.

[Yurk@]

private 
  last_massa : double;
...
procedure FormCreate;
begin
  last_massa = 100500;
end;

procedure PostData;
var
  r : double;
begin
  // всё что было выше я не трогаю ... продолжаю с
  Edit2.Text:=FloatToStr(r);
  ...
  if (r > 0) AND (r <> last_massa) then
  begin
    ADOTable1.Insert;
    // заполняем данные
    ADOTable1.FieldByName('Massa').Value := r;
    < и т.д. и т.п.>
    // пытаемся сохраниться
    try
      MainForm.ADOTable1.Post;
      // запоминаем предыдущую массу
      last_massa := r;
    except
      <работаем с ошибкой (если она есть)>
    end;
  end;
end;

[Aleksandr]

Yurk@ спасибо сделал. Сейчас запустил буду тестировать.

[rdama]

А на таблицу кинуть уникальный индекс?
И в случае получения ошибки о дубле просто переходить на следующий элемент.

[Аватар]

Тут по-моему не в уникальности дело, а отказ от записи подряд идущих одинаковых значений некоторого поля

[rdama]

А если добавить дату и время. Хотя не ясно что за задачу решает ТС. Может тут и о пакетах данных стоит говорить. Т.е. являются ли эти циферы непрерывным пакетом измерений или это единичные циферы, ни коем образом не связанные друг с другом.
А может стоит установить интервалы через которые необходимо писать данные. В общем ХЗ.

[Yurk@]

Хотя не ясно что за задачу решает ТС

та что ж там неясного то ... фиксирует моменты изменения массы.
нет смысла каждую минуту (например) записывать одно и то же значение, гораздо проще его не писать зная что оно не изменялось