как запрограмировать вычисление функции z = x16 (x в 16 степени), с использованием наименшего количества операций умножения ???
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 умножений )
и как узнать где же оно тормозит? из твоего совета? это не выход к тому же нет memo в программе и не будет его там!
Прошу помощи. В общем есть основная форма и дополнительная, как сделать так что бы когда открываю дополнительную форму, нельзя было бы переходить к основной, не закрыв её(дополнительную) Заранее спасибо.(буду признателен за предложенную литературу по этому и подобным вопросам) P.S. Еще раз спасибо.
так... в общем нашел то что тормозит программу это ExtractAssociatedIcon, есть альтернатива ему? или как еще можно получить иконку файла? да, и возможно ли в потоко выполнять рекурсию? пробовал но поток не работал!
Ламерский вопрос по строкам. Нужно в MEMO к примеру добавить мои символы(строка) вначале и в конце строк, загруженного текстового файла. Что-то я такую простую вещь недопираю. Толи нужно это делать в отдельном StringList и потом перезаписывать в MEMO, то ли по другому как-то.... Черкните плиз кому не лень
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; Если я правильно понял что ты хочешь
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; ну гдето так, в компиляторе не проверял, писал на коленке.
RumShun Нет так просто заменяется во всех строчках на s, а старое стирается. А нужно определять начало и конец каждой строки и добавлять S в начало или в конец
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;
Nullsleep Блин точно, можно же так просто...а то я заморочился с поиском конца строки и.т.д ))) Спасибо что-то мозг совсем стареет )))
Покраска ячейки StringGrid без DrawCell. Как это реализовать программно? Событие DrawCell в моем случае не идет (хочу чтобы красило там где выделенна ячейка(StringGrid))
Писал программу, столкнулся с такой проблемой. При открытии определенного сайта определенным браузером: ShellExecute(Handle, 'open', 'c:\Program Files\Mozilla Firefox\firefox.exe', 'http://rambler.ru', nil, SW_HIDE); почему-то не работает SW_HIDE, т е окно показывается совершенно обычным образом. Это происходит со всеми сайтами. Кто-нибудь знает, почему так происходит? Можете что-либо посоветовать? Заранее спасибо!