Форум Игромании
 
Регистрация
Справка

Программирование Создание, разработка и доработка различных игр и программного обеспечения

Ответ
 
Опции темы
Старый 23.06.2010, 22:42   #1
Игрок
 
Аватар для Ost1n_ud
 
Регистрация: 28.09.2009
Сообщений: 812
Репутация: 586 [+/-]
Delphi/Делфи


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

Пример.
Скрытый текст:
PHP код:
 {Событиепроисходящее при создании формы MainForm}
 
procedure TMainForm.FormCreate(SenderTObject);
 var
   {
Объявление переменной типа TStrings(список строк).}
   
StringsTStrings;
 
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

Последний раз редактировалось Ost1n_ud; 28.06.2010 в 20:20. Причина: Обновление шапки
Ost1n_ud вне форума  
Отправить сообщение для Ost1n_ud с помощью ICQ Ответить с цитированием
Старый 09.07.2012, 20:54   #61
Опытный игрок
 
Аватар для Digimortal
 
Регистрация: 04.07.2007
Адрес: Спб
Сообщений: 1,732
Репутация: 261 [+/-]
Народ помогите советом
Надо написать программу (ради тренировки) для расчёта:
3*х1+2*х2+1х3 =5
2*х1+3*х2+1*х3 =1
2*х1+1*х2+3*х3 =11

Во всех трёх строках х1, х2 и х3 должны иметь одинаковые значения.
Который час ломаю голову.
Digimortal вне форума  
Ответить с цитированием
Старый 09.07.2012, 21:08   #62
Юзер
 
Аватар для CMETAHA

 
Регистрация: 24.06.2008
Адрес: Я тут
Сообщений: 472
Репутация: 172 [+/-]
Digimortal, Бог ты мой. Что конкретно не получается? Ты не умеешь решать систему уравнений?
__________________
"Хуже вопроса не в той теме, может быть только вопрос, о вопросе не в той теме." © *@ndrey*

Контактик Щебет Лицокнижка Спроси меня Гплюс
CMETAHA вне форума  
Отправить сообщение для CMETAHA с помощью ICQ Ответить с цитированием
Старый 09.07.2012, 21:16   #63
Опытный игрок
 
Аватар для Digimortal
 
Регистрация: 04.07.2007
Адрес: Спб
Сообщений: 1,732
Репутация: 261 [+/-]
Ага, не умею.
Digimortal вне форума  
Ответить с цитированием
Старый 09.07.2012, 21:23   #64
Юзер
 
Аватар для CMETAHA

 
Регистрация: 24.06.2008
Адрес: Я тут
Сообщений: 472
Репутация: 172 [+/-]
Digimortal, Ну тогда дуй в гугл. Ничего сложного в решении систем нет.
__________________
"Хуже вопроса не в той теме, может быть только вопрос, о вопросе не в той теме." © *@ndrey*

Контактик Щебет Лицокнижка Спроси меня Гплюс
CMETAHA вне форума  
Отправить сообщение для CMETAHA с помощью ICQ Ответить с цитированием
Старый 10.07.2012, 04:53   #65
Вечный Искатель
 
Аватар для Анкар

 
Регистрация: 07.07.2007
Сообщений: 303
Репутация: 385 [+/-]
Я бы даже сказал дуй сюда. Хотя тут 3 уравнения и 3 неизвестных, так что более полезно закодить Метод Крамера.
__________________
Я вижу, чего ты видеть не можешь —
Видения, на глазное бельмо что похожи.
Лишь повернешься - уйдет наваждение,
Шептанием станет их тихое пение.

Затем станешь видеть то, чего нет —
Тени на месте, где должен быть свет.
Незряч, обезумел, будь отныне готов,
Век коротать свой в Зале Слепцов.
Анкар вне форума  
Ответить с цитированием
Старый 10.07.2012, 16:34   #66
Просто Карыч

 
Регистрация: 20.01.2007
Сообщений: 181
Репутация: 109 [+/-]
Цитата:
Сообщение от Digimortal Посмотреть сообщение
Ага, не умею.
Ох боже мой, решение системы уравнений методом обратной матрицы, смотри тут
__________________
Можно дать другому разумный совет, но нельзя научить его разумному поведению. (с) Франсуа де Ларошфуко
____________________________
"Дуpь - это особая фоpма матеpии, котоpая не возникает ниоткуда и не исчезает никуда, а лишь пеpеходит из одной головы в дpугую." (с) Народная мудрость

