Спасибо, проясню для потомков примером, вдруг кому-то понадобится (: Program tst; type TArrOfTStringList = array [0..1] of TStringList; var tt: TArrOfTStringList; Function NewFunc(): TArrOfTStringList; begin result[0] := TStringList.Create; result[1] := TStringList.Create; end; begin tt := NewFunc()...

Изображаю код в простом виде: Program tst; var tt: array[0..1] of TStringList; Function NewFunc(): array[0..1] of TStringList; begin result[0] := TStringList.Create; result[1] := TStringList.Create; end; begin tt := NewFunc(); tt[0].free; tt[1].free; end. Ответ компилятора: "Type Mismatch at 0....

Вопрос, как сделать проверку на фроз чара?? И чего в стелсе в статусе не отображается когда чар в паралайзе? Вот пытался сделать проверку но чего то не улавливает стелс данную проверку. Когда чара ставят во фроз весь макрос стопиться.. procedure CheckParalize; begin ClearJournal; ClickOnObject(self...

Ну я не кричал точно (: Спс, удобная штука. Если не сложно то подскажите еще. Есть такая ситуация. Например я сделал так Button1.OnClick := @Button1_OnClick; И есть процедура procedure Button1_OnClick(Sender: TObject); begin end; Возможно ли внутри этой процедуры как-то обратится к кнопке или форме,...

На сайте, а точнее в этой части http://stealth.od.ua/Doc:RU/Manual/Reference/GUI#Event_types стоит ссылка, на скачивание VFDesigner, но она указывает на стелс какой-то там версии. Я погугил, но не нашел описания этой вещи, нашел на сорсфорже что-то, но боюсь то исходники или что.. Что делать с этим ...

Хм... Как-то не был в курсе, что дельфийские функции/процедуры должны работать. Я попробовал StringReplace AnsiReplaceStr, а в ответ получил Unknown identifier 'StringReplaces' ну и с AnsiReplaceStr соответствующее сообщение. Использовал вот так: StringReplace(url, ' ', '%20', [rfReplaceAll, rfIgnor...

Что-то не додумался и не нашел как узнать длинну строки. Попробовал конструкцию типа var charsArr: array[1..8] of char; i: integer; t: string; begin t := '1234567'; for i := 1 to 8 do try charsArr[i] := StrGet(t, i); except break; end; AddToSystemJournal(charsArr[1]); end. на что получил "Could...

Хотелось бы высказать несколько пожеланий по поводу работы с сабжем. 1. Исходя из http://ru.wikipedia.org/wiki/HTTP хотелось бы заметить что в HTTP_Body заголовок запроса, а в HTTP_Header тело. А мне, кажется, должно быть наоборот )(: 2. Было бы приятно получать полностью заголовок, а не только его ...

Спасибо, за исчерпывающий ответ (:

Собственно интересуют ответы на некоторые вопросы. 1. На сколько реально получить исходный код из скомпилированного файлика, если это вообще реально. 2. Возможно ли компилировать модули unit? У меня почему-то не получилось. Речь идет об "Редактор/отладчик кода" из возможностей: "скомп...

В стелсе есть CharName, а имя профиля узнать не могу. Это реально? потому что мне нужно иногда выполнять скрипт до включения персонажа. И нужно его определить. Можна конечно натыкать много файликов и каждый profile будет загружать свой файлик, но мне было бы проще если бы я мог определить имя profil...

Ну и сразу же задам вопрос еще... Вот кусок скрипта он как видите копает тупо по 7 раз ..... если вес больше 450 он остановится и напишет перегруз, ну а дальше он как поймет че ему делать? Копает он 8 раз. Переделал ты не правильно, первый вариант писал который раз сейчас копает. А ты убрал эту над...

Запустить щас негде, я правильно понял? procedure MF; begin for i:=1 to 9 do if count(a[i])>0 then begin UseObject(DestChest); wait(2000); Moveitem(FindType(a[i],Backpack),0,DestChest,0,0,0); wait(800); end; end; Да скрипт не скидывает жрачку в сундук из бекпака, а то печенюшки которые не стокуются...

function Ground: Cardinal; // указатель на землю - используется в поиске и пр. От себя: он равен 0xFFFFFFFF function Count(ObjType: Word): Integer; // количество обьектов по типу в бакпаке procedure MF; begin for i:=1 to 9 do if count(a[i])>0 then begin Moveitem(FindType(a[i],$ffff),0,DestChest,0,0...

Процедура небыла объявлена ранее. Удали строку или создай процедуру(функцию).