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

[evg_m]

Насколько понял исходную задачу
ЕСТЬ 4 строки и N столбцов исходной таблицы в Clipboard
НАДО записать в БД N записей по 4 поля в каждой
ПОКОЛОНОЧНАЯ запись!!!

str.text:=clipboard.text; //получаем ВСЮ таблицу и записывем ее в 4 строки списка (УЖЕ ЕСТЬ)

А теперь заводим 4 отдельных списка и вносим (разбираем) туда каждую строку ОТДЕЛЬНО

str0.text:=str[0]; // здесь конечно нужен и StringReplace!!!!
....
str3.text:=str[3];

Ну вот списки готовы!
Теперь если нужно и есть желание можем проверить правильность

str0.count =str1.count  and str1.count =str2.count and ...

А еще в нужные колонки добавляем перекодировку (. ->,)

str2.text:=StringReplace(str.text, '.', ',', []);

Фиксируем поля!

f1:=ado.FildField();
...
f4:=ado.findfield();
//да их можно (и даже нужно) запомнить

И начинаем загонять!!

for j:=0 to str1.count-1 do begin
  ado.append; ( и дополнительный Edit здесь не нужен)
  f1.value:=str0[j];
  ...
  f4.value:=str3[j];
  ado.Post;
end;

P.S. если есть желание и дальше работать со StringGrid, то
первое что надо будет сделать для снижения времени работы
ВЫКИНУТЬ из циклов ИЗМЕНЕНИЯ размеров таблицы.

StringGrid.rowcount :=....
StringGrid.colcount :=

отнимающее кучу времени.
Задавать размер нужно ОДИН РАЗ сразу как только мы узнали сколько строк (колонок) у нас будет.

StringGrid.colcount:=cell.count;

[Stilet]

прибор сделан так что файлы из него никак не вытащить

Сам прибор? Или ПО к нему? Я бы не отбрасывал возможность замены этой ПО.
В любом случае evg_m прав. Вытаскивай из клипбоарда данные в TStringList и уже из него делай вставку в базу, а потом и грид наполнишь.

[Ernest027]

а как это сделать?
как здесь эту строчку заменить?

if stringgrid1.RowCount=4 then
begin
for l := 4 to stringgrid1.ColCount-2 do
begin
Datamodule2.ADOQuery1.Append;
Datamodule2.ADOQuery1.Edit;
Datamodule2.ADOQuery1.FieldByName('f').AsString:=StringGrid1.Cells[l,0];
Datamodule2.ADOQuery1.FieldByName('a').AsString:=StringGrid1.Cells[l,1];
Datamodule2.ADOQuery1.FieldByName('v').AsString:=StringGrid1.Cells[l,2];
Datamodule2.ADOQuery1.FieldByName('d').AsString:=StringGrid1.Cells[l,3];
Datamodule2.ADOQuery1.Post;
end;
end;

[evg_m]

var
  f1, f2, f3, f4: TField;

f1:=DataModule2.AdoQuery1.findField('f');
....

for j:=0 to str0.count -1 do begin
  DataModule2.AdoQuery1.Append;
  f1.AsString:=str0.Strings[j];
  ....
  DataModule2.AdoQuery1.Post;
end;

[Stilet]

var row:TStringList;
...
row:=TStringList.Create;
with TStringList.Create do begin
 Text:=ClipBoard.AsText;
 for i:=0 to Count-1 do begin
  row:=stringReplace(Strings[i], #9, #13#10, [rfReplaceAll]);
  Datamodule2.ADOQuery1.Append;
  Datamodule2.ADOQuery1.FieldByName('f').AsString:=row[0];
  Datamodule2.ADOQuery1.FieldByName('a').AsString:=row[1];
  Datamodule2.ADOQuery1.FieldByName('v').AsString:=row[2];
  Datamodule2.ADOQuery1.FieldByName('d').AsString:=row[3];
 end;
 free;
end;
  row.free;
  Datamodule2.ADOQuery1.Post;
...
end;

Идея ясна?

[Ernest027]

понятно,но проблема в том,что в этой таблице присутствуют и числа и слова. а тип поля в бд у меня числовой

[Stilet]

Не мала баба клопоту )))
Так у тебя там, как сказал бы Купетман, целый букет с подарочным?
Ты бы может всетки для начала определился со структурой БД? Если ты в нее хочешь пхать и числа и строки, то как-то же нужно подогнать таблицы под это дело?
И как у тебя тогда твой код работал, если я с него и сдер механизм?

[Ernest027]

Я вставлял только числа) мне слова не важны,мне нужны числа. Поэтому и приходится не всю строку stringgrid'а вставлять в БД,а выборочно

[Stilet]

Ну вставляй выборочно... Не понимаю в чем затык?

[Ernest027]

В скорости. 2 минуты занимает процесс