Март 25
2008Комментарии:
Всего отзывов: 1484 на progrdelphi.ru
24 | 23 | 22 | 21 | 20 | 19 | 18 | 17 | 16 | 15 | 14 | 13 | 12 | 11 | 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1Оставьте свой отзыв
Вы должны войти, чтобы оставлять комментарии.
облако тегов
Массив Нужна Опрос Печать Помогите Подскажите Получение Проблема Проблемы Вопрос Вывести Работа данные данных делфи клавиатуры памяти подключения пожалуйста проверка программе проекты возможности вставить выбора работы разобраться сделать списка сервера тема файла файлов через чтобы Access ADOQuery Delphi DelphiX Image ListBox MySQL Report StringGrid ZeosDBO
{+$R}program labor2;
uses crt;
const eps=1E-5;
var x,n,c,k1,k2,xn,xk,hx,dy,y,s,a,b,max:real;
i,m:integer;
ch:char;
begin
k1:=sqrt((5+sqrt(5))/2);
k2:=sqrt(5)-1/2;
clrscr;
writeln('xn,xk,hx');
read (xn,xk,hx);
clrscr;
writeln('============================================================');
writeln('|| xn=', xn:5:2,' xk=',xk:5:2,' hx=',hx:5:2,' ||');
writeln('=============================================================');
writeln('|| x || n || s || y || dy || ');
writeln('=============================================================');
m:=round((xk-xn)/hx)+1;
x:=xn;
while xn<xk do
begin
a:=1; b:=x; c:=1; n:=0; s:=(k1-x*k2);
while (abs(a)>eps) and (abs(b)>eps) and (abs(c)>eps) do
begin
a:=k1*a*exp(2*ln(x))/(n+n+1)*(n+n+2);
b:=k2*b*exp(2*ln(x))/(n+n+2)*(n+n+3);
c:=-c;
n:=n+1;
s:=s+(a-b)*c;
end;
s:=s/2;
y:=cos(pi/10+x);
x:=x+hx; {ВОТ ОНО }
if abs(y)>abs(s) then
max:=y
else max:=s;
if (abs(y)>1E-5) or (abs(s)>1E-5) then
dy:=100*abs((y-s)/max)
else
dy:=0;
writeln('||',x:6:2,' || ',n:3:0,'|| ' ,s:9:6,' || ', y:9:6,' ||',dy:10,'||');
end;
repeat
writeln('||_________________________________________________________||');
ch:=readkey;
until ord(ch)=27;
end.
не могу организавать цикл.
не знаю куда вписать
x:=x+hx;
var
Form1: TForm1;
f:file of integer;
m:array [1..100,1..100] of integer;
i,j:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'n.txt');
rewrite(f);
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=random(100);
write(f,m[i,j]);
end;
end;
closefile(f);
end;
end.
записываю массив в текстовый файл пишет мне вместо массива нечно непонятное где ошибка?
На вкладке Samples есть компонент ShellListView - собственно он инкапсулирует это самое окошко проводника. Можно юзать его в принципе же.
TOleContainer не пробовал, думал он не для этого. А с чем его…употреблять ? ))
TOleContainer чем то не устраивает?
Вообще мне нужно окошко проводника.
x:=CreateOleObject('Shell.Explorer'); . . . . . . . . . . . А дальше?
Кто-нибудь знает как поместить на форму OLE-объект если известно его имя ? Например тот же WebBrowser
WinExec тоже работает
shellexecute
WinExec('C:\1.exe',1);
Напишите процедуру! Справочник не скачать дорого больно
Сергей Бочаров скачай себе справочник delphiworld там есть эта процедура и много другого полезного…
Помогите нужно запустить ехе файл из программы!! Как это сделать?
Есть три открытых MDIChild формы CHLDForm1,CHLDForm2,CHLDForm3
На CHLDForm3 есть кнопка при нажатии которой должна активироваться CHLDForm1.
Пишу такой обработчик на кнопку :
for i:=0 to MainForm.MDIChildCount-1 do
if MainForm.MDIChildren[i].Name = 'CHLDForm1' then
begin
MainForm.MDIChildren[i].Show;
MainForm.MDIChildren[i].BringToFront;
Break;
end;
end;
В результате CHLDForm1 активируется на полсекунды (становиться активным) и опять управление получает CHLDForm3.
Как же все таки активировать одну MDIChild из другого MDIChild?
p.s. На никто не ответил
И почему я только сейчас наткнулся на группу :3
Вакансия: Разработчик Delphi
Уровень дохода: от 55 000 до 60 000 руб. в месяц
Город Москва
Ближайшее метро: Парк Победы, Фили
Тип работы Полный рабочий день
Место работы Работа на территории работодателя
Условия работы и компенсации Компенсация (твердый оклад, возможные надбавки, премии, перспективы роста з/п) - з/п по итогам собеседования от 50000-60000 руб.
- премии по результатам труда
- ежегодная индексация з/п
- премия по итогам года в размере среднемесячной з/п
- все выплаты в соответствии с трудовым и налоговым законодательством
Дополнительные социальные льготы (соц. пакет) Моб. тел.
Вся необходимая для работы техника
Оформление в соответствии с ТК РФ
Должностные обязанности
1. Разработка нестандартных интерфейсов с использованием графических библиотек.
2. Графическая визуализация информации (в т.ч. 3D);
3. Тестирование, сопровождение программы;
4. Подготовка технической документации и документации для пользователей ПО.
Требования к кандидату
Возраст от 20 до 35 лет
Пол Мужской
Образование Высшее
Требования к квалификации
1. Опыт программирования в Delphi не менее 2 лет. Знание С/С++ приветствуется.
2. Разработка графических интерфейсов, usability.
3. Хорошее знание GDI/GDI+ (опыт работы не менее 2 лет), DirectX. Желателен опыт работы с OpenGL.
4. Желателен опыт разработки игровых интерфейсов. Опыт оптимизации приложений.
5. Опыт работы по отслеживанию ошибок и тестированию созданного ПО;
6. Работа в команде;
Языки программирования: Delphi (С/С++ желательно), опыт разработки графических интерфейсов, usability. GDI/GDI+, DirectX (OpenGL желательно).
Высокая работоспособность, аналитический склад ума, коммуникабельность, гибкость мышления, творческий подход к решению задач, ответственность, целеустремленность, инициативность, умение работать в команде.
Помогите с перехватом API. В инете них*я нет. Нужно перехватить создание\удаление\чтение\запись файлов.
Как реализовать ?
большое спасибо))
Когда вопрос задает красивая девушка тут же выискиваются толпы желающих безвозмездно ей помочь =)
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
case button of
mbLeft : ShowMessage ('left');
mbright : ShowMessage ('right');
mbmiddle : ShowMessage ('middle');
end;
end;
а вот у компонента image есть событие OnMouseUp. можно ли в нём разничить отпускание правой и левой кнопок?
НАРОД КТО МОЖЕТ ПОМОЧЬ ПО ПОВОДУ БИЗНЕС - ПРОЦЕССОВ, DFD диаграммы…. )))) Обращаться в личку !!!
Тарас Treefeed Кучер, приложение пока находится на стадии разработки и поэтому простым смертным недоступно.:) Но непростые смертные могут добавиться ко мне в друзья и таки поглазеть на него.
P.S. всем спасибо!:) Больше не надо.:)
Привет! Помоги реализовать такое в Делфи.
1. Как сделать так, чтоб в MaskEdit1 и MaskEdit2,если они пустые, при нажатии пользователя на кнопку выводилось сообщения типа ' Введите дату!' причём выводилось, хотя бы если один MaskEdit пустой.
2. Как реализовать через кнопку, открытие базы, если я использую ADOTable (3 штуки) и DataSource (3 Штуки). например, у меня есть одна база Access с одними данными(но одинаковыми таблицами),а мне надо другие данные с другой базы данных Access.
3. Как перехватить ошибку DBNavigator'а об удалении записи…и отобразить свою?
Писать в Лс или сюда)
нет лучше вы нам)
желающие в личку пишите плиз
Есть. пиши
вопрос:
имеется программа на делфи 7
надо потестить на баги и ошибки
есть желающие ? 2-3 человека
Delphi 9 как ™ не существует; если подразумеваешь Delphi 2009, то ответ очевиден - переход имеет смысл! И не стоит бояться нового оформления - меню такое же, только расположение окошек другое, причем это можно менять, да палитра компонентов иная. Если такая палитра ну очень непривычная, то бери 2010, там оба варианта.
объем данных делить на среднюю скорость передачи данных.)
ПРивет всем… Кто
3323
подскажет :
как определить время передачи данных по сети
вставить все в ProgressBar
определить расширение?
у кого-нибудь есть ссылочка на нормальный delphi 2010?
Изя Q Bass Чубенко пасиб
Народ,а стоит ли переходить с Делфи 7 на Делфи 9?
с башорга:
Пишу знач прогу на delphi. По ходу дела создал базу данных (точнее таблицу). У нее еще расширение ".db"
После заполнения таблицы решил открыть её в блокноте. Среди всякого хлама спецсимволов хорошо выделились эти строки: "k#уЯk.уЯk:уЯk?уЯk"…
Походу, дельфя действительно работает по принципу "Хуяк-хуяк"
Здравствуйте, программисты! Помогите, пожалуйста, у меня вопрос! описал его в теме "2D игра DelphiX"
Дионисий, лучший вариант - взять демку RibbonControls, ищи в папке Мои документы (может быть как в папке пользователя, так и в общей папке)
Доброго всем времени суток!
Отличного вам отдыха и весёлых выходных!
Аня Пимоненко: лови
[code delphi]
var
ps : TPoint; // точка
begin
ps.X := 500; // Координата Х
ps.Y := 310; // –//– Y
mouse.CursorPos := ps; // Перемещение мыши
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //Нажатие
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); //Отпускание
[/code]
а можно какнибуть симулировать нажатие ЛКМ?
Извините если повторяюсь.. Можно ли где нить скачать Делфи глазами хакера 2-е издание ?
Рома antigluk Qwerty
это получается при использовании типа extended
Владимир Митасов
использовать тип extended
как в делфи добиться точности вычислений как в Excel? сравниваю результаты расчётов, имееются маленькие расхождения примерно 10^-28 при работе с числами порядка10^-12, как от этого избавиться? это очень мешает т.к. ошибка накапливается
Буду признателен всем прошедшим по этой ссылке=)
П0сиб0! Надо псм0треть..
как выложить видео со своей прогой? 15 секунд
Андрей Паньков, читай, а я побежал протирать от пыли проги!!!
Отличного всем настроения!
А я возвращаюсь к работе.
Мир всем хорошим людям!
функция EnumDisplaySettings
и структура для нее TDevMode
2 Андрій Макар
Воспроизводить звук можно по частоте но из спикера:
( частота Гц , длительность мс);
Подскажите плиз функции определения разрешения экрана.
Добрый вечер всем!!!
Народ у меня следущая трабла:
Вот код:
[code delphi]сonnect();[/code]
Вот ошибка:
Cannot creat fiel "D:\1". Отказано в доступе.
Как сделать чтобы был доступ доступен?
2 Александр T-jay Гузько
Тебя в гугле и яндексе забанили?
Хочю написать интерактивный учебник. Кто может подсказать пример таковых, хочется увидеть что должно получится
мне не надо, просто интересо
Помогу с программированием: принимаю заказы на лабы, программки, курсовые,
блок-схемы по DELPHI, Visual C++, C#,PASCAL, HTML, быстро и недорого …
Контакты:
2 Андрій Макар, Могу для тебя сделать набор файликов с нужными тебе звуками (не обязательно по частотам), любой саунд к твоей проге.
2Андрiй Макар:
Думаю, тебе надо DirectX или DelphiX юзать…
Андрій Макар в делфах такого точно нема.
уважаемые коллеги! жду комментариев
Я еще совсем юн….объясните пожалуйста…как сделать дочернее окно…щоб на главном кнопка его открывала….я создаю новую форму…появляется новый юнит…инспектор проекта его видит….но в файле dpr почемуто нифига не меняется…..и…короче я запутался…и не знаю, кда тыкать)