Имя:    Пароль:      Помнить меня       
Unsorted   ~  Software  ~  Development and Design  ~  Помощь по Delphi Все вопросы по Delphi сюда
На страницу 1, 2  »
Doctor_Mozg
Сообщение  21 Ноя 2006, 15:46  Ссылка : Ответить с цитатой
Возраст: 37 Пол: Мужской  Доверенный пользователь
C нами с 25.01.2005
Репутация: 133

Delphi - это мощная высокопроизводительная среда разработки приложений, значительно упрощающуая разработку e-business приложений следующего поколения.





e_10729978.jpg

e_10729978.jpg - Просмотров: 72

В начало
Профиль : Фотоальбом : Блог : Личное Сообщение : ICQ
nexx
Сообщение  19 Май 2007, 22:40  Ссылка : Ответить с цитатой
Возраст: 35 Пол: Мужской 
C нами с 13.06.2006
Репутация: 21.2

есть у кого нить исходный код программы решения диофантовых уравнений. очень нужно.
В начало
Профиль : Личное Сообщение
Morpheuse
Сообщение  31 Май 2007, 17:34  Ссылка : Ответить с цитатой
Возраст: 35 Пол: Мужской 
C нами с 26.01.2005
Репутация: 83.3

Вобщем задача такая:
Есть текстовый файл из которого данные заносятся в динамическую память и помещаются в стринггрид. В полях типа string записаны номера и фамилии.
Надо методом простого выбора отсортировать список по фамилям там что бы выводился по алфавиту.

О методе простого выбора:
Метод простого выбора
При просмотре массива ищется наименьший элемент путем сравнения его с первым. Если такой элемент найден, он меняется местами с первым. Затем операция повторяется, но начиная не с первого элемента, а со второго. Затем снова повторяется с третьего, и так далее до тех пор, пока не будет отсортирован весь массив.

_____________________________
lockerz.com
Получить инвайт и + в репутацию:)
В начало
Профиль : Фотоальбом : Блог : Личное Сообщение : Сайт : ICQ
Eske2
Сообщение  31 Май 2007, 19:31  Ссылка : Ответить с цитатой
Возраст: 38 Пол: Мужской 
C нами с 02.03.2007
Репутация: 94.9

Morpheuse, А в чем проблема? Ты описал задачку, а проблему не сказал Улыбочка

_____________________________
А ты готов умереть?
В начало
Профиль : Фотоальбом : Блог : Личное Сообщение : ICQ
Morpheuse
Сообщение  01 Июн 2007, 7:18  Ссылка : Ответить с цитатой
Возраст: 35 Пол: Мужской 
C нами с 26.01.2005
Репутация: 83.3

Улыбочка) не знаю как ее реализовать

_____________________________
lockerz.com
Получить инвайт и + в репутацию:)
В начало
Профиль : Фотоальбом : Блог : Личное Сообщение : Сайт : ICQ
Markus
Сообщение  29 Сен 2007, 23:43  Ссылка : Ответить с цитатой
Возраст: 47 Пол: Мужской  Доверенный пользователь
C нами с 18.05.2006
Репутация: 114.7

Подскажите где прочитать!
уже перерыл всю возможную литературу, ни где не могу найти как реализовать получение почты с аттачем и сохранением его на диск. Вообще скудно описана работа с интернет в Delphi. После мучительных поисков нашел как сделать отправку, а мне надо прием. по-мо-ги-те ! Грустно

_____________________________
Still waters run deep...
WebRoads.ru
Palitra-Land.ru
В начало
Профиль : Фотоальбом : Личное Сообщение : Сайт
WarioR
Сообщение  27 Ноя 2007, 0:10  Ссылка : Ответить с цитатой
Возраст: 37 Пол: Мужской 
C нами с 29.10.2005
Репутация: 100.4

Проблема -
Дали мне диск на котором прога на Делфи написанная - контрольная работа. Ну типо выбираешь правильный ответ, и тп...
Так вот - файл экзешник. Скопировал с болванки на хард, запускаю - форму работы грузит, а рисунки и тп - нет! А с диском в сидюке - нормуль. Что это? Создатель проги сделал обращение к диску? Как это убрать, чтоб екзешник и без диска с прогой шел, где прописать путь не с диска СД ?
Спасибо

_____________________________
Jedem das seine | Куплю 1, 2, 5 р. 2003 г.
В начало
Профиль : Фотоальбом : Блог : Личное Сообщение : Сайт
WarioR
Сообщение  27 Ноя 2007, 19:07  Ссылка : Ответить с цитатой
Возраст: 37 Пол: Мужской 
C нами с 29.10.2005
Репутация: 100.4

Вот код - идет проверка сидюка, а как сделать чтоб она просто работала?


