[ 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. TikTik

    TikTik Member

    Joined:
    20 Feb 2009
    Messages:
    241
    Likes Received:
    12
    Reputations:
    2
    [​IMG]
    Всем советую классный видео курс сам с него начинал

    http://pascal-video-kurs.narod.ru/
     
    2 people like this.
  2. Nullsleep

    Nullsleep Member

    Joined:
    2 Jun 2009
    Messages:
    67
    Likes Received:
    26
    Reputations:
    0
    Спамер детектед
     
  3. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Как в RichEdit найти текст между двух кусков текста? И вставить ево в переменную?

    пс, Гугол не помог
     
  4. Nullsleep

    Nullsleep Member

    Joined:
    2 Jun 2009
    Messages:
    67
    Likes Received:
    26
    Reputations:
    0
    "между двух кусков текста" - это как ?
     
  5. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    HTML:
    <input type="hidden" name="s" value="614750171334344540111">
    Надо скопировать: 614750171334344540111

    То есть - От:
    HTML:
    <input type="hidden" name="s" value="
    До
    HTML:
    ">
    И эти цифры загнать в переменную1...
     
  6. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    Code:
    var
     s,z:string;
     START_TEXT:string;
     STOP_TEXT:string;
     p:integer;
    begin
     z := '';
     s := RichEdit1.text;
     START_TEXT := 'value="';
     STOP_TEXT := '"';
     p := pos(START_TEXT, s);
     if (p > 0) then
     begin
       delete(s, 1, p + length(START_TEXT) - 1);
       p := pos(STOP_TEXT, s);
       if (p > 0) then
       begin
         z := copy(s, 1, p - 1);
         showmessage(z);
       end;
     end;
    
    примерно так в твоём случае
     
    #3786 slesh, 28 Jul 2009
    Last edited: 28 Jul 2009
  7. razb

    razb Active Member

    Joined:
    24 Mar 2009
    Messages:
    658
    Likes Received:
    133
    Reputations:
    18
    Юзай регулярки.
     
  8. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Есть такой способ отправки запроса на сервак:

    Так вот, есть пару вопросов:

    1) Как можно изменить уже внесенный параметр (Например логин)
    2) Если вписать RUS буквы то они не дойдут до сервака а тока в виде "%5", и т.д. , Как можно сделать так чтобы русские буква доходили до сервака?
     
  9. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    читай RFC по http. И там указан набор символов который кодируется.
    И русские подпадают под него. Так что как не крути, но они всё равно переконвертятся в %XX
     
  10. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Ок, щя глянем, а как на счет параметров?
     
  11. ChuKeY

    ChuKeY New Member

    Joined:
    21 Jun 2009
    Messages:
    11
    Likes Received:
    1
    Reputations:
    0
    вот моя статья про отправку файлов на сервак тока на winsocke
     
    1 person likes this.
  12. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Столкнулся с такой проблемой:
    Есть целое число (Integer), число примерно: 407661516164772012300 (21 цифра)
    При попытки перевода числа в строчку (IntToStr()), оно не переводится т.к. МАХ число для перевода в строчку = 2147483647

    Так вот вопрос как можно разделить целое число на: Первые 9 цифр, вторые 9 цифр, остальные цифры...

    Ну а потом можно 3 части перевести в строку и "Приписывать" цифры....
     
  13. Nullsleep

    Nullsleep Member

    Joined:
    2 Jun 2009
    Messages:
    67
    Likes Received:
    26
    Reputations:
    0
    Тут лучше юзать массивы. Гугли "длинную арифметику"
     
  14. s0l_ir0n

    s0l_ir0n Active Member

    Joined:
    14 Mar 2009
    Messages:
    399
    Likes Received:
    144
    Reputations:
    18
    Советую использовать FGint, используется очень просто, работает довольно шустро и с очень большими числами
    Code:
     Fast Gigantic  Integers, the size of these integers is merely bounded by the available memory.
     
  15. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    2 Nightmarе ну так ты читай в буфер, а затем его прибавляй к TStrings_TYPE.text

    2 НTL ну если дело на то пошло, то 407661516164772012300 - не влезит в integer.
    потому как
    Integer от -2147483648 до 2147483647
    тебе даже real и Extended не подойдет

    Так что считывай всё это в строку, из неё через copy выдериш ружные части, нужного размера и спокойно преобразуешь в integer.

    Когдато приходилось писать алгоритмы(умножение, сумирование итд итп) для работы с числами занимаемыми в памяти - 1 мегобайт. - вот это здец было.
    Когда число порядка - 2^100 000 000 нужно было умножить на такое же. - тут без асма необойтись было. И даже строки и массивы не помогалибы потому что расчетов бы я ждал несколько дней бы. А так за 5-6 минут считало.

    Так что всё зависит от конкретной цели. ты скажу что именно ты пишешь и что именно надо, мож что посоветуем.
     
  16. s0l_ir0n

    s0l_ir0n Active Member

    Joined:
    14 Mar 2009
    Messages:
    399
    Likes Received:
    144
    Reputations:
    18
    [offtop]если мне не изменяет память, Daemon666 с краклаба написал прогу на питоне, которая перемножала 16 мегобайтовые числа за 40-50 минут О_о (это какбе тонкий намек на то, что делфи не особо подходит для больших и быстрых вычислений)[/offtop]
     
  17. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    намек не правильный, потому как питон не может работать быстрее чем машинный код.
    Если правильно написать алгоритм, то в виде машинного кода он будет выполняться в сотни раз быстрее чем на языках типа perl/php/python

    Также зависит от компа на котором тестилось. я тогда тестил на 2,6 ггц пне одноядерном
     
  18. MAESTRO

    MAESTRO New Member

    Joined:
    15 Oct 2007
    Messages:
    14
    Likes Received:
    2
    Reputations:
    0
    Люди, а как с помощью делфи сделать перевод десятичных чисел в другие системы исчисления?
     
    1 person likes this.
  19. ChuKeY

    ChuKeY New Member

    Joined:
    21 Jun 2009
    Messages:
    11
    Likes Received:
    1
    Reputations:
    0
  20. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Вопрос новичка:

    Закинул я на форму объекты (Кнопки, мемо, этиты)
    Теперь я хочу эти объекты закинуть в GroupBox1
    Как это можно реализовать,
    Создать новые объекты - не врянт...
     
Thread Status:
Not open for further replies.