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

[Slym]

Мой тестовый проект... что я не так делаю?
все добавляется... экселька там же в архиве...

[Ernest027]

может у меня выводятся нули изза того что delphi не понимает точку в нецелых числах? в исходной таблице числа формата 0.000, 0.502. Может нужна запятая?

[evg_m]

Мой тестовый проект... что я не так делаю?

ЗАБЫВАЕШЬ о разных форматах представления(записи) ВЕЩЕСТВЕННЫХ чисел
и при тестировании ВЕЩЕСТВЕННЫХ не задаешь дробную часть.

может у меня выводятся нули изза того что delphi не понимает точку в нецелых числах? в исходной таблице числа формата 0.000, 0.502. Может нужна запятая

может

            for j:=0 to Command.Parameters.Count-1 do begin
  s::=row[j][i];
  s:=stringreplace(s, '.', DecimalSeparator, []);
                Command.Parameters[j].Value:=StrToFloatDef(s,0);
   end;

!! для НЕ любителей StringReplace
//for k:=1 to length(s) do if s[k]='.' then s[k]:=decimalSeparator;

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

[Slym]

о скорости не отписался....
кстати DecimalSeparator можно определять статистически прогнав поиск по тексту с подсчетом точек и запятых... чего больше то и сепаратор

function DetectDecimalSeparator(const Text:string):char;
var i:integer;
  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
      begin
        row[i].Delimiter:=#9;
        row[i].DelimitedText:=lines[i];
      end;
      OldDecimalSeparator:=DecimalSeparator;
      DecimalSeparator:=DetectDecimalSeparator(lines.Text);
      lines.Clear;
      try
        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
              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]

Ругается на decimalseparator

[Stilet]

В современных Делфи нужно писать FormatSettings.DecimalSeparator.
А современным школоло пора запомнить: Текст ошибки должен быть ОБЯЗАТЕЛЬНО опубликован, дабы не произошло концентрации телепатов в одном месте

[Ernest027]

Slym, Вот проект Ваш,там экселевский файл, в котором пример таблицы которую нужно в БД засунуть. Как сделать?

[Slym]

Даже скопипастить толком не можешь? где изменение DecimalSeparator?
У меня под Delphi7 все работает. рабочий пример и твой файл прилагаю

не забываем

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

В современных Делфи нужно писать FormatSettings.DecimalSeparator.
А современным школоло пора запомнить: Текст ошибки должен быть ОБЯЗАТЕЛЬНО опубликован, дабы не произошло концентрации телепатов в одном месте

[Ernest027]

Не пойму куда писать FormatSettings.DecimalSeparator.

Разобрался

[Ernest027]

единственная проблема: значения в столбцах a,v,d съезжают относительно столбца f на 2 строки вниз, как это исправить?