Мозг состоит на 80 процентов из жидкости, и мало того, что у многих она тормозная, так некоторым еще конкретно не долили...
Кар-Карыч вне форума  
Отправить сообщение для Кар-Карыч с помощью ICQ Ответить с цитированием
Старый 01.12.2012, 11:36   #67
Semper paratus
 
Аватар для Cornereaux
 
Регистрация: 05.01.2009
Сообщений: 169
Репутация: 117 [+/-]
Написать программу, которая выводит на экран изображение перемещающегося кораблика. Кто сможет скинуть проект на почту?
__________________
Would you kindly...
Cornereaux вне форума  
Ответить с цитированием
Старый 01.01.2013, 11:50   #68
Желтый абутилон
 
Аватар для Льюс Терин
 
Регистрация: 22.12.2006
Адрес: интернеты
Сообщений: 7,184
Репутация: 413 [+/-]
Чем Delphi 2007 отличается от Delphi 7?
Льюс Терин вне форума  
Отправить сообщение для Льюс Терин с помощью ICQ Отправить сообщение для Льюс Терин с помощью Skype™ Ответить с цитированием
Старый 04.01.2013, 01:30   #69
Юзер
 
Аватар для CMETAHA

 
Регистрация: 24.06.2008
Адрес: Я тут
Сообщений: 472
Репутация: 172 [+/-]
nosikamus, http://nnm.ru/blogs/alex_sporik/delp...yu_s_delphi_7/
__________________
"Хуже вопроса не в той теме, может быть только вопрос, о вопросе не в той теме." © *@ndrey*

Контактик Щебет Лицокнижка Спроси меня Гплюс
CMETAHA вне форума  
Отправить сообщение для CMETAHA с помощью ICQ Ответить с цитированием
Старый 29.04.2013, 15:06   #70
Semper paratus
 
Аватар для Cornereaux
 
Регистрация: 05.01.2009
Сообщений: 169
Репутация: 117 [+/-]
Нужна помощь в создании тестовой программы, считывающей вопрос, варианты ответов и ответ с внешнего файла, с выведением количества правильных ответов. Кто может потратить свое бесценное время, прошу помочь.
P.S. Считывание должно быть с .doc файла
__________________
Would you kindly...

Последний раз редактировалось Cornereaux; 29.04.2013 в 15:19.
Cornereaux вне форума  
Ответить с цитированием
Старый 06.10.2013, 12:22   #71
Желтый абутилон
 
Аватар для Льюс Терин
 
Регистрация: 22.12.2006
Адрес: интернеты
Сообщений: 7,184
Репутация: 413 [+/-]
не работает этот кусок кода:
Код:
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
Льюс Терин вне форума  
Отправить сообщение для Льюс Терин с помощью ICQ Отправить сообщение для Льюс Терин с помощью Skype™ Ответить с цитированием
Старый 08.10.2013, 22:54   #72
Surgeon of Death
 
Аватар для Keltar


 
Регистрация: 21.12.2009
Адрес: Тамбов
Сообщений: 2,125
Репутация: 517 [+/-]
nosikamus, переменные типа integer? Нарыл такой кусок кода, сверь со своим.
Цитата:
var x1, y1, x2, y2: Integer;
begin
X1:=100; y1:=100;
X2:=200; y2:=200;
canvas.Ellipse(x1, y1, x2, y2);
__________________
Information Technology Laboratory: решение любых проблем в области мобильных технологий. Быстро. Недорого.
Mobile: Sony Xperia Z2
Tablet: Nexus 7 2013 wifi
Keltar вне форума  
Отправить сообщение для Keltar с помощью ICQ Ответить с цитированием
Старый 08.10.2013, 23:12   #73
Желтый абутилон
 
Аватар для Льюс Терин
 
Регистрация: 22.12.2006
Адрес: интернеты
Сообщений: 7,184
Репутация: 413 [+/-]
Да. Я уже что по разному извращался.
Попробую твой вставить, посмотрю будет работать или нет.
Спасибо.
А где подробней про классы почитать можно про это? Мне это нужно именно через класс сделать, вроде.
Льюс Терин вне форума  
Отправить сообщение для Льюс Терин с помощью ICQ Отправить сообщение для Льюс Терин с помощью Skype™ Ответить с цитированием
Старый 08.10.2013, 23:15   #74
Surgeon of Death
 
