[Ost1n_ud]

Delphi/ Делфи



Официальная страница

Полная статья на Википедии

Delphi – это удивительный язык программирования, - это безграничные возможности, сотни компонентов, тысячи функций и открытых исходников. Вот почему даже самые продвинутые гуру не знают все о Delphi. На первый взгляд, кажется, что Delphi не одолеть? Выбросите эту мысль из головы – на то Вы и пришли в Интернет, чтобы учиться. Поверьте, delphi скоро станет для Вас настоящим другом и незаменимым помощником.

Пример.

Скрытый текст:

PHP код:

 {Событие, происходящее при создании формы MainForm}
 procedure TMainForm.FormCreate(Sender: TObject);
 var
   {Объявление переменной типа TStrings(список строк).}
   Strings: TStrings;
 begin
   {Создание(выделение памяти и т. д.) объекта типа TStringList.
    TStringList - это потомок TStrings, реализующий абстрактные методы.}
   Strings := TStringList.Create; 
   try
     {Добавление строки.}
     Strings.Add('Добавляемая строка.');
     {Сохранение строк в файл.}
     Strings.SaveToFile('C:\Strings.txt');
   finally
     {Удаление объекта.}
     Strings.Free;
   end;
 end; 


Крупнейшие информационные сайты и сообщества изучающих Delphi.

▪ КОРОЛЕВСТВО Дельфи | Виртуальный клуб программистов
▪ Delphi Sources — Программирование на Delphi, более 800 примеров, статьи, форум, FAQ
▪ Мастера DELPHI
▪ Delphi Plus — новости, посвященные Delphi
▪ Torry’s Delphi Pages — крупнейший сборник компонент для Delphi
▪ DRKB — Русская база знаний по Delphi
▪ DRKB — Статьи по Delphi

[Digimortal]

Народ помогите советом
Надо написать программу (ради тренировки) для расчёта:
3*х1+2*х2+1х3 =5
2*х1+3*х2+1*х3 =1
2*х1+1*х2+3*х3 =11

Во всех трёх строках х1, х2 и х3 должны иметь одинаковые значения.
Который час ломаю голову.

[CMETAHA]

Digimortal, Бог ты мой. Что конкретно не получается? Ты не умеешь решать систему уравнений?

[Digimortal]

Ага, не умею.

[CMETAHA]

Digimortal, Ну тогда дуй в гугл. Ничего сложного в решении систем нет.

[Анкар]

Я бы даже сказал дуй сюда. Хотя тут 3 уравнения и 3 неизвестных, так что более полезно закодить Метод Крамера.

[Кар-Карыч]

Сообщение от Digimortal

Ага, не умею.

Ох боже мой, решение системы уравнений методом обратной матрицы, смотри тут

[Cornereaux]

Написать программу, которая выводит на экран изображение перемещающегося кораблика. Кто сможет скинуть проект на почту?

[Льюс Терин]

Чем Delphi 2007 отличается от Delphi 7?

[CMETAHA]

nosikamus, http://nnm.ru/blogs/alex_sporik/delp...yu_s_delphi_7/

[Cornereaux]

Нужна помощь в создании тестовой программы, считывающей вопрос, варианты ответов и ответ с внешнего файла, с выведением количества правильных ответов. Кто может потратить свое бесценное время, прошу помочь.
P.S. Считывание должно быть с .doc файла

[Льюс Терин]

не работает этот кусок кода:

begin
Form1.Canvas.Ellipse(360, 112, c.Di+360, c.Di+112);

end;

Если просто числами задать, то все нормально, с простыми переменными тоже не работает.
Ошибка
E2250 There is no overloaded version of 'Ellipse' that can be called with these arguments

[Keltar]

nosikamus, переменные типа integer? Нарыл такой кусок кода, сверь со своим.

var x1, y1, x2, y2: Integer;
begin
X1:=100; y1:=100;
X2:=200; y2:=200;
canvas.Ellipse(x1, y1, x2, y2);

[Льюс Терин]

Да. Я уже что по разному извращался.
Попробую твой вставить, посмотрю будет работать или нет.
Спасибо.
А где подробней про классы почитать можно про это? Мне это нужно именно через класс сделать, вроде.

[Keltar]

nosikamus, ну вот это http://win-ni.narod.ru/lect/lect14.htm например. Я на дельфи так-то не пишу)

[Льюс Терин]

Как сделать так, что бы когда я ввожу текст по символьно через компонент Button в Edit, сиволы вводились последовательно, а не заменяя друг друга. Или с Edit такое нельзя сделать?


АПД:
Тупой вопрос, на самом деле, и задал его тупо.
Все просто:

Edit1.Text:=  Edit1.Text + 'символ'

[Льюс Терин]

Можно ли как-то Delphi сформировать что-то типа отчета о использованных компонентов в написанной программе - какие события использовались, и.т.д.
Можно,конечно вручную, но вот подумал: а не предусмотрена такая возможность в самой среде.
Delphi 7
RAD XE

[Льюс Терин]

И в догонку еще проблема:

 if (Key in ['+']) then
 begin
 key:= #0;
 Btn11.Click;
 end;

 if (Key in ['-']) then
 begin
 key:= #0;
 Btn12.Click;
 end;

 if (Key in ['*']) then
 begin
 key:= #0;
 Btn13.Click;
 end;

 if (Key in ['/']) then
 begin
 key:= #0;
 Btn14.Click;
 end;

Все работает, кроме '-', сама кнопка работает, но не срабатывает при нажатии '-'

[Льюс Терин]

Тут все мертво...

Хочу передать синусойду через сокет на другой компьютер, передаю уже посчитаные x и y а на приеме уже рисую.i

procedure TForm1.Button3Click(Sender: TObject);
begin
while x *<=100 do
*begin
* y:=sin(x);
* *ClientSocket1.Socket.SendText(FloatToStr(x) + '&' +FloatToStrf(y, fffixed, 3,3) );
* x:= x + dx;
end;
end;

На цикле сокет заикается, и не передает ничего. Если цикл убрать, и просто клацать кнопку, то отрисовка у клиента идет. Думал добавить Sleep(), но не получается засунуть отправку в поток:
Код Delphi

ClientSocket1.Socket.SendText(FloatToStr(x) + '&' +FloatToStrf(y, fffixed, 3,3) );

Без потока программа естественно виснет.
Как сделать так, что бы сокет передавал данные?

[[CCCP] Monster]

nosikamus,

Тут все мертво...

Сегодня встретишь ты едва ли,
Тех кто пишет на Паскале.
Все, кого ты ни спроси,
Программируют на Си.

На цикле сокет заикается, и не передает ничего.

Объект сокета создавался как синхронный? Какие параметры протокола использовались? Конструктор и настройки, в общем, напиши.

[Льюс Терин]

[CCCP] Monster, все, на меня поругались на кибер форуме, и решил проблему http://www.cyberforum.ru/delphi-netw...ad1359013.html