Откройте свой Мир!

Мне нужно написать программу в Delphi для расчета координат и построения бифуркационного дерева. Может кто - нибудь знает как это сделать. В принципе алгоритм построения я знаю, но ничего не получается.

Здравствуйте. Есть вопрос, может кто сталкивался. Есть поток TThread в программе, работающий с бд. С помощью Synchronize на главную форму из него передается информация о ходе выполнения. В этом же модуле присутствует еще один класс для работы с CSV файлами. При его работе тоже надо передать информацию на главную форму. Но для этого классаметод Synchronize не работает, так как это обычный класс, а не TThread. Как корректно передать данные из него на главную форму? Можно ли вызвать метод потока? Спасибо всем кто откликнется.

Необходимо реализовать структуру данных. Элемент структуры: комплексное число.
Структура данных: дек.
нужно основные операции реализовать : добавить/удалить в левый/правый край списка, получить значение/ получить размер

Требования к реализации:
1 Для построения класса структуры данных запрещается использовании готовые структуры данных в выбранном для реализации языке программирования (языки Object Pascal и Delphi – классы TCollection, TList, TStack и др.).
2 Для реализации элемента структуры и самой структуры использовать классы с функциональностью, требуемой определением структуры данных.
3 Для размещения данных использовать механизм динамической памяти.
4 Организовать тестирование разработанных классов посредством консольного при-ложения. При выполнении каждой операции класса структуры осуществлять вывод состояния структуры данных на консоль.

Язык паскаль, среда Delphi 7

Добрый день. Мы в Перми организуем компанию Soft-G-Ru по разроботке игровых программ и прочего софта. 
У меня и моих коллег есть свои наработки и некий опыт. 
Моя цель - это проектирование трёхмерных игр на самом 
высоком уровне! Нам особенно нужны программисты со знанием С++ и DirectX. 
Если Вам это тоже интересно, откликнитесь! Предлагаю встретиться, пообщаться и обсудить 
эту тему.. Надеюсь на сотрудничество. Вместе Мы сможем сделать гораздо больше и Масштабнее!.. 
Я как специалист и преподаватель по Компьютерной графике и знаток по игрострою гарантирую свежий поток 
идей и реальный результат при плодотворном сотрудничестве. Мой телефон 8-908-257-99-50 Сергей

Помогите пожалуйста составить 3-4 программы на языке Delphi, с использованием оператора "set".

"Программирование в среде Delphi" умирает? 
    Или все заняты ох... как???

привет всем! пришлите пожалуйста инструкцию и программный код и все что поможет создать сапера! только обезательно чтобы было сделано все через Delphi 3!

у мну маленькое проблемко возникло....
хачу узнать адрез объекта через переменную селф но он мну непонятный адресог выдает....
кто нает пачему?

Народ посоветуйте хороший не дорогой vps или vds сервер!!! Тока чтоб не дорого! Мне 50 мб хватит!

Народ кто нить умеет работать с 2D графикой?? Научите плизз, а то  я ваще в этом деле нуб=(

привет всем! пришлите пожалуйста инструкцию и программный код и все что поможет создать сапера! только обезательно чтобы было сделано все через Delphi 3!

Привет, всем!Помогите пожалуйста решить задачку и если можно исходник.
задача: подсчитать значение ряда
S=x-(x^3)/3+...+((-1)^n)*(x^(2*m+1))/(2*n+1) и сравнить (|Y-S|) со значением исходной функции Y=arctg(x) на интервале 0.1<=x<=0.5 при n=40. Очень срочно надо. Буду очень благодарна всем кто поможет.

Народ подаю хороших троянов и вирусов написанных в дельфи также могу подогнать исходник блокера винды о цене договоримся!

Всем доброго дня не подскажете как можно реализовать баны в дельфи на сокетахдля чата.??

Помогите ибо едет крыша. 
В отсортированной строке массива вида 1 1 1 22 34 34 46 найти колво одинаковых символов. 
Спасите от красноглазия.

Бывают моменты когда ломается мышь. И либо не охото, либо нет времени купить мышь.

Так что от хорошего настроения и доброты душевной скидываю исходник
программы по управлению курсором и щелчками мыши на языке Delphi. Может
кому то нужно как мне иногда.

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Button5: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  x,y:integer;                            // Объявляем глобальные переменные



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Left:=strtoint(edit1.Text);   // Кнопка при нажатии переносит форму по

form1.Top:=strtoint(edit2.Text);    // указанным координатам в комбомассиве

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0);   // Функция зажатия левой клавиши мыши

mouse_event(mouseeventf_leftup,0,0,0,0);     // Функция разжатия левой клавиши мыши

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0); // Повторяем предыдущую функцию нажатия и разжатия мыши

mouse_event(mouseeventf_leftup,0,0,0,0);   // чтобы мы могли выделить объект

mouse_event(mouseeventf_rightdown,0,0,0,0); // Далее зажимаем правую клавишу мыши

mouse_event(mouseeventf_rightup,0,0,0,0);   // Далее разжимаем правую клавишу мыши

end;



procedure TForm1.Button4Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0); // Если мы повторим дважды функцию нажатия

