[TaHdeR]

Подскажите пожалуйста можно ли имея компоненты Button, Query, Memo, DataSource и DBGrid вводить SQL запросы в поле Memo и при нажатии кнопки присваивать свойству Query1.SQL значение запроса с компонента Memo?

Query1.Active:=false;
Query1.SQL:=Memo1.Lines;
Query1.Active:=true;

Если это может работать, то какие различия от обычного синтаксиса mySQL ?

Наперед благодарна..

[s0Creator]

Сообщение от TaHdeR

Query1.SQL:=Memo1.Lines;

помоему правильней

Код:

 Query1.SQL.Text:=Memo1.Lines.Text;

Сообщение от TaHdeR

Если это может работать, то какие различия от обычного синтаксиса mySQL ?

не совсем понял
(а если не может работать? )
и причем тут Memo и синтаксис?

[Rosenkrantz]

Сообщение от s0Creator

помоему правильней

Код:

 Query1.SQL.Text:=Memo1.Lines.Text;

На самом деле правильней присваивать именно SQL, поскольку в реализации присвоения (в TQuery.SetQuery) делается Disconnect и вызываются BeginUpdate/EndUpdate.

[s0Creator]

Сообщение от Rosenkrantz

На самом деле правильней присваивать именно SQL, поскольку в реализации присвоения (в TQuery.SetQuery) делается Disconnect и вызываются BeginUpdate/EndUpdate.

Полностью согласен
В качестве оправдания:

Код:

procedure TADOQuery.SetSQL(const Value: TStrings);
begin
  FSQL.Assign(Value);
end;

Disconnect происходит и при

Код:

 Query1.Active:=false;

BeginUpdate/EndUpdate происходит в:

Код:

procedure TStrings.SetTextStr(const Value: string);

Зато если идти через TStrings.Assign
BeginUpdate/EndUpdate происходит дважды
(и в вызываемой AddStrings(TStrings(Source)); )
(плюс еще один в в TQuery.SetQuery)
а также еще переустановка всех параметров TStrings:

Код:

      Clear;
      FDefined := TStrings(Source).FDefined;
      FNameValueSeparator := TStrings(Source).FNameValueSeparator;
      FQuoteChar := TStrings(Source).FQuoteChar;
      FDelimiter := TStrings(Source).FDelimiter;
...
AddObject(Strings[i], Strings.Objects[i]);
...

хотя думаю особой разницы в производительности не заметим