procedure TForm1.FormCreate(Sender: TObject);
var letter: char;
begin
// Определение буквы CD-Rom'а, установка пути
for letter:='a' to 'z' do
if (GetDriveType( PChar(letter + ':\') ) = DRIVE_CDROM) THEN
  begin
  if FileExists( letter+':\ProjectTestFedback.exe' ) then begin
 // messagedlg('Диск определён '+letter,mtWarning,[mbOk],0);
  break;
  end;
  end;
ChDir( letter+':\');
If IOResult <> 0 then
     MessageDlg( 'Каталог не найден', mtWarning, [mbOk], 0);


Добавлено спустя 47 минут 46 секунд:

задача успешно решена!!)

procedure TForm1.FormCreate(Sender: TObject);
begin
  ChDir(ExtractFileDir(Application.ExeName));
  If IOResult <> 0 then
     MessageDlg( 'Каталог не найден', mtWarning, [mbOk], 0); 


вот этот код, если что

_____________________________
Jedem das seine | Куплю 1, 2, 5 р. 2003 г.
В начало
Профиль : Фотоальбом : Блог : Личное Сообщение : Сайт
Reflection
Сообщение  15 Окт 2008, 11:56  Ссылка : Ответить с цитатой
Возраст: 99 Пол: Мужской 
C нами с 09.06.2007
Репутация: 245

Вопрос на засыпку. Для подключения к базе на Firebird использую IBDatabase. Все работает пучком. Но если например сервер Firebird слитает /выключают и т.д. программа показывает кучу ошибок в течении секунды и прога вылетает. Как отследить эту ошибку, чтобы при разрыве связи просто появлялось окошко , например, "СВязь прервалась, провертьте сервер БД." и кнопка подключится.
В начало
Профиль : Фотоальбом : Блог : Личное Сообщение : E-mail
Silicoid
Сообщение  09 Ноя 2008, 1:41  Ссылка : Ответить с цитатой
Возраст: 45 Пол: Мужской 
C нами с 28.07.2005
Репутация: 135.1

Вот такой вопрос возник.
сделал простенький веб-сервер на 7й дельфе, который на запрос (http://127.0.0.1:8080) выдает кое-какую информацию.

Но при обращении к нему, программа слетает с ошибкой (на сриншоте её видно)

Сломал уже всю голову из-за чего происходит это вылет IndyServer-а
прилагаю исходник и компилированный EXE-шник

Посмотрите, может кто подскажет мне в чём косяк

_____________________________
Выпрямись и убери руки от лица!





err.gif

err.gif - Просмотров: 66


webserver.rar - 212.31 Kб
Скачиваний: 27

В начало
Профиль : Блог : Личное Сообщение : Сайт : ICQ
Silicoid
Сообщение  09 Ноя 2008, 16:15  Ссылка : Ответить с цитатой
Возраст: 45 Пол: Мужской 
C нами с 28.07.2005
Репутация: 135.1

Проблема решилась.
Это был баг в компоненте.

_____________________________
Выпрямись и убери руки от лица!
В начало
Профиль : Блог : Личное Сообщение : Сайт : ICQ
optemus
Сообщение  24 Апр 2009, 15:20  Ссылка : Ответить с цитатой
Возраст: 35 Пол: Женский  Доверенный пользователь
C нами с 21.01.2007
Репутация: 97.2

помогите пожалусто кто нибуть
код запускаиться но не считает вредена
где проблема непойму
В начало
Профиль : Фотоальбом : Личное Сообщение
Reflection
Сообщение  08 Июн 2010, 9:23  Ссылка : Ответить с цитатой
Возраст: 99 Пол: Мужской 
C нами с 09.06.2007
Репутация: 245

А у меня о5 вопрос по бд. Все тот же фаерберд. Кидаю компонент IBQuery делаю запрос с 2я переменными (дата начало и дата конец). Все вроде работает ОК. Но результат в DBGrid выводит не так как нужно. Выводит только целые числа. а нужно с сотыми(копейками)
Кто нибудь может подсказать? Или тут одни вопросы только? Смешно
В начало
Профиль : Фотоальбом : Блог : Личное Сообщение : E-mail
Antiph
Сообщение  08 Июн 2010, 9:52  Ссылка : Ответить с цитатой
Возраст: 38 Пол: Мужской 
C нами с 30.03.2009
Репутация: 21.9

Reflection, попробуй использовать DBGrid из других компонентов. На сколько мне известно TMS умеют очень многое...

Добавлено спустя 7 минут 34 секунды:

optemus, может в качестве переключателя обращаться к RadioGroup.ItemIndex, а не label.caption? У него все-таки есть 4 определенных значения.
P.S. : Хотя все равно не понимаю зачем нужна подобная прога Смайлик
В начало
Профиль : Личное Сообщение : ICQ
mp750
Сообщение  08 Июн 2010, 10:13  Ссылка : Ответить с цитатой
Возраст: 44 Пол: Мужской 
C нами с 17.02.2010
Репутация: 87.4

а поля данных в IBQuery вещественные завели? И как выводите их в DBGrid?
В начало
Профиль : Личное Сообщение
Показать сообщения:   
На страницу 1, 2  »

Unsorted   ~  Software  ~  Development and Design  ~  Помощь по Delphi

Ответить на тему

Перейти:  





Powered by phpBB   © Unsorted Team  support@unsorted.me  promo@unsorted.me  Полезные скрипты