Реализовать с использованием классов в Delphi

@Winchester · Регистрация: 03.04.2012

Студворк — интернет-сервис помощи студентам

Создать приложение, содержащее одно главное и хотя бы одно всплывающее меню. При выборе пользователем какого-либо пункта должно открываться диалоговое окно, запрашивающее у пользователя какие-либо сведения. Эти сведения передать в главную форму.
Задание: Карточка самочувствия. Запросить температуру и артериальное давление пользователя. Занести их в карточку с отметкой о дате прохождения теста. Выдать пользователю сообщение о его самочувствии.

@mss · 27.11.2012, 17:44

И что ?

@Winchester · 27.11.2012, 17:47 **[ТС]**

И прошу помочь с программой

@mss · 27.11.2012, 17:58

Чем помочь-то ?
За тебя ее написать ?

@Winchester · 27.11.2012, 18:03 **[ТС]**

Если не сложно

@mss · 27.11.2012, 18:10

Не сложно.
Но впарить преподу чужой код как свой тебе все равно не удастся - препод хоть и лопух, но "аппаратура при нем".

@Winchester · 27.11.2012, 18:14 **[ТС]**

Это уже вопрос другой. Главное, чтобы был работающий программный код

@mss · 27.11.2012, 20:56

Главное чтобы в голове было не пусто.

@Winchester · 27.11.2012, 21:14 **[ТС]**

Был бы код

@mss · 27.11.2012, 21:39

Ну так пиши, в чем проблема ?

@Winchester · 28.11.2012, 00:22 **[ТС]**

Знал бы, не писал бы на форум!

@mss · 28.11.2012, 09:16

Так ты спрашивай о том что конкретно не понятно)

@Winchester · 28.11.2012, 11:47 **[ТС]**

Уже сказал же. Программный код целиком, если не сложно

@mss · 28.11.2012, 11:52

Сообщение от Winchester

сказал же. Программный код целиком

"Альпийское нищенство... Святое дело !" (с) "12 стульев"

@Winchester · 29.11.2012, 11:25 **[ТС]**

Понятно все, короче

Добавлено через 23 часа 5 минут
Ошибка возникла в процедуре TForm2.DateTimePicker1Change. Пишет что: Record, object or class type required. Никак не разберусь.

Delphi
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
32
33
34
35
36
37
38
39
40
41
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit4: TEdit;
    DateTimePicker1: TDateTimePicker;
    procedure DateTimePicker1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  Date:TDateTime;
implementation
 
{$R *.dfm}
 
procedure TForm2.DateTimePicker1Change(Sender: TObject);
begin
  Edit4.Text:=DateTimePicker1.Date.Strings("dddddd");
end;
 
end.

@mss · 29.11.2012, 11:34

Сообщение от Winchester

DateTimePicker1.Date.Strings("dddddd")

Прокомментируй подробно движение своей мысли при написании этого выражения.

@Winchester · 29.11.2012, 11:48 **[ТС]**

Ну у меня должны данные из DataTimePicker заноситься в Edit, а оттуда в текстовый файл

Добавлено через 1 минуту
Из методички скопировал эту строку

@mss · 29.11.2012, 12:44

Методичку - в топку.
Cвойство TDateTimePicker.Date имеет просой (необъектный) тип TDate, у которого нет и не может быть свойств (Strings в случае из "методички")
Продолжай движение мысли.

@Winchester · 29.11.2012, 12:52 **[ТС]**

А в каком виде должна выглядеть тогда эта строчка?

@mss · 29.11.2012, 12:59

строковое_значение := DateTimeToStr(значение_типа_дата_время)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@Winchester 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 36

	Реализовать с использованием классов в Delphi 27.11.2012, 17:40. Показов 1952. Ответов 23 Метки нет (Все метки) Создать приложение, содержащее одно главное и хотя бы одно всплывающее меню. При выборе пользователем какого-либо пункта должно открываться диалоговое окно, запрашивающее у пользователя какие-либо сведения. Эти сведения передать в главную форму. Задание: Карточка самочувствия. Запросить температуру и артериальное давление пользователя. Занести их в карточку с отметкой о дате прохождения теста. Выдать пользователю сообщение о его самочувствии. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.11.2012, 17:44
	И что ? 0

@Winchester 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 36
	27.11.2012, 17:47 [ТС]
	И прошу помочь с программой 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.11.2012, 17:58
	Чем помочь-то ? За тебя ее написать ? 0

@Winchester 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 36
	27.11.2012, 18:03 [ТС]
	Если не сложно 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.11.2012, 18:10
	Не сложно. Но впарить преподу чужой код как свой тебе все равно не удастся - препод хоть и лопух, но "аппаратура при нем". 0

@Winchester 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 36
	27.11.2012, 18:14 [ТС]
	Это уже вопрос другой. Главное, чтобы был работающий программный код 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.11.2012, 20:56
	Главное чтобы в голове было не пусто. 0

@Winchester 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 36
	27.11.2012, 21:14 [ТС]
	Был бы код 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.11.2012, 21:39
	Ну так пиши, в чем проблема ? 0

@Winchester 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 36
	28.11.2012, 00:22 [ТС]
	Знал бы, не писал бы на форум! 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	28.11.2012, 09:16
	Так ты спрашивай о том что конкретно не понятно) 0

@Winchester 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 36
	28.11.2012, 11:47 [ТС]
	Уже сказал же. Программный код целиком, если не сложно 0

@Winchester 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 36
	29.11.2012, 11:48 [ТС]
	Ну у меня должны данные из DataTimePicker заноситься в Edit, а оттуда в текстовый файл Добавлено через 1 минуту Из методички скопировал эту строку 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	29.11.2012, 12:44
	Методичку - в топку. Cвойство TDateTimePicker.Date имеет просой (необъектный) тип TDate, у которого нет и не может быть свойств (Strings в случае из "методички") Продолжай движение мысли. 0

@Winchester 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 36
	29.11.2012, 12:52 [ТС]
	А в каком виде должна выглядеть тогда эта строчка? 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	29.11.2012, 12:59
	строковое_значение := DateTimeToStr(значение_типа_дата_время) 0