Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1107
от 31.03.2008, 10:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 444, Экспертов: 55
В номере:Вопросов: 6, Ответов: 9

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 128945: Здравствуйте! Помогите пожалуйста советом-Как создать резиновый прямоугольник. В программе DelphiWorld6 есть такой пример,но у меня не получается. При компиляции выходят ошибки. Помогите правильно написать код....
Вопрос № 128953: Здравствуйте Уважаемые Эксперты! Ответьте, пожалуйста, на следующий вопрос: в компоненте "TChart" на этапе проектирования можно выбирать как отображается график ввиде точек или линий. Можно ли при выполнении программы изменять вид о...
Вопрос № 128958: Здрасти. Как при каждом нажатию кнопки прочесеть последующею строку в файле. И показать в Label1. ...
Вопрос № 128974: Привет Ексрерти. У меня три вопроса: 1. Как мне узнать под каким именем запущен какойто процес, например 'explorer.exe'. 2. У меня нет постояного подключения к интернету. Как мне стянуть весь архив розсылки, штоб я мог дома искать нужние ...
Вопрос № 129003: Здравствуйте, уважаемые эксперты! Возникла проблема с записью переменной типа "запись" в типизированный файл. Переменная s содержит четыре параметра типа string[20]. Помогите разобраться, пожалуйста. Заранее спасибо....
Вопрос № 129114: Здравствуйте!!! Возник новый вопрос... Допустим, есть простейшее приложение с одной кнопкой, по нажатии на которую выводится окно сообщения. Каким образом сделать так, чтобы координаты приложения на экране генерировались случайно или, хотя бы, задава...

Вопрос № 128.945
Здравствуйте! Помогите пожалуйста советом-Как создать резиновый прямоугольник.
В программе DelphiWorld6 есть такой пример,но у меня не получается. При компиляции выходят ошибки. Помогите правильно написать код.
Отправлен: 25.03.2008, 09:04
Вопрос задал: Бычихин Юрий Тихонович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 12)

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Бычихин Юрий Тихонович!
Нашел аналогичный пример - думаю, Вам подойдет. Взят отсюда.
Копия статьи в приложении.
В приложенном файле весь проект - я проверил, все работает.

Удачи!

Приложение:

Прикреплённый файл: Загрузить >>
Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 25.03.2008, 09:16


