Вопрос № 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;
Ответ отправил: Mammoth (статус: 1-ый класс)
Ответ отправлен: 30.11.2006, 04:34
Отвечает: monah
Здравствуйте, Писарев, Павел, Юрьевич!
Я подазреваю, что данные надо не только сохранять, но и читать потом. Удобнее всего, в Вашем случае, использовать дазу данных, особенно, если количество пациентов велико.
Но можно использовать потоки Windows. Смотрите приложение.
Приложение:
--------- festina lente
Ответ отправил: monah (статус: Студент)
Ответ отправлен: 30.11.2006, 07:18 Оценка за ответ: 5 Комментарий оценки: Спасибо за подсказку очень помогла.
Вопрос № 64.870
Уважаемые эксперты помогите решить задачу: надо отсортировать массив типа TThePatient. Структура массива приведена в приложении. Заранее благодарю.
в приложении пример сортировки записей в 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!
По ссылке вы найдете ответ на интересующие вас вопросы
Такая проблема: пытаюсь подключить ресурс-файл размером 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
Подскажите, плз как на определенном окошке создать свою кнопку?
Если можно, то напишите пример.
Отвечает: 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.
