Как присвоить переменной в delphi значение поля из таблицы в SQL

[ULR]

Здравствуйте! Помогите пожалуйста нужно присвоить переменной s типа string значение поля, которое является результатом запроса SQL и имеет (содержимое поля) тип char. В строчке, где присваиваю s выдает ошибку, может, если знаете, подскажите как правильно это написать?

procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
s:string;
ADOQuery1: TADOQuery;
begin
 n:=strtoint(edit1.text);
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('SELECT marshrut FROM Table_1 WHERE adr=n and b=false');
 ADOQuery1.Open;
 s:=FieldByName('marshrut').AsString;
end;

[Аватар]

s:=ADOQuery1.FieldByName('marshrut').AsString;

ADOQuery1: TADOQuery; зачем? Создайте его в дизайне, строку соединения в нем или ADOConnection настройте

[ULR]

понятно) спасибо!

[ULR]

скажите пожалуйста, если не сложно, что значит эта ошибка?
Access violation at address 05бблабла. Read of address 05бблабла

[Stilet]

Значит ты пытаешся работать с переменной, которая обращается в запрещенную ячейку памяти. Обычно это бывает из-за неправильного создания объектов.

[phomm]

И других косяков вал.

procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
s:string;
ADOQuery1: TADOQuery;
begin
 n:=strtoint(edit1.text);
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('SELECT marshrut FROM Table_1 WHERE adr=n and b=false');
 ADOQuery1.Open;
 s:=FieldByName('marshrut').AsString;
end;

в часть where так из дельфи кода не передать данные - либо делайте сборную строку 'блабла'+ строковая_переменная + ' ещё бла' либо используйте механизм параметров в запросе - гоогле "adoquery parameters"
Непонятно, чей филдбайнейм - он так-то должен принадлежать адоквере, и вообще строка бессмысленна - результат операции остаётся в локальной переменной s и больше никуда не используется, по уму его ж надо куда-то выводить.
Предлагаю примерно так (написано прямо тут без проверки):

procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
s:string;
ADOQuery1: TADOQuery;
begin
if trystrtoint(edit1.text, n) then 
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT marshrut FROM Table_1 WHERE adr=:n and :b=false');
  ADOQuery1.ParamByName('n').Value := n;
  ADOQuery1.ParamByName('b').Value := b;
  ADOQuery1.Open;
  if ADOQuery1.RecordCpunt > 0 then
    Memo.add(ADOQuery1.FieldByName('marshrut').AsString);
end;
end;

[ULR]

Спасибо вам за помощь!