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

[Stilet]

Покажи код. После всех советов в этой теме как он теперь выглядит?

[Ernest027]

Он не поменялся,я не понимаю как его поменять. Если я сюда скину код,не могли бы Вы исправить его?

[Stilet]

я не понимаю как его поменять.

Т.е. даже не пытался?

[Ernest027]

Я не могу понять Ваш код

[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;

row[...] это обращение к элементу строки, в которой разделителем является символ табуляции.
Post делается после цикла, чтоб не тормозить его.

Так понятнее?

[Ernest027]

ругается на
row:=stringReplace(Strings[i], #9, #13#10, [rfReplaceAll]);
пишет
E2010 Incompatible types: 'TStringList' and 'string'

[Stilet]

row.text напиши.
Я с потолка писал, мог и очепятаться.

[Ernest027]

теперь как-то так

[Stilet]

И? О чем сей скрин должен сказать?
Я не понимаю )

[Ernest027]

вот я тоже не понимаю) Ваш код использовал)

это часть набора данных,которые надо засунуть в БД)))