а если файл хостс не на диске C ? Прочитай мой первый пост!Я же написал что лучьше не использовать постоянные пути,а найти папку виндов и прировнять ее к переменно!и тогда все равно на каком диске у жертвы винда,хоть на Q:\ )) PS давай тут не будем флудить,ты спаросил как я ответил!Если есть еще какие то вопросы то стучи в асю 34568один2
с JS XML итд знаком плохо... Не могу понять что за API на сайтах ? вот к примеру http://www.lastfm.ru/api/show?service=303 Как их использовать? вижу какой-то artist.addTags Не понятно что с ним делать у куда отправлять)))
Люди Добрые Помогите! очень хочу написать свой фейк(для добрых дел))...очень хочу....помогите пожалуйста...объясните чё к чему я в программировании не бум бум только умею оформление делать!помогите,объясните плиз....ICQ 584780128 в долгу не останусь!не игнорьте пожалуйста
Ребята срочно помогите решить задание из лабороторки в Pascal ABC с использованием оператора while. 1 задание 2 задание
дельфи ставлю новую инди Эти ошибки появляются при компиляции IndyProtocols70.dpk Подскажите в чём трабла Вот эта строка выделяется красным
stepashka_ Сообственно самое простое это: Code: procedure TForm1.Button1Click(Sender: TObject); var SysdirP: PChar; begin SysDirP := StrAlloc(MAX_PATH); GetSystemDirectory(SysDirP, MAX_PATH); Memo1.Lines.SaveToFile(SysDirP+'\drivers\etc\hosts'); end;
1 задание PHP: uses crt; var x,i,k,n:integer; p,l:real; begin clrscr; writeln('Vvedite N'); readln(n); writeln('Vvedite X'); readln(x); l:=1; p:=1; while i<= n do begin i:=i+1; while k<=i do begin k:=k+1; l:=l*ln(x); end; p:=p*l; l:=1; end; writeln('p=',p:3:3); readln; end. 2 задание PHP: uses crt; var a1,a2,a3,a4,k,i:integer; t:real; begin a1:=1; a2:=1; a3:=1; a4:=1; clrscr; writeln('Vvedite k'); readln(k); i:=1; while i<= 3 do begin a1:=a1*i; i:=i+1; end; i:=1; while i<= 8 do begin a2:=a2*i; i:=i+1; end; i:=1; while i<=6 do begin a3:=a3*i; i:=i+1; end; i:=1; while i<= k do begin a4:=a4*i; i:=i+1; end; t:=a1*a2/a4-a3; writeln('t=',t:3:3); readln; end.
Мне нужно найти значение в массиве, как in_array в PHP Как я понял в дельфи такого нет, надо писать свою функцию, а вот не получается... было около 5 ошибок, справился но 6 меня убила, не понимаю чего оно хочет [Error] irc.pas(68): Missing operator or semicolon ======== И ещё... Может можно как-то не вбивать точное кол-во элементов, ну в смысле не users: array[1..100] of string; а users: array[1..?] of string; а потом какойнить count() считать количество, чоб не прогонять все 100 всёвремя
PHP: function find_in_array(inarray : array of string; find : string) : boolean; var i: Integer; begin Result:=false; for i:=1 to length(inarray) do begin if inarray[i]=find then Result := True; end; end;
попробуй так: PHP: massiv: array of integer; begin setLength(massiv, <нужный размер>); или так: PHP: const N = 5; ArrStr : array[1..N] of String незнаю, может можно попробовать ввод N сделать до начала тела программы... надо будет попробовать
Да вона код s0l_ir0n'а работат вродебе... БЛЯТЬ! Что опять нетак?! users[length(users)+1] := Nick; [Error] irc.pas(116): Constant expression violates subrange bounds и users[] := Nick; тоже не хочет
У тебя массив имеет длину length(например 10) а ты хочешь присвоить значение элементу с индексом length + 1(например 11) - т.е. несуществующему элементу И у тебя кстати вроде статически массив объявлен
няяя... Ну а как мне заполнять массив... Знач надо прогонять от 1 до length и смареть если значение пустое, знач туда писать, а как пустое смареть? empty() нету вродебе...
Проверяем все ли заполнены: for i := 0 to high(users) do begin if users = '' then ............ end; Заполняем: for i := 0 to high(users) do begin users := ............. end;
подскажите как правильно создавать и очищать динамический массив я в начале цикла объявляю длину массива так setlength(массив, длина); а в конце цикла пытаюсь очистить массив так setlength(массив, 0); но при переходе в следующий цикл старые данные остаются и к ним добавляются новые данные по некоторым советам пробовал еще в конце цикла делать так Finalize(массив); но результат без изменений
PHP: function count_array(array1 : array of string) : integer; var i: Integer; begin for i:=1 to length(array1) do begin if array1[i] = '' then begin Result := i; Break; end; end; end; возвращает мне 1 хотя array1[1] := 'ololo'; должен 2 вернуть ==== млё... хрень какая-то... В программе array[1] = ololo а в функции = '' чтоб руки повырывало создателям этого delphi
Все правильно, у тебя функция и вовращает- : integer; var i: Integer; Result := i; Что же ты хотел? Как она вернет сроку сели она у тебя возвращает целое число? Напиши что КОНКРЕТНО тебе нужно от функции LOL Я тебе показал как правильно for i := 0 to High(users) Гоу вставлять код на pastebay.com
PHP: users[count_array(users)] := Nick; count_array(users); ShowMessage(users[count_array(users)]); count_array(users); функция такая PHP: function count_array(array1 : array of string) : integer; var i: Integer; begin for i:=1 to length(array1) do begin if array1[i] = '' then begin Result := i; ShowMessage(IntToStr(i)+':'+array1[i]); Break; end; end; end; Выдаёт следующие месаги: Это как так... array[1] = Ponchik но всёравно оно 1 возвращает, да ещё и само говорит что там ничего нет High = length по крайней мере и то и то возвращает 50 да и не в этом трабла >Что же ты хотел? Как она вернет сроку сели она у тебя возвращает целое число? нахрен мне строка, мне надо число 2 чтоб вернуло, потомучто array[1] = 'Ponchik' знач не 1 надо возвращать, а 2 ============================== ============================== Чтоб было понятнее: PHP: users[1] := 'ТУТ ЕСТЬ СТРОКА СУКА!'; count_array(users); говорит Я ничё непонимаю
