[Kot137]

Коллеги, или я от жизни отстал (4 года в ASP) или что-то не так:
Строковая функция Delete отказывается работать в Rave 2009.
Вроде в uses - StrUtils прописал, но на

Код:

1	tmp:=Delete('skjdnvfskjvcnskdjfks',2,3);

выдает: [DCC Error] Unit1.pas(63): E2197 Constant object cannot be passed as var parameterЯ не те uses'ы цепляю или есть изменения или что?
Спасибо!

[Thrasher]

Все верно. Дело в том, что параметром данной функции является строковая переменная. Поэтому правильно было бы

Код:

1 2 3 4 5 6

Var S:string; begin S:='skjdnvfskjvcnskdjfks'; tmp:=Delete(S,2,3); end;

[Kot137]

Реально так и есть:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;   const pDisp: IDispatch; var URL: OleVariant); var   Doc: Variant;   txt, tmp: string;   x: integer; begin     Doc:= WebBrowser1.Document;     txt:=doc.documentElement.innerHTML;     tmp:=txt;     x:=0;   while Pos('href=', tmp)>0 do   begin     tmp:=Delete(tmp,2,3);     richedit1.Lines.Add(tmp);   end; end;

но не работает

[Kot137]

Тут ничего не нужно добавить?

Код:

1 2 3 4 5 6

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, XMLBrokr, ComCtrls, HTTPApp, HTTPProd, CompProd, PagItems,   MidProd, OleCtrls, SHDocVw, IWVCLBaseControl, IWBaseControl,   IWBaseHTMLControl, IWControl, IWCompObject, ActiveX, IWCompActiveX, Grids,   ValEdit, StrUtils, DBTables, Buttons;

[Sky.NET]

А ничего, что это процедура, а не функция?

[Bars1992]

Сообщение от Sky.NET

А ничего, что это процедура, а не функция?

Sky.NET прав

PHP код:

h:='skjdnvfskjvcnskdjfks';
Delete(h,2,3); 


[Страдалецъ]

И не будет работать, ибо:
Этой процедуре уже больше 10 лет, она еще из паскаля приблудилась. И синтаксис ее использования тоже не менялся столько-же.
Первым параметром этой процедурки является переменная строкового типа, а не всякие там новомодные варианты. И потому переменная, что результат сия процедурка вернет в нее же.