таблицу из буфера ado

[Аватар]

DELETE * FROM Vibration

Енто чего?

[Ernest027]

ADOTable1.Requery(); заменил на ADOquery1.Requery();
и не работает

[Serge_Bliznykov]

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

ADOTable1.Requery(); заменил на ADOquery1.Requery();
и не работает

1) зачем Вы заменили ADOTable на ADOQuery?

2) при замене Вы не забыли в ADOQuery прописать Connection
и, главное, SQL запрос вида:

select * from Vibration

3) Вы не забыли в DataSource1 перенастроить связь и вместо ADOTable1 прописать так ADOQuery1 ?

4) кстати, а в чём именно проявляется это ваше "и не работает"?

[Ernest027]

все сделал
пишет "неправильный синтаксис около конструкции "*""

function DetectDecimalSeparator(const Text:string):char;
var i,comma,dot:Integer;
begin
  comma:=0;
  dot:=0;
  for i := 1 to Length(Text) do
  begin
    if Text[i]=',' then Inc(comma) else
    if Text[i]='.' then Inc(dot);
  end;
  if comma>dot then
    Result:=',' else
  if comma<dot then
    Result:='.' else
    Result:=FormatSettings.decimalseparator;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
  lines:TStringList;
  row:array[0..3] of TStringList;
  Command:TADOCommand;
  OldDecimalSeparator:Char;
begin
  if not Clipboard.HasFormat(CF_TEXT) then exit;
  lines:=TStringList.Create();
  try
    lines.Text:=ClipBoard.AsText;
    if lines.Count<4 then exit;
    for i:=low(row) to high(row) do
      row[i]:=TStringList.Create;
    try
      for i:=low(row) to high(row) do
        row[i].Text:=StringReplace(lines[i], #9,#13#10, [rfReplaceAll]);
      OldDecimalSeparator:=FormatSettings.DecimalSeparator;
      FormatSettings.DecimalSeparator:=DetectDecimalSeparator(lines.Text);
      try
        lines.Clear;
        Command:=TADOCommand.Create(nil);
        try
          Command.Connection:=ADOConnection1;
          Command.CommandText:='DELETE * FROM Vibration';
          Command.Execute;

          Command.CommandText:='INSERT INTO Vibration (f, a, v, d) VALUES (:f, :a, :v, :d)';
          Command.Prepared:=true;
          Command.Connection.BeginTrans;
          try
            for i:=0 to row[0].Count-1 do
            begin
              if (i<=3) or (i>=1605) then continue;
              for j:=0 to Command.Parameters.Count-1 do
                Command.Parameters[j].Value:=StrToFloatDef(row[j][i],0);
              Command.Execute;
            end;
            Command.Connection.CommitTrans;
          except
            Command.Connection.RollbackTrans;
            raise;
          end;
        finally
          Command.Free;
        end;
      finally
        FormatSettings.DecimalSeparator:=OldDecimalSeparator;
      end;
    finally
      for i:=low(row) to high(row) do
        row[i].Free;
    end;
  finally
    lines.free;
  end;
  ADOQuery1.Requery();
end;

[evg_m]

* не нужна!! мы же не поля удаляем, а целиком запись(или несколько)

Delete form ...

[Аватар]

см. #71

[Ernest027]

все хорошо, но сортирует непонятно

[Аватар]

все хорошо, но сортирует непонятно

А нужно понятно? В том коде вообще не вижу ни чего каким-то образом связанного с сортировкой и отображением. Разве что ADOQuery1 упоминается ненароком

[Ernest027]

вот именно,не нужна сортировка. в исходной таблице все числа по порядку,а прога после копирования в ado сама сортирует непонятно как

[Аватар]

в исходной таблице все числа по порядку

Сделай в запросе нужную сортировку, к табличной упорядоченности привязываться бессмысленно