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

[evg_m]

StrToFloatDef();

заполняются нулями(((

StringGrid1.Cells[l,j]:=StringReplace(StringGrid1.Cells[l,j], '.', ',', [rfReplaceAll]);

НЕ забываем про РАЗЛИЧНЫЕ стандарты DecimalSepator.

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

row[0].Text:=StringRepalce( ClipBoard.AsText, ',', DecimalSeparator, [dtreplaceall] );

И далее все как было!

если НЕ УВЕРЕНЫ что будет в исходном тексте и что НУЖНО нам (при работе на разных компах!) можно немного по другому

row[0].text:=Clipboard.Text;
row[0].text:=StringReplace(row[0].text, ',', DecimalSeparator, [rtreplaceall]);
row[0].text:=StringReplace(row[0].text, '.', DecimalSeparator, [rtreplaceall]);

[Slym]

Не нравится мне ваши StringReplace память дует...

procedure TForm1.Button1Click(Sender: TObject);
const FieldNames:array[0..3] of string=('f','a','v','d');
var
  i,j:integer;
  lines:TStringList;
  row:array[0..3] of TStringList;
  Fields:array[0.3] of TField;
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
      begin
        row[i].Delimiter:=#9;
        row[i].DelimitedText:=lines[i];
      end;
      lines.Clear;
      for i:=low(Fields) to high(Fields) do
        Fields[i]:=Datamodule2.ADOQuery1.FieldByName(FieldNames[i]);
      for i:=0 to row[0].Count-1 do
      begin
        memo1.lines.add(row[0][i]+'|'+row[1][i]+'|'+row[2][i]+'|'+row[3][i]);
        Datamodule2.ADOQuery1.Append;
        for j:=low(Fields) to high(Fields) do
          Fields[j]:=StrToFloatDef(row[j][i],0);
        Datamodule2.ADOQuery1.Post;
      end;
    finally
      for i:=low(row) to high(row) do
        row[i].Free;
    end;
  finally
    lines.free;
  end;
end;

[Ernest027]

по времени так же долго получается

[evg_m]

по времени так же долго получается

1) 6420 записей.

for i:=1 to 4 do begin
row[i].capacity:=6500; (>=ожидаемое число колонок)
row[i].Text:=stringReplace(row[0][i-1], #9,#13#10, [rfReplaceAll]);//или любой другой код загрузки полей!!!
end;

[Slym]

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

по времени так же долго получается

И правильно... зачем Query.Append для мульти вставки пользовать? Тыб еще в тейбл пихал
Для этого Execute есть, а лучше TADOCommand.Execute

Кроме того транзакцируй Где BeginTransaction EndTrans? раз с сотню строк коммитить транзакцию...

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
  lines:TStringList;
  row:array[0..3] of TStringList;
  Command:TADOCommand;
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
      begin
        row[i].Delimiter:=#9;
        row[i].DelimitedText:=lines[i];
      end;
      lines.Clear;
      Command:=TADOCommand.Create(nil);
      try
        Command.Connection:=ADOConnection;
        Command.CommandText:='INSERT INTO Table (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
            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
      for i:=low(row) to high(row) do
        row[i].Free;
    end;
  finally
    lines.free;
  end;
end;

[Ernest027]

'неправильный синтаксис около конструкции "@P1"'

[Slym]

Ну а подумать? SQL запрос не верный...

Command.CommandText:='INSERT INTO Table (f, a, v, d) VALUES (:f, :a, :v, :d);';

[Ernest027]

не работает, вообще ничего не делает

[Slym]

Ну ты же догадался в запросе Table заменить на правильное значение...
Выложи уже проект...

[Ernest027]

Поменял конечно
весь не войдет, это часть