Показать сообщение отдельно
Старый 18.10.2005, 10:37     # 5
FRiker
Newbie
 
Регистрация: 26.04.2005
Сообщения: 22

FRiker Путь к славе только начался
Код:
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'

Последний раз редактировалось FRiker; 18.10.2005 в 11:02.
FRiker вне форума