|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2016, 14:15 | #1 |
Новичок
Джуниор
Регистрация: 08.09.2016
Сообщений: 2
|
Помогите, не хочет работать, в чём ошибка
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Private declarations } Ychenik = class public Student:string; Grupa:string; ChisloYchenik:integer; constructor create; end; var Form1: TForm1; Ychnik1:Ychenik; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Ychnik1.Student:=Edit1.Text; Ychnik1.Grupa:=Edit2.Text; Ychnik1.ChisloYchenik:=StrToInt(Edi t3.Text); end; procedure TForm1.Button2Click(Sender: TObject); begin Memo1.Lines.Add('Название студенты'+ Ychnik1.Student +'Название группы'+ Ychnik1.Grupa + 'Число студентов'); end; end. |
28.12.2016, 12:45 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Определение нового класса - обязательное условие ? А так не пойдет ?
Код:
Последний раз редактировалось digitalis; 28.12.2016 в 12:48. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите пожалуйста, не могу понять в чём ошибка... | allex19 | Помощь студентам | 0 | 14.06.2016 20:08 |
js Скрипт не хочет работать. Помогите найти ошибку | artiom4356 | JavaScript, Ajax | 7 | 23.05.2015 15:42 |
В блоках не хочет работать высота заданная в процентах. Если задать в пикселях, то работает. В чем ошибка? | vlad275 | HTML и CSS | 2 | 13.03.2012 01:10 |
Не хочет работать OpenPictureDialog | guffer | Общие вопросы Delphi | 4 | 08.07.2009 20:14 |