[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    Не поверишь но и инди в хороших руках стабильна и быстра. А полный контроль редко нужен. но я с тобой согласен что новичкам нужно советовать винсок, пока они с ним промучаются у меня будет меньше конкурентов :D

    Сам-то используешь его? Компрессию траффа прикрутил (от наличия которой ой как сильно зависит скорость)?
     
  2. Voland-791

    Voland-791 Member

    Joined:
    1 May 2009
    Messages:
    163
    Likes Received:
    13
    Reputations:
    5
    точней чтобы можно было сохранить исходник который лежит в мемо в .exe
     
  3. Ponchik

    Ponchik Хлебо-булочное изделие

    Joined:
    30 Aug 2005
    Messages:
    687
    Likes Received:
    807
    Reputations:
    311
    так.... уберите детей от монитора
    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 писать? а?
    Пи***сы разрабы
     
    #5923 Ponchik, 21 Apr 2010
    Last edited: 21 Apr 2010
  4. astonilya

    astonilya New Member

    Joined:
    10 Sep 2009
    Messages:
    12
    Likes Received:
    1
    Reputations:
    0

    вот

    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.
     
  5. EndLeSSDre@M

    EndLeSSDre@M Banned

    Joined:
    18 Jul 2009
    Messages:
    142
    Likes Received:
    99
    Reputations:
    -5

    угу, полная хня)))

    PHP:
    randomize;
    for 
    i:=1 to 20 do mmo1.Text := mmo1.Text+inttostr(Random(100));
    будет генерить как я и сказал)

    2astonilya че за хню ты написал???О_О
     
    #5925 EndLeSSDre@M, 21 Apr 2010
    Last edited: 21 Apr 2010
  6. stepashka_

    stepashka_ Мотоциклист

    Joined:
    9 Nov 2009
    Messages:
    1,022
    Likes Received:
    423
    Reputations:
    234
    дай плиз линки что почитать про него...
     
  7. astonilya

    astonilya New Member

    Joined:
    10 Sep 2009
    Messages:
    12
    Likes Received:
    1
    Reputations:
    0
    генератор случайных комбинаций из букв и цифр, можно зделать отьлко цифры...там уже готовая программа
     
  8. [stranger]

    [stranger] Member

    Joined:
    2 Feb 2010
    Messages:
    167
    Likes Received:
    29
    Reputations:
    4
    у slesh`а отличные статейки.. где-то на форуме есть
     
  9. Serbies

    Serbies Elder - Старейшина

    Joined:
    26 Dec 2006
    Messages:
    26
    Likes Received:
    7
    Reputations:
    -1
    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 -там небольшие примеры и статьи сортированные по тематикам - и главное нормальные примеры
     
    #5929 Serbies, 22 Apr 2010
    Last edited: 22 Apr 2010
  10. EndLeSSDre@M

    EndLeSSDre@M Banned

    Joined:
    18 Jul 2009
    Messages:
    142
    Likes Received:
    99
    Reputations:
    -5
    буквы говоришь, тогда куда проще будет просто создать массив с буквами и символами, и потом уже рандомно выбирать по ключам буквы... куда проще будет! и меньше кода
     
  11. Serbies

    Serbies Elder - Старейшина

    Joined:
    26 Dec 2006
    Messages:
    26
    Likes Received:
    7
    Reputations:
    -1
    к предыдущему моему сообщению: astonilya ссори не так прочел сообщение
    EndLeSSDre@M
    randomize; for i:=1 to 20 do mmo1.Text := mmo1.Text+' '+chr(Random(80)+48); - будет генерировать латинские буквы во всех регистрах + цифры
    (ссори за неоформленность)
     
    3 people like this.
  12. denjf

    denjf Member

    Joined:
    12 Nov 2008
    Messages:
    88
    Likes Received:
    12
    Reputations:
    -1
    Подскажите где можно почитать инфу про Winsock, желательно где все разжеванно.
     
  13. wolmer

    wolmer Member

    Joined:
    12 May 2009
    Messages:
    438
    Likes Received:
    97
    Reputations:
    9
    "делфи, в шутку и в серьез, что умеют хакеры" (Михаил Фленов)
     
    1 person likes this.
  14. Serbies

    Serbies Elder - Старейшина

    Joined:
    26 Dec 2006
    Messages:
    26
    Likes Received:
    7
    Reputations:
    -1
  15. smail2133

    smail2133 New Member

    Joined:
    25 Jan 2010
    Messages:
    10
    Likes Received:
    0
    Reputations:
    0
    Привет Всем !! У меня проблема с отправкой HTTP POST.
    Как сделать чтоб содержымое файла txt отправлялось на сервак при помощи idhttp ???
    Подскажите плис очень надо вот моя ася 477080587
     
  16. [stranger]

    [stranger] Member

    Joined:
    2 Feb 2010
    Messages:
    167
    Likes Received:
    29
    Reputations:
    4
  17. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    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;
     
  18. SkyLine32

    SkyLine32 Member

    Joined:
    1 Mar 2009
    Messages:
    144
    Likes Received:
    22
    Reputations:
    2
    дайте примерчик как соединиться с БД MySQL, ну если не трудно, как добавить 1 таблицу. спасибо!
     
  19. Ponchik

    Ponchik Хлебо-булочное изделие

    Joined:
    30 Aug 2005
    Messages:
    687
    Likes Received:
    807
    Reputations:
    311
    И снова здравствуйте

    if (isGame AND userID > 0) then
    говорит
    Operator not applicable to this operand type

    isGame = boolean
    userID = integer
    =========
    разобрался
    if (isGame) AND (userID > 0) then
     
  20. xafon

    xafon New Member

    Joined:
    2 Dec 2009
    Messages:
    38
    Likes Received:
    4
    Reputations:
    0
    SkyLine32, на счет соединения с базой гляньте вот тут.
     
Thread Status:
Not open for further replies.