[ 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. НTL

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

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Как с помощью Winsock передать картинку на антикапчу?
     
  2. crawen_s

    crawen_s New Member

    Joined:
    19 Jul 2009
    Messages:
    16
    Likes Received:
    0
    Reputations:
    0
    как запрограмировать вычисление функции z = x16 (x в 16 степени), с использованием наименшего количества операций умножения ??? :)
     
  3. НTL

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

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Code:
    a := 1;
    for i := 1 to 20 do a := a * 2;
    
     
  4. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    Code:
    x := x * x; => x^2 
    x := x * x; => x^4
    x := x * x; => x^8
    y := x * x; => x^16
    
    или как вариант
    такой метод удобен когда показатель степени явзяется степенью числа 2. т.е. 16 - это 2^4

    Code:
    
    for z:=1 to sqrt(16) do x := x * x;
    y := x;
    

    итого мы получаем только 4 умножения. Учите метод быстрово возведения в степень )

    А в твоем случае получилосьбы 16 умножений )
     
    #4064 slesh, 3 Sep 2009
    Last edited: 3 Sep 2009
    1 person likes this.
  5. transserg

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

    Joined:
    2 Jul 2008
    Messages:
    147
    Likes Received:
    25
    Reputations:
    2
    привет всем! как проверить скорость выполнения участка кода в программе?
     
  6. НTL

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

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    После каждой строчки напиши: Memo1.lines.add('1');
     
  7. transserg

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

    Joined:
    2 Jul 2008
    Messages:
    147
    Likes Received:
    25
    Reputations:
    2
    и как узнать где же оно тормозит? из твоего совета?
    это не выход к тому же нет memo в программе и не будет его там!
     
  8. Ra$cal

    Ra$cal Elder - Старейшина

    Joined:
    16 Aug 2006
    Messages:
    670
    Likes Received:
    185
    Reputations:
    78
    лол жгучий вариант.
    смотри в сторону апи GetTickCount
     
    1 person likes this.
  9. cel1697i845

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

    Joined:
    22 Nov 2008
    Messages:
    618
    Likes Received:
    396
    Reputations:
    80
    Прошу помощи.
    В общем есть основная форма и дополнительная, как сделать так что бы когда открываю дополнительную форму, нельзя было бы переходить к основной, не закрыв её(дополнительную)

    Заранее спасибо.(буду признателен за предложенную литературу по этому и подобным вопросам)
    P.S. Еще раз спасибо.
     
  10. transserg

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

    Joined:
    2 Jul 2008
    Messages:
    147
    Likes Received:
    25
    Reputations:
    2
    так... в общем нашел то что тормозит программу это ExtractAssociatedIcon, есть альтернатива ему? или как еще можно получить иконку файла?
    да, и возможно ли в потоко выполнять рекурсию? пробовал но поток не работал!
     
    #4070 transserg, 3 Sep 2009
    Last edited: 3 Sep 2009
  11. Retro

    Retro New Member

    Joined:
    4 Jun 2009
    Messages:
    3
    Likes Received:
    3
    Reputations:
    0
    Вот так z := exp(16* ln(x)) ?
     
    1 person likes this.
  12. AKYLA

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

    Joined:
    29 Nov 2007
    Messages:
    108
    Likes Received:
    35
    Reputations:
    6
    Ламерский вопрос по строкам.
    Нужно в MEMO к примеру добавить мои символы(строка) вначале и в конце строк, загруженного текстового файла. Что-то я такую простую вещь недопираю.
    Толи нужно это делать в отдельном StringList и потом перезаписывать в MEMO, то ли по другому как-то....

    Черкните плиз кому не лень :)
     
  13. AKYLA

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

    Joined:
    29 Nov 2007
    Messages:
    108
    Likes Received:
    35
    Reputations:
    6
    Flenov
    Ну так в чем проблема, качни например ICS - Internet Component Suite (можно и indy и сокеты но мне больше этот компонет по душе)
    И наваяй типа:

    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    
    begin
    
      Button1.Enabled:=False;
      Edit1.Enabled:=False; //т
    
      HttpCli1.URL       := Label4.Caption; //тут твой урл надо типа Edit впихнуть
      HttpCli1.RcvdStream := TFileStream.Create(Edit1.Text, fmCreate); //тут типа куда сохранять Edit1.Text
      try
            try
                HttpCli1.Get;
                Label2.Caption := 'Загружено ' +
                                     intToStr(HttpCli1.RcvdStream.Size) + ' bytes';
            except
                on E: EHttpException do begin
                    Label7.Caption := 'Ошибка : ' +
                                         IntToStr(HttpCli1.StatusCode) + ' ' +
                                         HttpCli1.ReasonPhrase;;
                end
                else
                    raise;
            end;
        finally
            Button1.Enabled   := TRUE;
            AbortButton.Enabled := FALSE; //кнопка отмены
            HttpCli1.RcvdStream.Destroy;
            HttpCli1.RcvdStream := nil;
        end;
    end;
    Если я правильно понял что ты хочешь :)
     
  14. RumShun

    RumShun Member

    Joined:
    27 Oct 2008
    Messages:
    283
    Likes Received:
    75
    Reputations:
    6
    2 AKYLA
    Code:
    var
     s:string;
     i:integer;
    begin
     for i:=0 to memo1.lines.count-1 do
      begin
       s:=memo1.lines[i];
       //делаеш чево то там с s
       memo1.lines[i]:=s;
      end;
    end;
    
    ну гдето так, в компиляторе не проверял, писал на коленке.
     
  15. AKYLA

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

    Joined:
    29 Nov 2007
    Messages:
    108
    Likes Received:
    35
    Reputations:
    6
    RumShun
    Нет так просто заменяется во всех строчках на s, а старое стирается.
    А нужно определять начало и конец каждой строки и добавлять S в начало или в конец
     
  16. Nullsleep

    Nullsleep Member

    Joined:
    2 Jun 2009
    Messages:
    67
    Likes Received:
    26
    Reputations:
    0
    AKYLA:
    Code:
    const
      b = '<begin>';
      e = '<end>';
    var
     s: string;
     i: Integer;
    begin
      for i := 0 to Memo1.Lines.Count-1 do
      begin
        s := Memo1.Lines[i];
        Memo1.Lines[i]:=b+s+e;
      end;
    end;
    
     
  17. AKYLA

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

    Joined:
    29 Nov 2007
    Messages:
    108
    Likes Received:
    35
    Reputations:
    6
    Nullsleep
    Блин точно, можно же так просто...а то я заморочился с поиском конца строки и.т.д )))
    Спасибо :) что-то мозг совсем стареет )))
     
  18. Tombik

    Tombik Banned

    Joined:
    21 Dec 2008
    Messages:
    18
    Likes Received:
    85
    Reputations:
    13
    Ребята, нужна нубовская помощь в аське по Делфи, огромная просьба, постучите [​IMG]
     
  19. wolmer

    wolmer Member

    Joined:
    12 May 2009
    Messages:
    438
    Likes Received:
    97
    Reputations:
    9
    Покраска ячейки StringGrid без DrawCell. Как это реализовать программно?

    Событие DrawCell в моем случае не идет (хочу чтобы красило там где выделенна ячейка(StringGrid))
     
  20. Ixidor

    Ixidor New Member

    Joined:
    3 Jun 2009
    Messages:
    10
    Likes Received:
    1
    Reputations:
    0
    Писал программу, столкнулся с такой проблемой. При открытии определенного сайта определенным браузером:



    ShellExecute(Handle, 'open',
    'c:\Program Files\Mozilla Firefox\firefox.exe', 'http://rambler.ru', nil,
    SW_HIDE);

    почему-то не работает SW_HIDE, т е окно показывается совершенно обычным образом. Это происходит со всеми сайтами. Кто-нибудь знает, почему так происходит? Можете что-либо посоветовать? Заранее спасибо!
     
Thread Status:
Not open for further replies.