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

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

    Joined:
    29 Aug 2008
    Messages:
    198
    Likes Received:
    75
    Reputations:
    19
    есть вариант вообще убрать верхнюю панель с кнопками:

    Code:
    procedure CreateParams(var Params : TCreateParams); override;
    ...
    procedure TForm1.CreateParams(var Params : TCreateParams);
    begin
    inherited Createparams(Params);
    with Params do
     Style := (Style or WS_POPUP) and not WS_DLGFRAME; 
    end; 
    
     
  2. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    Скачай себе: DRKB (Delphi Russian Knowledge Base) , очень большой фак по дельфи... там должен быть ответ на твой вопрос ;)

    У формы: BorderStyle = bsNone.
     
  3. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    Может у тебя в самом проекте ошибки допущены?
    Если нет, я х.з.
     
  4. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    "Установка и удаление программ" :eek:
    Ну или Smarty Uninstaller'ом попробуй.
     
  5. Adekvatnyj

    Adekvatnyj Member

    Joined:
    28 Oct 2009
    Messages:
    18
    Likes Received:
    25
    Reputations:
    -3
    Решил проблемму, сейчас потру посты.
    Решение было в нестыковке дельфи 2010 с 7.
    Удалил вручную все программы дельфи и RAD, компиляторы, из диска С, почистил реестр, и установил начисто дельфи 7.
    П.С. простым аннинсталлером чето нехотело, долго очень думало.
     
  6. denjf

    denjf Member

    Joined:
    12 Nov 2008
    Messages:
    88
    Likes Received:
    12
    Reputations:
    -1
    подскажите плиз.

    var
    s,m,p:string;
    begin
    //это дано
    s:[email protected]:12345;

    //Надо получить следующие

    m:=xxxx;
    p:=12345;
     
  7. Thenno

    Thenno Member

    Joined:
    3 Jul 2009
    Messages:
    77
    Likes Received:
    21
    Reputations:
    0
    Решение не оптимальное, но должно работать

    i:=1;
    while s<>'@' do
    begin
    m:=m+s;
    i:=i+1;
    end;
    for j:=i to length (s) do
    if s='1' or '2' or '3' or '4' or '5' or '6' or '7' or '8' or '9' or '0' then
    p:=p+s;
     
    1 person likes this.
  8. =Zeus=

    =Zeus= Member

    Joined:
    10 Aug 2009
    Messages:
    213
    Likes Received:
    54
    Reputations:
    5
    Вроде так, писал прямо тут.
    Code:
    var m, p: string;
    m := Copy(s, 1, pos('@', s)-1);
    p := Copy(s,  pos(':', s)+1, length(s)-pos(':', s));
     
    #4648 =Zeus=, 12 Nov 2009
    Last edited: 12 Nov 2009
    2 people like this.
  9. =Zeus=

    =Zeus= Member

    Joined:
    10 Aug 2009
    Messages:
    213
    Likes Received:
    54
    Reputations:
    5

    Извини, но твой вариант очень медленный. В данном случае если автор хочет проверять списки (как я понимаю), то чем меньше кода тем лучше. И пароль не всегда будет состоять из цифер, так что проверка на 1-9 ни к чему. Хотя выбирать автору вопроса.
     
    #4649 =Zeus=, 12 Nov 2009
    Last edited: 12 Nov 2009
  10. Thenno

    Thenno Member

    Joined:
    3 Jul 2009
    Messages:
    77
    Likes Received:
    21
    Reputations:
    0
    Знаю, я об этом и писал. Громоздкий очень, а точно медленный?
    P.S насчет цифр - этот момент можно оформить как первую чать.
     
  11. sadfeel

    sadfeel Member

    Joined:
    5 Nov 2008
    Messages:
    83
    Likes Received:
    6
    Reputations:
    0
    Всем привет.
    Помоги плз с компонентом
    В инсте задали улучшить RadioGroup. Добавил пару свойств. при подключении модуля к проге все работало на ура. как только установил компонент начались проблемы.

    Вот первая из них:

    Мне необходимо каждый раз при изменении Caption записывать его в переменную удалять старый Caption и на канвасе писать новый. проблема в следующем: как перехватить его при изменении к примеру в инспекторе обьектов.

    я делал так: обьявлял в паблишед новое свойство Caption и просто считывал его в переменную при изменении. но при таком подходе стандартный Caption не изменяется, т.е. сразу после добавления компонента на форму у Caption нету текста, а у объекта есть. вообщем может че не так обьяснил, ну помогите перехватить Caption при изменении)
     
  12. Пуховой

    Joined:
    25 Nov 2007
    Messages:
    46
    Likes Received:
    37
    Reputations:
    0
    =Zeus=, можно регулярками. На 100 тыс. записей - 1-2 сек. на обработку.
     
  13. warkk

    warkk Member

    Joined:
    20 Feb 2009
    Messages:
    139
    Likes Received:
    23
    Reputations:
    0
    Например есть строка lololololo`lololo`lolololo`lolololo`lololo
    Как сделать так что бы после третьего символа ` все удалялось?
     
  14. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    самый простой вариант -
    пробегайся по этой стоке и считай кол-во ` как тока появился третий, то запоминай его позицию. И копируй текст от начало и до этой позиции
     
  15. warkk

    warkk Member

    Joined:
    20 Feb 2009
    Messages:
    139
    Likes Received:
    23
    Reputations:
    0
    В PHP есть функция explode
    PHP:
    <?php 
    $array 
    explode('`','123456`12345`123456789`ahsdaskd`', -1);
    $count strlen($array[0]) + strlen($array[1]) + strlen($array[2]); 
    print 
    $count
    ?>
    Оно выведет 20, т.к. 123456+12345+123456789.
    Соответсвенно я бы копировал 23 символа со строки.
    Есть ли аналог такой функции в Delphi?
     
    #4655 warkk, 13 Nov 2009
    Last edited: 13 Nov 2009
  16. warkk

    warkk Member

    Joined:
    20 Feb 2009
    Messages:
    139
    Likes Received:
    23
    Reputations:
    0
    Спасибо. Сейчас попробую.

    Работает :)
     
    #4656 warkk, 13 Nov 2009
    Last edited: 13 Nov 2009
  17. OPF_Nik

    OPF_Nik New Member

    Joined:
    6 Nov 2009
    Messages:
    36
    Likes Received:
    3
    Reputations:
    -5
    Народ!! вот у меня есть два компонента: TMediaPlayer и TListBox !

    В TListBox содержиться плэйлист TMediaPlayer!

    Как сделать так что бы когда одна песня заканчивалась, начинала играть вторая, которая следующия за ним в списке, и что бы она также выделялась в списке фокусом???

    Зарание спасибо!!
     
  18. DimkO

    DimkO Banned

    Joined:
    16 Nov 2008
    Messages:
    28
    Likes Received:
    3
    Reputations:
    0
    1

    делфи можно экспортировать в html с помошью ActiveX-форм,но для их отображения на компе у пользователя нужно что бы он понизил свой уровень безопасности в IE,что вряд ли будет...вопрос:возможен ли еще какой то способ вставки объекта(созданого в делфи) в html?
     
  19. ErrorNeo

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

    Joined:
    2 May 2009
    Messages:
    923
    Likes Received:
    838
    Reputations:
    402
    сложный короткий вопрос на который не будет ответа:
    функция connect в winapi:
    при её использовании к серверу - для установки коннекта - шлется какой-то мини-запрос из нескольких байт, насколько я понимаю. Так же несколько байт, видимо, принимаются обратно, в результате чего ф-ция connect, соответст-но и возвращает значение 0 или 1.

    вопрос:
    собственно что за запрос шлется\получается, как он выглядит, какие ресурсы он потребляет на целевом хосте при условии, что таких запросов одновременно сделано оч. много

    так же интересно, что именно просисходит, если сделать на машине с windows XP одновременно (скажем, в теченеие 10 сек) несколько тысяч запросов connect к чему-либо. Т.е. что "просиходит" - и так видно: дохнет либа отвечающяя за работу с winsock, вопрос в том, почему это происходит (хотя тут уже - скорее риторический. видимо, потому что это windows)
     
    #4659 ErrorNeo, 14 Nov 2009
    Last edited: 14 Nov 2009
  20. bons

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

    Joined:
    20 Dec 2007
    Messages:
    286
    Likes Received:
    121
    Reputations:
    21
    чувак, как я уже говорил, перед тем как спрашивать прочитал бы хотя бы хоть чтото. И не надо делать из всего что ты изучаешь этакие магические хакерские секреты которых никто не знает кроме избранных.
    эти "несколько байт" называются пакетами SYN, ACK и SYN/ACK то есть пакеты с взведенными соответственными флагами. Почитай Йона Снейдера "Эффективное программирование TCP IP" там ОЧЕНЬ подробно расписано.
    Никто никуда не дохнет, в winxp стоит ограничение 10 TCP соединений на один процесс...
     
    1 person likes this.
Thread Status:
Not open for further replies.