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

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    SkyLine32, не прокатит. Он закроет быстрее чем проверит, что нажато ))
     
  2. TrueBit

    TrueBit Member

    Joined:
    21 Nov 2009
    Messages:
    71
    Likes Received:
    19
    Reputations:
    4
    CanClose := False;
     
  3. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Упп, не много ошибся. Все таки код SkyLine32 работает. Лично проверил.
    Code:
     if ((ssAlt in Shift) and (Key = VK_F4)) then
    Key := 0;
    
     
    1 person likes this.
  4. [stranger]

    [stranger] Member

    Joined:
    2 Feb 2010
    Messages:
    167
    Likes Received:
    29
    Reputations:
    4
    Code:
    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
        canclose := false;
    end;
    
     
  5. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Да canclose не прокатит. Тогда это не только Alt+F4 блочить будет, а любой закрытие.
     
  6. JnK

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

    Joined:
    30 Mar 2007
    Messages:
    125
    Likes Received:
    21
    Reputations:
    0
    Проверку по флагу можно сделать, если было нажато ALT+F4 тогда флаг False иначе True; Но автору вопроса кажется и надо, что бы процесс никак нельзя было прибить.

    Это в тип формы:
    PHP:
      public
        
    Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;
        { Public 
    declarations }
      
    end;
    Ниже implementation:
    PHP:
    Procedure TForm1.ControlWindow(Var Msg:TMessage);
    Begin
    IF (Msg.WParam=SC_MINIMIZE) or (Msg.WParam=SC_CLOSEthen
    Begin
      
    //ничего не делаем
    End
    else
    inherited;
    End;
    P.s. Но все же прибить через панель задач можно :)
    Что бы и там нельзя было: тогда CanClose:=false; как писали выше.
     
    #5726 JnK, 7 Apr 2010
    Last edited: 7 Apr 2010
  7. JnK

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

    Joined:
    30 Mar 2007
    Messages:
    125
    Likes Received:
    21
    Reputations:
    0
    Есть Вариант типа "свернуть", Поместить в трей, а окно спрятать тогда:
    СсылкО

    PHP:
    Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;
    ...
    Procedure TForm1.ControlWindow(Var Msg:TMessage);
    Begin
    IF Msg.WParam=SC_MINIMIZE then
    Begin
      MessageBox
    (0,'Minimized','Мы типа решили свернуть окно',32);
      
    ShowWindow(Handle,SW_HIDE); // Скрываем форму
      // добавляем иконку в трей
      // Запускаем таймер
    //  ShowWindow(Handle,SW_SHOW); // Показываем форму
    End
    else
    inherited;
    End;
     
    #5727 JnK, 7 Apr 2010
    Last edited: 7 Apr 2010
  8. icqnum

    icqnum New Member

    Joined:
    2 Apr 2010
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    А на каком языке написана гала?
     
  9. icqnum

    icqnum New Member

    Joined:
    2 Apr 2010
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    А на делпхи че вообще не вариант написать галу?
     
  10. JnK

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

    Joined:
    30 Mar 2007
    Messages:
    125
    Likes Received:
    21
    Reputations:
    0
    А читать посты когда научимся?
    http://forum.antichat.ru/showpost.php?p=2048251&postcount=6026

    Если знаешь оба языка, то вариант написать есть.

    P.s. Если собираешься писать копай в направлении Клиент для IRC .
    http://forum.antichat.ru/showpost.php?p=894712&postcount=3
     
    #5730 JnK, 7 Apr 2010
    Last edited: 7 Apr 2010
  11. Malor1k

    Malor1k Banned

    Joined:
    6 Mar 2010
    Messages:
    0
    Likes Received:
    11
    Reputations:
    0
    с чего лучше начать , кодерству хочу научится.
     
  12. denjf

    denjf Member

    Joined:
    12 Nov 2008
    Messages:
    88
    Likes Received:
    12
    Reputations:
    -1
    Если вообще не представляешь что такое програмирование то надо начать с самых простых вещей

    Переменые
    Константы
    Оператор условия If else
    Оператор выбора case
    Циклы For/While/
    Массивы.
    Функции
    .....

    Не зависимо какой язык учить, эти основы есть в любом.

    Хорошо учится на практики, что прочитал сразу пробывать накодить. (для меня так).
     
  13. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Malor1k, раз задаешь такие вопросы, значит совсем новичек... Бери паскаль и учу, там ничего сложного нет.
     
  14. EndLeSSDre@M

    EndLeSSDre@M Banned

    Joined:
    18 Jul 2009
    Messages:
    142
    Likes Received:
    99
    Reputations:
    -5
    Почему не работает эта программа??
    PHP:
    program Project2;

    {
    $APPTYPE CONSOLE}

    uses
      SysUtils
    ;

    var
      
    ffile of real;
      
    n,sum,pr:real;
    begin
      pr
    :=1;
      
    sum:=0;
      
    assignfile(f,'input.txt');
      
    reset(f);
      while 
    not Eof(f) do
      
    begin
        Read
    (fn);
        
    sum:=sum+n;
        
    pr:=pr*n;
      
    end;
      
    closefile(f);
      
    sum:=abs(sum);
      
    pr:=pr*pr;
      
    writeln('Modul summi=',round(sum),' kvadrat proizvedenija=',round(pr));
      
    readln;
    end.
    В конце всегда 0 0 выдает... все перепробовал

    а если переделать вот так:

    PHP:
    program Project2;

    {
    $APPTYPE CONSOLE}

    uses
      SysUtils
    ;

    var
      
    ftextfile;
      
    n,sum,pr:real;
    begin
      pr
    :=1;
      
    sum:=0;
      
    assignfile(f,'input.txt');
      
    reset(f);
      while 
    not Eof(f) do
      
    begin
        Readln
    (fn);
        
    sum:=sum+n;
        
    pr:=pr*n;
      
    end;
      
    closefile(f);
      
    sum:=abs(sum);
      
    pr:=pr*pr;
      
    writeln('Modul summi=',round(sum),' kvadrat proizvedenija=',round(pr));
      
    readln;
    end.
    то все работает! но нужно через типизированные файлы!
     
    #5734 EndLeSSDre@M, 8 Apr 2010
    Last edited: 8 Apr 2010
  15. JnK

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

    Joined:
    30 Mar 2007
    Messages:
    125
    Likes Received:
    21
    Reputations:
    0
    1. Зачем цикл, если читается только 1 переменная. В любом случаи он пропускает чтение.
    2. в файле скорее всего у тебя 123.32, а не
    Code:
    ЧЈp=
    З^@
    Вот текстовый файл содержит: 123.11
    Попробуй записать в файл при file of real, потом прочитать, все работает на ура.
     
    #5735 JnK, 8 Apr 2010
    Last edited: 8 Apr 2010
    1 person likes this.
  16. EndLeSSDre@M

    EndLeSSDre@M Banned

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

    ну в общем то я понял, а вот вопросы тогда:

    1: как сделать чтобы он читал несколько переменных... readln тут не канает
    2:
    Code:
    ЧЈp=З^@
    что это вообще такое и есть ли возможность вводить нормальные значения?

    как сделать что бы было несколько переменных?
     
  17. JnK

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

    Joined:
    30 Mar 2007
    Messages:
    125
    Likes Received:
    21
    Reputations:
    0
    1. Как записываешь так и читаешь:
    Записал в файл данные
    PHP:
    n:=123.123;
    Write(f,n);
    n:=456.456;
    Write(f,n);
    Считал с файла данные, конечно лучше N сделать массивом.
    PHP:
    Read(fn);
    WriteLn(FloatToStr(n));
    Read(fn);
    WriteLn(FloatToStr(n));
    2.
    Code:
    ЧЈp=З^@
    - это содержимое файла в real. тоесть (123.11). Нормальный вид, используй textfile. а там уже конвертируй в real
     
    #5737 JnK, 8 Apr 2010
    Last edited: 8 Apr 2010
  18. cel

    cel New Member

    Joined:
    11 Nov 2008
    Messages:
    63
    Likes Received:
    0
    Reputations:
    0
    кaк умeньшить количeство используeмой опeрaтивки?
     
  19. shaker101

    shaker101 New Member

    Joined:
    26 Nov 2009
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    1. Есть мыло (mail.ru).
    Необходимо зарегить Мой Мир и установить аватарку.
    2. Установить приложение в Моем Мире по ссылке.

    Кто этим занималься - Помогите сформировать запросы в Делфи.
     
  20. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    shaker101. Возьми снифер и смотри что шлеться и что приходит от сервера. Вроде ничего сложного.
     
Thread Status:
Not open for further replies.