Аватар для Keltar


 
Регистрация: 21.12.2009
Адрес: Тамбов
Сообщений: 2,125
Репутация: 517 [+/-]
nosikamus, ну вот это http://win-ni.narod.ru/lect/lect14.htm например. Я на дельфи так-то не пишу)
__________________
Information Technology Laboratory: решение любых проблем в области мобильных технологий. Быстро. Недорого.
Mobile: Sony Xperia Z2
Tablet: Nexus 7 2013 wifi
Keltar вне форума  
Отправить сообщение для Keltar с помощью ICQ Ответить с цитированием
Старый 02.11.2013, 17:17   #75
Желтый абутилон
 
Аватар для Льюс Терин
 
Регистрация: 22.12.2006
Адрес: интернеты
Сообщений: 7,184
Репутация: 413 [+/-]
Как сделать так, что бы когда я ввожу текст по символьно через компонент Button в Edit, сиволы вводились последовательно, а не заменяя друг друга. Или с Edit такое нельзя сделать?


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

Последний раз редактировалось Льюс Терин; 18.11.2013 в 15:53.
Льюс Терин вне форума  
Отправить сообщение для Льюс Терин с помощью ICQ Отправить сообщение для Льюс Терин с помощью Skype™ Ответить с цитированием
Старый 18.11.2013, 15:51   #76
Желтый абутилон
 
Аватар для Льюс Терин
 
Регистрация: 22.12.2006
Адрес: интернеты
Сообщений: 7,184
Репутация: 413 [+/-]
Можно ли как-то Delphi сформировать что-то типа отчета о использованных компонентов в написанной программе - какие события использовались, и.т.д.
Можно,конечно вручную, но вот подумал: а не предусмотрена такая возможность в самой среде.
Delphi 7
RAD XE
Льюс Терин вне форума  
Отправить сообщение для Льюс Терин с помощью ICQ Отправить сообщение для Льюс Терин с помощью Skype™ Ответить с цитированием
Старый 19.11.2013, 20:37   #77
Желтый абутилон
 
Аватар для Льюс Терин
 
Регистрация: 22.12.2006
Адрес: интернеты
Сообщений: 7,184
Репутация: 413 [+/-]
И в догонку еще проблема:
Код:
 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;
Все работает, кроме '-', сама кнопка работает, но не срабатывает при нажатии '-'
Льюс Терин вне форума  
Отправить сообщение для Льюс Терин с помощью ICQ Отправить сообщение для Льюс Терин с помощью Skype™ Ответить с цитированием
Старый 21.01.2015, 20:04   #78
Желтый абутилон
 
Аватар для Льюс Терин
 
Регистрация: 22.12.2006
Адрес: интернеты
Сообщений: 7,184
Репутация: 413 [+/-]
Тут все мертво...

Хочу передать синусойду через сокет на другой компьютер, передаю уже посчитаные 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) );
Без потока программа естественно виснет.
Как сделать так, что бы сокет передавал данные?
Льюс Терин вне форума  
Отправить сообщение для Льюс Терин с помощью ICQ Отправить сообщение для Льюс Терин с помощью Skype™ Ответить с цитированием
Старый 21.01.2015, 20:48   #79
Пугатель
 
Аватар для [CCCP] Monster

 
Регистрация: 26.06.2005
Адрес: Москва, СССР
Сообщений: 5,810
Репутация: 856 [+/-]
nosikamus,
Цитата:
Тут все мертво...
Сегодня встретишь ты едва ли,
Тех кто пишет на Паскале.
Все, кого ты ни спроси,
Программируют на Си.

Цитата:
На цикле сокет заикается, и не передает ничего.
Объект сокета создавался как синхронный? Какие параметры протокола использовались? Конструктор и настройки, в общем, напиши.
__________________
Служу Советскому Союзу!

Хорошо смеется тот, кто стреляет первым! (танкистская мудрость)
[CCCP] Monster вне форума  
Отправить сообщение для [CCCP] Monster с помощью Skype™ Ответить с цитированием
Старый 21.01.2015, 21:16   #80
Желтый абутилон
 
Аватар для Льюс Терин
 
Регистрация: 22.12.2006
Адрес: интернеты
Сообщений: 7,184
Репутация: 413 [+/-]
[CCCP] Monster, все, на меня поругались на кибер форуме, и решил проблему http://www.cyberforum.ru/delphi-netw...ad1359013.html
Льюс Терин вне форума  
Отправить сообщение для Льюс Терин с помощью ICQ Отправить сообщение для Льюс Терин с помощью Skype™ Ответить с цитированием
Ответ

Метки
delphi, обсуждение, помощь, программирование

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +4, время: 21:31.


Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Rambler's Top100 Яндекс цитирования