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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Декабрь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

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


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

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

Выпуск № 671
от 06.12.2006, 01:35

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

Вопрос № 64866: Уважаемые эксперты помогите в таком вопросе. Как записать в один файл значение переменных дву типов, например: type TThePatient = record Surname: String[20]; // Фамилия Name: String[20]; // Имя Patronymic: String[20]; // Отчест...
Вопрос № 64870: Уважаемые эксперты помогите решить задачу: надо отсортировать массив типа TThePatient. Структура массива приведена в приложении. Заранее благодарю....
Вопрос № 64904: Привет всем!Извините за глупый вопрос! Купил Delphi 2005 - не могу найти объекты Crystal Reports... Подскажите, плз, хде они - если надо установить то скажите как... А заодно поинтересуюсь какая версия Crystal Reports интегрирована в Delphi 2005, СПА...
Вопрос № 64911: Такая проблема: пытаюсь подключить ресурс-файл размером 550+ метров :-D, так вот выдает ошибку: [Error] RLINK32: Out of memory! вроде и оперативки хватает для такого обьема и места на винчестере, подскажите плиз, в чем проблема, и если возмож...
Вопрос № 64996: Подскажите, плз как на определенном окошке создать свою кнопку? Если можно, то напишите пример....

Вопрос № 64.866
Уважаемые эксперты помогите в таком вопросе. Как записать в один файл значение переменных дву типов, например:
type
TThePatient = record
Surname: String[20]; // Фамилия
Name: String[20]; // Имя
Patronymic: String[20]; // Отчество
DateOfABirth: TDateTime; // Дата рождения
Growth: 0..300; // Рост (см)
Weight: Single; // Вес (кг)
NameOfAFile: String[150]; // Имя файла пациента
end;
и
type
TPressure = record
Date: TDateTime;
ArterialPressure: Byte;
VenousPressure: Byte;
Pulse: Byte;
end;
Отправлен: 30.11.2006, 03:12
Вопрос задал: Писарев, Павел, Юрьевич (статус: 2-ой класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Mammoth
Здравствуйте, Писарев, Павел, Юрьевич!

Не совсем понял вопрос :( если не то - извените.

В приложении пример сохранения...

Приложение:

Ответ отправил: Mammoth (статус: 1-ый класс)
Ответ отправлен: 30.11.2006, 04:34
Отвечает: monah
Здравствуйте, Писарев, Павел, Юрьевич!
Я подазреваю, что данные надо не только сохранять, но и читать потом. Удобнее всего, в Вашем случае, использовать дазу данных, особенно, если количество пациентов велико.
Но можно использовать потоки Windows. Смотрите приложение.

Приложение:

---------
festina lente

Ответ отправил: monah (статус: Студент)
Ответ отправлен: 30.11.2006, 07:18
Оценка за ответ: 5
Комментарий оценки:
Спасибо за подсказку очень помогла.

Вопрос № 64.870
Уважаемые эксперты помогите решить задачу: надо отсортировать массив типа TThePatient. Структура массива приведена в приложении. Заранее благодарю.

Приложение:

Отправлен: 30.11.2006, 04:50
Вопрос задал: Писарев, Павел, Юрьевич (статус: 2-ой класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)
Отвечает: PaVeL_Ekt
Здравствуйте, Писарев, Павел, Юрьевич!

в приложении пример сортировки записей в listbox-е.
Вам для сортировки в вашем масиве используйте строку в которой приплюсовывайте все значения полей по которым необходимо сделать сортировку
например:Строка:=значение_поля_1+значение_поля_3+значение_поля_7 и проверяйте;
вместо Listbox1.count-1 будет Length(ВашМассив)-1
вместо Listbox1.items.strings[i] будет str типа string
(str:=ВашМассив[i].Поле1+ВашМассив[i].Поле3+ВашМассив[i].Поле7;)

Удачи

Приложение:

---------
Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 7-ой класс)
Ответ отправлен: 30.11.2006, 10:40
Оценка за ответ: 5

Вопрос № 64.904
Привет всем!Извините за глупый вопрос! Купил Delphi 2005 - не могу найти объекты Crystal Reports... Подскажите, плз, хде они - если надо установить то скажите как... А заодно поинтересуюсь какая версия Crystal Reports интегрирована в Delphi 2005, СПАСИБО
Отправлен: 30.11.2006, 10:33
Вопрос задал: Vseslav (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Алтунин Василий Владимирович
Здравствуйте, Vseslav!
По ссылке вы найдете ответ на интересующие вас вопросы

Приложение:

Ответ отправил: Алтунин Василий Владимирович (статус: 2-ой класс)
Ответ отправлен: 01.12.2006, 10:27

Вопрос № 64.911
Такая проблема: пытаюсь подключить ресурс-файл размером 550+ метров :-D, так вот выдает ошибку:
[Error] RLINK32: Out of memory!
вроде и оперативки хватает для такого обьема и места на винчестере, подскажите плиз, в чем проблема, и если возможно, то как ее решить.
заранее спасибо :)
Отправлен: 30.11.2006, 11:18
Вопрос задал: Minor (статус: 2-ой класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Алтунин Василий Владимирович
Здравствуйте, Minor!
Скорее всего у вас маленький файл подкачки, попробуйте увеличить его размер до 2 гигабайт. Или используйте другой способ хранения данных, помимо "ресурсов".
Ответ отправил: Алтунин Василий Владимирович (статус: 2-ой класс)
Ответ отправлен: 01.12.2006, 10:23
Оценка за ответ: 3
Комментарий оценки:
пасиба, у мну и так оперативки 1 Гиг+
файл подкачки на двух винтах 4-8 гиг
а нифига не выходит :((
как по другому запихать все в ехе-шник кроме как при помощи ресурсов не знаю...

Вопрос № 64.996
Подскажите, плз как на определенном окошке создать свою кнопку?
Если можно, то напишите пример.
Отправлен: 30.11.2006, 22:24
Вопрос задал: Dushin Igor (статус: 9-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Gladiator
Здравствуйте, Dushin Igor!
Например, так:

procedure TMainFrm.Button1Click(Sender: TObject);
var Wnd: HWND;
Btn: TButton;
begin
Wnd:=FindWindow(nil,PChar('Calculator'));
Btn:=TButton.Create(nil);
Btn.ParentWindow:=Wnd;
end;
Ответ отправил: Gladiator (статус: 6-ой класс)
Ответ отправлен: 01.12.2006, 08:19

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

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

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

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


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

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.37 от 04.10.2006 		Яндекс Rambler's Top100
В избранное