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

[Slym]

В моем примере съезжают? нет... показывай проблемный (твой) код
Тему скорости не раскрыл...

[Ernest027]

в excel пример таблицы

[Slym]

что тут поехало?

[Ernest027]

Пардон, не тот файл скинул

[Slym]

row[i].DelimitedText плохо работает... ша починю

[Ernest027]

Спасибо большое)

[Slym]

В лоб без StringReplace не получилось...

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:=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:=DecimalSeparator;
      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
        DecimalSeparator:=OldDecimalSeparator;
      end;
    finally
      for i:=low(row) to high(row) do
        row[i].Free;
    end;
  finally
    lines.free;
  end;
  ADOTable1.Requery();
end;

[Ernest027]

Огромнейшее Вам спасибо) работает чудесно)))

[Ernest027]

заменил adotable на adoquery и не работает(
пишет "неправильный синтаксис около конструкции "*""

[Slym]

какой запрос?