mouse_event(mouseeventf_leftup,0,0,0,0);   // и разжатия клавиши мыши, то у нас получится

mouse_event(mouseeventf_leftdown,0,0,0,0); // Двойной щелчек мыши

mouse_event(mouseeventf_leftup,0,0,0,0);

end;



procedure TForm1.Button5Click(Sender: TObject);

begin

form1.Close;

end;



procedure TForm1.ComboBox1Change(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // При изменении комбобокса меняется положение курсора по х

y:=strtoint(combobox2.Text);

setcursorpos(x,y);             // Переводим курсор в указанное место

end;



procedure TForm1.ComboBox2Change(Sender: TObject);

begin

x:=strtoint(combobox1.Text);

y:=strtoint(combobox2.Text);   // При изменении комбобокса меняется положение курсора по y

setcursorpos(x,y);             // Переводим курсор в указанное место

end;



procedure TForm1.FormCreate(Sender: TObject);

var i,j:integer;

begin

for i := 1 to 3000 do              // создаем массив цифр

combobox1.Items.Add(inttostr(i));  // Добовляем цифры в комбобокс

for j := 1 to 3000 do              // создаем массив цифр

combobox2.Items.Add(inttostr(j));  // Добовляем цифры в комбобокс

form1.Left:=0;

form1.Top:=0;

form1.Color:=rgb(100,100,255);

end;



end.

народ опять нужна помощь!label
gotolabel;
var
i:integer;
begin
idSmtp1.host:=Edit1.text;
idsmtp1.port:=25;
idsmtp1.Username:=Edit2.Text;
idsmtp1.Password:=LabeledEdit3.Text;
ms.body.add(Memo1.text);
ms.From.Text:=LabeledEdit2.Text;
For I:=0 to Memo1.Lines.Count-1 do
ms.Recipients.EMailAddresses:=memo2.Lines.Strings[i];
ms.Subject:=LabeledEdit1.Text;
idsmtp1.Connect();
if idsmtp1.Connected=true then
goto gotolabel;
exit;
gotolabel:
idsmtp1.Send(ms);
idsmtp1.Disconnect;
ShowMEssage('Сообщение отправлено!');


Вот код смотрите мне надо чтоб он его разослал всем кто находится всем кто находится в мемо1 вот все перепробовал не получается может кто посоветует???

Помогите создать платный сайт.( Платные ссылки ).
Хочу продать прогу через инет.

Люди помогите пожалуйста я не могу запустить дельфи 7 вылетает ошибка при запуске :

Точка входа в процедуру PnplsFilePnpDriver не найдена в библиотеке DLL SETUPAPI.DLL.

Дельфи раз 10 переустанавливал не помогает, тока если на безопасном режиме загружаюсь тока тогда она запускается! А как сделать чтоб она запускалась как раньше??  А ведь раньше все нормально было..

Часто встречаюсь с высказыванием типа: "на delphi профессионалы (в разных областях) не пишут!"
Давайте создадим здесь, в этом обсуждении, список более-менее крупных проектов (утилит, ИС, АИС, КИС и т.д.)
написанных на прекрасном языке - delphi...

{в этот список добавляйте либо ссылки на сайты проектов, либо названия и год выпуска (по возможности)}
>можно и названия вирусов написанных на delphi вписывать, что-бы заткнуть ьтсап тем, кто говорит, что это невозможно<

}{акер упоминает о backdoor написанном на delphi.


вот не большой список


здесь есть ещё


самый большой список, который я только смог найти

Как программист и разработчик исповедующий философию "Есть у самого — поделись с другими" Я, создал в разделе Видео, альбомы C#, HTML&CSS, ASP.NET (их больше, но признаюсь лень писать), и залил другие видеоматериалы о программировании и рабочей среде. Видеокурсы и Видеолекции от CyberBionic (EDU.CBSYSTEMATICS.COM). Как прошедший их курсы - мне очень понравилось! Тем более здесь-же (то есть в Центре обучения CBSYSTEMATICS:) можно и сертифицироваться.
Надеюсь, выложенное видео, будет полезным сообществу. 

Доброе время суток!
Я написал-скопировал перехватчик системных сообщений и настроил его так, чтобы при нажатии левой WinKey вылазило окно. Оно вылезло, но проблема в том, что при этом выпадает и меню "Пуск", как исправить ситуацию? 
Заранее благодарен за помощь. 


function KeyboardProc(code: integer; wParam: word; lParam: longint) : longint; stdcall;
var AppWnd:HWND;
Begin
  if code < 0 then
    Result:= CallNextHookEx(CurHook, Code, wParam, lParam)
  else
    begin
      if Byte(LParam shr 24)<$80 then
        begin
          AppWnd:= FindWindow(nil, PChar('Перехватчик'));
          SendMessage(AppWnd,HookMsg,wParam, GetCurrentThreadId {lParam});
          Result:=CallNextHookEx(CurHook, Code, 0, lParam);
        end;
     end;
end;

Альтернатива IT-шным сообществам mail.ru и другим подобным платформам


[ Читать далее... → ]

Мне нужно из рисунка с расширением *.bmp, каких-либо линий выдернуть линии в определенные координаты или массив.