Вопрос № 128.953
Здравствуйте Уважаемые Эксперты!
Ответьте, пожалуйста, на следующий вопрос:
в компоненте "TChart" на этапе проектирования можно выбирать как отображается график ввиде точек или линий. Можно ли при выполнении программы изменять вид отображения графика? Наверно можно было бы создать два графика с разным способом отображения, выводить одни и теже данные одновременно в оба и активировать при необходимости один или другой, но меня интересует только один график с изменяемым свойством.
За ранее благодарю за ответ, Геннадий.
Отправлен: 25.03.2008, 09:34
Вопрос задал: Geb2003 (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сазонов Михаил Владимирович
Здравствуйте, Geb2003!
Для этого надо создавать серии в Run-time. Кидаешь на форму Tchart и создаешь то что Вам надо. Рабочий код в приложении. Особой литературы нет, но в HELPE есть некоторое количество примеров, что в принципе для начало хватает. Рекомендую скачать в сети последние версии TeeChart. Они более быстродествующие, чем те что идут в комплекте.
У меня Delphi 2007 и дополнительно установлен TeeChart 8.01.
Удачи!

Приложение:

Ответ отправил: Сазонов Михаил Владимирович (статус: 1-ый класс)
Ответ отправлен: 25.03.2008, 13:54


Вопрос № 128.958
Здрасти. Как при каждом нажатию кнопки прочесеть последующею строку в файле. И показать в Label1.
Отправлен: 25.03.2008, 09:51
Вопрос задал: Мокроусов Алексей Сергеевич (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Мокроусов Алексей Сергеевич!
Код в приложении.
Проект целиком в приложенном файле.

Удачи!

Приложение:

Прикреплённый файл: Загрузить >>
Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 25.03.2008, 11:30
Оценка за ответ: 5
Комментарий оценки:
Ок всё заработало спс

Отвечает: Genia007
Здравствуйте, Мокроусов Алексей Сергеевич!
Если у Вас простой файл txt, то всё очень просто:
var
Form1: TForm1; f: TextFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
begin
If not EOF(f) then
begin
Readln(f, s); {считываем очередную строку}
Label1.Caption:= s;
end
else
Label1.Caption:= 'Конец файла!';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(f, 'proba.txt');
Reset(f);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(f);
end;
Ответ отправил: Genia007 (статус: 9-ый класс)
Ответ отправлен: 25.03.2008, 19:25


Вопрос № 128.974
Привет Ексрерти.
У меня три вопроса:
1. Как мне узнать под каким именем запущен какойто процес, например 'explorer.exe'.
2. У меня нет постояного подключения к интернету. Как мне стянуть весь архив розсылки, штоб я мог дома искать нужние ответи(как настроить FTP в totalcomander).
3. Где можна стянуть или пришлите на ящик книги где описание функции и процедуры по Delphi. У меня есть учебник "Функции и Процедуры по Delphi 4-5", но она демо.
Отправлен: 25.03.2008, 11:36
Вопрос задал: Мельник Виктор (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PM_pilot
Здравствуйте, Мельник Виктор !
1 - IMHO, Вы как то вопрос неясно поставили....
2 - очень рекомендую скачать Delphi Russian Knowledge Base (DRKB) - www.drkb.ru там Вы найдете ответы на
большинство вопросов которые втречаються в розсылке.
3 - Поищите книгу Ксавье Пачеко, Стив Тейксейра - "Delphi 5 Руководство разработчика" она Вам поможет найти ответ почти на любой Ваш вопрос... :). Скачать ее можно например здесь
http://www.delphilab.ru/content/view/17/46/ . IMHO одна из лучших книг по DELPHI.......
Ответ отправил: PM_pilot (статус: 2-ой класс)
Ответ отправлен: 25.03.2008, 19:27


Вопрос № 129.003
Здравствуйте, уважаемые эксперты! Возникла проблема с записью переменной типа "запись" в типизированный файл. Переменная s содержит четыре параметра типа string[20]. Помогите разобраться, пожалуйста. Заранее спасибо.

Приложение:

Отправлен: 25.03.2008, 15:33
Вопрос задал: Евчик Сергей Александрович (статус: 3-ий класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Sosedov A.I.
Здравствуйте, Евчик Сергей Александрович!

Ошибка компиляции возникает из-за того, что Ваш файл объявлен как типизированный, а процедура Append работает только с текстовыми файлами (типа Text, или TextFile). Решить проблему можно, объявив файл типом Text и записывая в него по очереди все четыре поля записи. Однако файл потеряет типизацию, в нем уже не будет фиксированной длины записи, т.е. его станет сложнее обрабатывать при чтении.

Вам следует переходить на новые технологии работы с файлами с помощью объектов класса TFileStream библиотеки Classes, что намного удобнее и универсальнее. Посмотрите в приложении, как просто решается Ваша задача.

Приложение:

Ответ отправил: Sosedov A.I. (статус: 4-ый класс)
Ответ отправлен: 25.03.2008, 16:45
Оценка за ответ: 5
Комментарий оценки:
Спасибо

Отвечает: Кудинов Антон Павлович
Здравствуйте, Евчик Сергей Александрович!

Возможно решение (обход) будет таким:

Reset(f);
Seek(f,filesize(f));
Ответ отправил: Кудинов Антон Павлович (статус: 3-ий класс)
Ответ отправлен: 25.03.2008, 19:56
Оценка за ответ: 5
Комментарий оценки:
Спасибо


Вопрос № 129.114
Здравствуйте!!! Возник новый вопрос... Допустим, есть простейшее приложение с одной кнопкой, по нажатии на которую выводится окно сообщения. Каким образом сделать так, чтобы координаты приложения на экране генерировались случайно или, хотя бы, задавались вручную???
Отправлен: 26.03.2008, 08:31
Вопрос задал: KomissaRex (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, KomissaRex!
Для стандартных, насколько мне известно, такое не предусмотрено.
Предлагаю такой вариант решения:
1. Добавить к проекту Dialog: File -> New -> Other -> вкладка dialogs -> выбираете любой (Вам, скорее всего, подойдет Standard Dialog (Horizontal))

2. Меняете у него свойство Position на poDesigned - теперь он будет показываться в том месте экрана, где Вы его разместите во время разработки.

3. Теперь необходимо сделать, чтобы его позиция была случайной.
Для этого создаете событие OnShow для диалога и пишите в него следующий код:
randomize;
left := random(screen.Width);
top := random(screen.height);


4.Перед показом диалога также необходимо изменять надпись на нем (сообщение для пользователя).
Например, сообщение выводится в Label1, тогда код будет выглядеть так:
OKBottomdlg.Label1.Caption := 'Ваше сообщение';

5. Теперьпо нажатии на кнопку показываете этот диалог:
OKBottomdlg.showModal;

Скачать проект целиком можно из приложенного файла.

Удачи!

Прикреплённый файл: Загрузить >>
Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 26.03.2008, 09:15
Оценка за ответ: 5
Комментарий оценки:
Даже можно поставить 6+!!!!! Не ожидал такого подробного ответа, да еще и сприкрепленным файлом!!!!!! Огромное спасибо!!!!!!!!

Отвечает: Genia007
Здравствуйте, KomissaRex!
Генерировать координаты приложения случайно можно следующим способом:
Form1.Left:= Random(Screen.Width);{Координата слева от левого края экрана}
Form1.Top:= Random(Sceern.Height);{Координата сверху от верхнего края экрана}
Аналогично можно задавать и размер формы:
Form1.Height:= Random(Sceern.Height);
Form1.Width:= Random(Screen.Width);
Вручную задать координаты можно из Edita:
Form1.Left:= StrToInt(Edit1.Text);{Координата слева от левого края экрана}
Form1.Top:= StrToInt(Edit2.Textt);{Координата сверху от верхнего края экрана}
Ответ отправил: Genia007 (статус: 9-ый класс)
Ответ отправлен: 26.03.2008, 13:11
Оценка за ответ: 5
Комментарий оценки:
Спасибо! Коротко и ясно... Хотя я, грамотей, сделал ошибку в письме: координаты не приложения, а окна сообщения... Sorry!!!


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 4.72.6 beta от 22.03.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное