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

[Aleksandr]

Пишу данные с com порта в базу .

var str: String;
  S, S1: String;

  f:real;
  s3:real;
  a,b:integer;
  i1,i2: Integer;
    r: Real;
begin
    try
       repeat
         str:=rs232.ReadString();
         if str<>'' then begin
           Memo1.Lines.Add(str);
          s1:=only_numbers(str);
   s1:=StringReplace(s1, '.',',' , [rfReplaceAll]);
 i1:=Pos(',',s1);
  if i1>0 then begin
    i2:=PosEx(',',s1,i1+1);
    if i2>0 then s1:=Copy(s1,1,i2-1)+Copy(s1,i2+1,Length(s1)-i2);
  end;
  r:=RoundTo(StrToFloatDef(s1,0),-2);  //результат
  Edit2.Text:=Floattostr(r);

  if strtofloat(Edit2.Text)>0 then
begin
  edtNotes.Text:=edtNotes.Text+Edit2.Text +#9#9+TimeToStr(now) +#13+#10;
  if strtofloat(Edit2.Text)>0 then
begin
  ADOTable1.Insert;
//MainForm.ADOTable1.Edit;

MainForm.ADOTable1.FieldByName('Massa').Value:=mainform.Edit2.Text;
MainForm.ADOTable1.FieldByName('Com').Value:=mainform.dbcombobox1.Text;
MainForm.ADOTable1.FieldByName('num').Value:='true';
MainForm.ADOTable1.FieldByName('Image').Value:='image';
 MainForm.ADOTable1.FieldByName('BaudRate').Value:= MainForm.ADOTable2.FieldByName('BaudRate').Value;
 MainForm.ADOTable1.FieldByName('Location').Value:= MainForm.ADOTable2.FieldByName('Location').Value;
 MainForm.ADOTable1.FieldByName('IP').Value:= MainForm.ADOTable2.FieldByName('IP').Value;
 MainForm.ADOTable1.FieldByName('Note').Value:= MainForm.ADOTable2.FieldByName('Note').Value;
 MainForm.ADOTable1.FieldByName('Model').Value:= MainForm.ADOTable2.FieldByName('Model').Value;
 MainForm.ADOTable1.FieldByName('Equopment').Value:= MainForm.ADOTable2.FieldByName('Equopment').Value;
 MainForm.ADOTable1.FieldByName('Name').Value:= MainForm.ADOTable2.FieldByName('Equopment').Value+' '+MainForm.ADOTable2.FieldByName('Model').Value;;
 MainForm.ADOTable1.FieldByName('Organization').Value:=mainform.dbcombobox3.Text;
 MainForm.ADOTable1.FieldByName('Date_posting').AsString:=DateToStr(now);
 MainForm.ADOTable1.FieldByName('Time_posting').AsString:=TimeToStr(now);
 MainForm.ADOTable1.Post;

  end;
  end;
         end;
       until str='';
    except
       on E:Exception do begin
         Timer3.Enabled := False;
         ShowMessage(E.Message);
       end;
    end;

Как сделать чтобы записывались данные только отличные от предыдущей записи, т.е. сейчас пишутся
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

[Аватар]

Ну так запоминай что записал, и перед записью следующей сравнивай и не пиши, если не изменилось

[Aleksandr]

Записываю в f:=strtofloat(Edit2.Text) а с чем сравнивать не знаю

[Аватар]

1. в f стринговое начальное значение запредельное, которого точно не будет считано (типа f:='###########')
2. перед Insert-ом сравнить f с Edit2.Text, если совпадает не писать, не совпадает - записать и в f поместить Edit2.Text

[Yurk@]

практичнее будет если организовать 2 динамических массива для старых и новых значений и сделать отдельную процедуру которая будет сравнивать эти массивы между собой, при необходимости обнолять в них данные и выдавать флаг что данные отличаются и нужно сохраниться

[Aleksandr]

Сделал, но все равно пишет все подряд.

 f:=222222;
if f<>strtofloat(Edit2.Text) then
begin
  ADOTable1.Insert;
//MainForm.ADOTable1.Edit;

MainForm.ADOTable1.FieldByName('Massa').Value:=mainform.Edit2.Text;
MainForm.ADOTable1.FieldByName('Com').Value:=mainform.dbcombobox1.Text;
MainForm.ADOTable1.FieldByName('num').Value:='true';
MainForm.ADOTable1.FieldByName('Image').Value:='image';
 MainForm.ADOTable1.FieldByName('BaudRate').Value:= MainForm.ADOTable2.FieldByName('BaudRate').Value;
 MainForm.ADOTable1.FieldByName('Location').Value:= MainForm.ADOTable2.FieldByName('Location').Value;
 MainForm.ADOTable1.FieldByName('IP').Value:= MainForm.ADOTable2.FieldByName('IP').Value;
 MainForm.ADOTable1.FieldByName('Note').Value:= MainForm.ADOTable2.FieldByName('Note').Value;
 MainForm.ADOTable1.FieldByName('Model').Value:= MainForm.ADOTable2.FieldByName('Model').Value;
 MainForm.ADOTable1.FieldByName('Equopment').Value:= MainForm.ADOTable2.FieldByName('Equopment').Value;
 MainForm.ADOTable1.FieldByName('Name').Value:= MainForm.ADOTable2.FieldByName('Equopment').Value+' '+MainForm.ADOTable2.FieldByName('Model').Value;;

 MainForm.ADOTable1.FieldByName('Organization').Value:=mainform.dbcombobox3.Text;
 MainForm.ADOTable1.FieldByName('Date_posting').AsString:=DateToStr(now);
 MainForm.ADOTable1.FieldByName('Time_posting').AsString:=TimeToStr(now);

 MainForm.ADOTable1.Post;
//MainForm.ADOTable1.Refresh;
 f:=strtofloat(Edit2.Text);
 end;

[Аватар]

Начальное значение не там же нужно присваивать, а, например, в Fom.OnCreate и f объявить, например, в private формы

практичнее будет если организовать 2 динамических массива для старых и новых значений

Можно, если сравнивать не только значения записываемые в Massa

[Aleksandr]

а f real или string

прописал f:=222222 в Form.Create
Не работает.

[Aleksandr]

Подскажите пожалуйства как это реализовать.

[eval]

что за субд, и что это за данные?