Внимательно только сравни.
function Test(const Xn, Wn: array of Real): Real;
var
Sum: Real; // взвешенная сумма.
i: Integer; // счетчик.
tasks: array of itask;
XnBuf, WnBuf: Real;
begin
Sum := 0;
SetLength(tasks, Length(Xn));
for i := 0 to High(Xn) do
begin
XnBuf := Xn[i];
WnBuf := Wn[i];
tasks[i] := TTask.Create(
procedure()
begin
Sum := Sum + XnBuf * WnBuf; // подсчет взвешенной суммы.
end);
end;
for i := 0 to High(tasks) do
tasks[i].Start;
TTask.WaitForAll(tasks);
end;var _msg = HttpUtility.UrlEncode(msg, Encoding.GetEncoding(1251)); Не помогло, сообщение стало выглядеть так "%c7%e4%f0%e0%e2%f2%e2%f3%e9" (так же как и при отправке на сайте в заголовке "%C7%E4%F0%E0%E2%F2%E2%F3%E9")
