[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]);
...

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