Код:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, FMTBcd, SqlExpr;
Вот, как у меня выглядит обработка кнопки:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
FileSource : textfile;
str : string;
buf : string;
x:integer;
y: string;
begin
assignfile(filesource,'1.txt');
reset(filesource);
while not eof(filesource) do begin
inc(x);
y:=IntToStr(x);
repeat
readln(filesource,str);
buf:=buf+str;
Until Str=razdel;
ADOQuery1.ParamByName('Номер записи')->Value = y;
ADOQuery1.ParamByName('Текст')->Value = buf;
ADOQuery1.ExecSQL();
end;
CloseFile(filesource);
end;
При компиляции, возникает ошибка: Undecrlared identifier: 'ParamByName'