[HardDay]

qpuSkl.SQL := MakeTerrSQL(qpuSkl.SQL);
------------------------------------------------------------
function MakeTerrSQL(var SQL:TWideStrings): TWideStrings;
begin
SQL.Clear;
SQL.Add('SELECT ....;');
Result := SQL;
end;
-------------------------------------------------------------
Компилятор ругается , грит нефиг пихать вар-параметр как константу!

Подскажите плз люди добры кок побороть сию напасть! ОЧЕНЬ надо!

[Aristarh Dark]

HardDay, уважай других пользователей форума, не ругайся.

А по поводу вопроса: говрит что нельзя - значит нельзя, убери var.

[AlexSku]

Судя по справке, TWideStrings - это объект (в смысле класс), а объекты передаются как указатели, т.е. VAR не нужен. Кроме того, зачем его дублировать и передавать ещё и в Result'е? Это можно убрать (т.е. оформить как procedure(s: TWideStrings);