Не поверишь но и инди в хороших руках стабильна и быстра. А полный контроль редко нужен. но я с тобой согласен что новичкам нужно советовать винсок, пока они с ним промучаются у меня будет меньше конкурентов Сам-то используешь его? Компрессию траффа прикрутил (от наличия которой ой как сильно зависит скорость)?
так.... уберите детей от монитора PHP: for i:=1 to 20 do mmo1.Text := mmo1.Text+inttostr(Random(100)); запускаем прогу 5 раз, результат: 1)03862027673116374284778452991367732 2)03862027673116374284778452991367732 3)03862027673116374284778452991367732 4)03862027673116374284778452991367732 5)03862027673116374284778452991367732 ВЫЕ**ТЬ РАЗРАБОВ ДЕЛЬФИ!!!!! ЗАЧЕМ НАЗЫВАТЬ ФУНКЦИЮ "Random" ЕСТЬ ЭТО НЕ Random Называйте бл**ь NotRandom и никаких проблем, а так пол часа еба**и и выяснения почему прога не работает, ведь нельзя догадаться что функция "Random" на самом деле выводит заранее приготовленые числа ============ Мне сказале чо перед Random надо писать Randomize Где логика?! Нельзя это было в Random прописать?! А перед showMessage(); ненадо там случайно showMessagez; писать? А? Или перед 1+1 ненадо 1+1z писать? а? Пи***сы разрабы
вот unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; BitBtn1: TBitBtn; Image1: TImage; Image2: TImage; procedure FormCreate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Randomize; end; function RandomPwd(PWLen: integer): string; // таблица символов, используемых в пароле const StrTable: string = 'ABCDEFGHIJKLMabcdefghijklm' + '0123456789' + 'NOPQRSTUVWXYZnopqrstuvwxyz'; var N, K, X, Y: integer;// проверяем максимальную длину пароля begin if (PWlen > Length(StrTable)) then K := Length(StrTable)-1 else K := PWLen; SetLength(result, K); // устанавливаем длину конечной строки Y := Length(StrTable); // Длина Таблицы для внутреннего цикла N := 0; // начальное значение цикла while N < K do begin // цикл для создания K символов X := Random(Y) + 1; // берём следующий случайный символ // проверяем присутствие этого символа в конечной строке if (pos(StrTable[X], result) = 0) then begin inc(N); // символ не найден Result[N] := StrTable[X]; // теперь его сохраняем end; end; end; procedure TForm1.BitBtn1Click(Sender: TObject); var cPwd: string; begin cPwd := RandomPwd(9); edit1.Text:=cPwd; end; end.
угу, полная хня))) PHP: randomize; for i:=1 to 20 do mmo1.Text := mmo1.Text+inttostr(Random(100)); будет генерить как я и сказал) 2astonilya че за хню ты написал???О_О
генератор случайных комбинаций из букв и цифр, можно зделать отьлко цифры...там уже готовая программа
2 EndLeSSDre@M Code: randomize; for i:=1 to 20 do mmo1.Text := mmo1.Text+inttostr(Random(100)); гм... уже подзабывать стал паскаль, но тут только генератор случайных цифр с переводом их в текстовое значение, притом вывод будет произведен нечитабельный как для программы так и для пользователя. Code: randomize; for i:=1 to 20 do mmo1.Text := mmo1.Text+' '+chr(Random(208)+48); вот так будет правельней. 2 stepashka_ - хорошая прога(на сайте тоже поиск есть) delphiworld.narod.ru -там небольшие примеры и статьи сортированные по тематикам - и главное нормальные примеры
буквы говоришь, тогда куда проще будет просто создать массив с буквами и символами, и потом уже рандомно выбирать по ключам буквы... куда проще будет! и меньше кода
к предыдущему моему сообщению: astonilya ссори не так прочел сообщение EndLeSSDre@M randomize; for i:=1 to 20 do mmo1.Text := mmo1.Text+' '+chr(Random(80)+48); - будет генерировать латинские буквы во всех регистрах + цифры (ссори за неоформленность)
# Сокеты 1 # Сокеты 2 (Кодинг блокирующих сокетов) # Сокеты 3 (Кодинг неблокирующих сокетов) # Сокеты 4 (Использование DScan) # Сокеты в Delphi # Что такое сокет # Передать файл через Socket соединение И еще на том же сайте про сокеты и сеть
Привет Всем !! У меня проблема с отправкой HTTP POST. Как сделать чтоб содержымое файла txt отправлялось на сервак при помощи idhttp ??? Подскажите плис очень надо вот моя ася 477080587
var http : TIdHttp; PostData : TStringList; html : string; begin PostData := TStringList.Create; http := TIdHttp.Create(nil); try PostData.LoadFromFile('{тут название файла}'); html := http.Post(URL, PostData); finally http.Free; PostData.Free; end; end;
И снова здравствуйте if (isGame AND userID > 0) then говорит Operator not applicable to this operand type isGame = boolean userID = integer ========= разобрался if (isGame) AND (userID > 0) then