Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Search found 23 matches
- 01.02.2013 12:01
- Forum: Основной раздел
- Topic: массив TStringList как результат функции
- Replies: 2
- Views: 4937
Re: массив TStringList как результат функции
Спасибо, проясню для потомков примером, вдруг кому-то понадобится (: 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()...
- 01.02.2013 0:22
- Forum: Основной раздел
- Topic: массив TStringList как результат функции
- Replies: 2
- Views: 4937
массив TStringList как результат функции
Изображаю код в простом виде: 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....
- 31.01.2013 14:02
- Forum: Помощь по скриптам
- Topic: [frozen]
- Replies: 8
- Views: 7249
Re: [frozen]
Вопрос, как сделать проверку на фроз чара?? И чего в стелсе в статусе не отображается когда чар в паралайзе? Вот пытался сделать проверку но чего то не улавливает стелс данную проверку. Когда чара ставят во фроз весь макрос стопиться.. procedure CheckParalize; begin ClearJournal; ClickOnObject(self...
- 26.01.2013 0:40
- Forum: Основной раздел
- Topic: VFDesigner
- Replies: 9
- Views: 9755
Re: VFDesigner
Ну я не кричал точно (: Спс, удобная штука. Если не сложно то подскажите еще. Есть такая ситуация. Например я сделал так Button1.OnClick := @Button1_OnClick; И есть процедура procedure Button1_OnClick(Sender: TObject); begin end; Возможно ли внутри этой процедуры как-то обратится к кнопке или форме,...
- 25.01.2013 22:10
- Forum: Основной раздел
- Topic: VFDesigner
- Replies: 9
- Views: 9755
VFDesigner
На сайте, а точнее в этой части http://stealth.od.ua/Doc:RU/Manual/Reference/GUI#Event_types стоит ссылка, на скачивание VFDesigner, но она указывает на стелс какой-то там версии. Я погугил, но не нашел описания этой вещи, нашел на сорсфорже что-то, но боюсь то исходники или что.. Что делать с этим ...
- 25.01.2013 13:58
- Forum: Основной раздел
- Topic: Просто интересно как работает try except finally
- Replies: 3
- Views: 5817
Re: Просто интересно как работает try except finally
Хм... Как-то не был в курсе, что дельфийские функции/процедуры должны работать. Я попробовал StringReplace AnsiReplaceStr, а в ответ получил Unknown identifier 'StringReplaces' ну и с AnsiReplaceStr соответствующее сообщение. Использовал вот так: StringReplace(url, ' ', '%20', [rfReplaceAll, rfIgnor...
- 24.01.2013 16:57
- Forum: Основной раздел
- Topic: Просто интересно как работает try except finally
- Replies: 3
- Views: 5817
Просто интересно как работает try except finally
Что-то не додумался и не нашел как узнать длинну строки. Попробовал конструкцию типа 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...
- 23.01.2013 12:04
- Forum: Заявки на новые возможности
- Topic: http
- Replies: 7
- Views: 35782
http
Хотелось бы высказать несколько пожеланий по поводу работы с сабжем. 1. Исходя из http://ru.wikipedia.org/wiki/HTTP хотелось бы заметить что в HTTP_Body заголовок запроса, а в HTTP_Header тело. А мне, кажется, должно быть наоборот )(: 2. Было бы приятно получать полностью заголовок, а не только его ...
- 21.01.2013 15:36
- Forum: Основной раздел
- Topic: Скомпилированный код
- Replies: 2
- Views: 5461
Re: Скомпилированный код
Спасибо, за исчерпывающий ответ (:
- 21.01.2013 12:11
- Forum: Основной раздел
- Topic: Скомпилированный код
- Replies: 2
- Views: 5461
Скомпилированный код
Собственно интересуют ответы на некоторые вопросы. 1. На сколько реально получить исходный код из скомпилированного файлика, если это вообще реально. 2. Возможно ли компилировать модули unit? У меня почему-то не получилось. Речь идет об "Редактор/отладчик кода" из возможностей: "скомп...
- 26.10.2009 11:48
- Forum: Помощь по скриптам
- Topic: Profile
- Replies: 1
- Views: 3118
Profile
В стелсе есть CharName, а имя профиля узнать не могу. Это реально? потому что мне нужно иногда выполнять скрипт до включения персонажа. И нужно его определить. Можна конечно натыкать много файликов и каждый profile будет загружать свой файлик, но мне было бы проще если бы я мог определить имя profil...
- 22.10.2009 10:17
- Forum: Помощь по скриптам
- Topic: Недавно начал разбиратся, нужен хелп
- Replies: 62
- Views: 45042
Ну и сразу же задам вопрос еще... Вот кусок скрипта он как видите копает тупо по 7 раз ..... если вес больше 450 он остановится и напишет перегруз, ну а дальше он как поймет че ему делать? Копает он 8 раз. Переделал ты не правильно, первый вариант писал который раз сейчас копает. А ты убрал эту над...
- 22.10.2009 10:10
- Forum: Помощь по скриптам
- Topic: Недавно начал разбиратся, нужен хелп
- Replies: 62
- Views: 45042
Запустить щас негде, я правильно понял? 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; Да скрипт не скидывает жрачку в сундук из бекпака, а то печенюшки которые не стокуются...
- 22.10.2009 9:01
- Forum: Помощь по скриптам
- Topic: Недавно начал разбиратся, нужен хелп
- Replies: 62
- Views: 45042
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...
- 21.10.2009 7:25
- Forum: Помощь по скриптам
- Topic: Help
- Replies: 4
- Views: 4908