Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 26.05.2014, 10:11
Colosal Colosal вне форума
Прохожий
 
Регистрация: 26.05.2014
Сообщения: 6
Версия Delphi: Delphi 7
Репутация: 10
Восклицание Исходный код

Это код программы полностью написан (т.е программа рабочая) илиздесь чего-то не хватает?
Код:
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Button2: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form1: TForm1;
implementation
{$l modul.obj}
{$R *.dfm}
procedure perevod (var s:shortstring; i:integer); external;
procedure TForm1. Button1Click (Sender: TObject);
var
s:string[32];
i:integer;
begin
label1. Caption:='';
if radiobutton1. Checked then
i:=10
else if radiobutton2. Checked then
i:=2
else if radiobutton3. Checked then
i:=8
else if radiobutton4. Checked then
i:=16;
s:=edit1. Text;
perevod (s, i);
if s[1]=#1 then
showmessage ('строка пустая')
else if s[1]=#2 then
showmessage ('последний символ должен быть:'+#13+#10+'цифра, если десятичная система, '+#13+#10+'b, если двоичная система, '+#13+#10+'o, если восьмеричная система, '+#13+#10+'h, если шестнадцатиричная система')
else if s[1]=#3 then
showmessage ('число введено неправильно')
else if s[1]=#4 then
showmessage ('ноль не может быть первым символом числа')
else if s[1]=#5 then
showmessage ('число должно быть в диапазоне'+#13+#10+'0..2147483647, если десятичная система, '+#13+#10+'1111111111111111111111111111111, если двоичная система, '+#13+#10+'17777777777, если восьмеричная система, '+#13+#10+'7FFFFFFF, если шестнадцатиричная система')
else label1. Caption:=s;
end;
procedure TForm1. Button2Click (Sender: TObject);
begin
close;
end;
end.
MAD: пользуемся тегами.

Последний раз редактировалось M.A.D.M.A.N., 26.05.2014 в 11:22.
Ответить с цитированием
  #2  
Старый 26.05.2014, 10:59
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Для начала не хватает тега [СODE]...[/СODE] вокруг кода, а к вопросу - это юнит формы, к нему не хватает файла проекта (*.dpr) и содержимого этой формы (*.dfm)
Ответить с цитированием
  #3  
Старый 26.05.2014, 11:00
Colosal Colosal вне форума
Прохожий
 
Регистрация: 26.05.2014
Сообщения: 6
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Alegun
Для начала не хватает тега [СODE]...[/СODE] вокруг кода, а к вопросу - это юнит формы, к нему не хватает файла проекта (*.dpr) и содержимого этой формы (*.dfm)
А можно показать это в коде? Просто я не знаком с этим языком
Ответить с цитированием
  #4  
Старый 26.05.2014, 11:07
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

В коде и так уже всё показано до нас. Нужно создать новый проект и накидать на форму компонентов из списка юнита, в данном случае это
Код:
1
2
3
4
5
6
7
8
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Button2: TButton;
затем кликнуть по двум баттонам чтоб создать для них обработчики и заменить содержимое юнита формы на вышеприведённое. Всё
Ответить с цитированием
  #5  
Старый 26.05.2014, 11:25
Colosal Colosal вне форума
Прохожий
 
Регистрация: 26.05.2014
Сообщения: 6
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Alegun
В коде и так уже всё показано до нас. Нужно создать новый проект и накидать на форму компонентов из списка юнита, в данном случае это
Код:
1
2
3
4
5
6
7
8
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Button2: TButton;
затем кликнуть по двум баттонам чтоб создать для них обработчики и заменить содержимое юнита формы на вышеприведённое. Всё

То есть в место баттон1 и баттон2 в исходнике вставить выше написанный код?
Ответить с цитированием
  #6  
Старый 26.05.2014, 11:33
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от Colosal
То есть в место баттон1 и баттон2 в исходнике вставить выше написанный код?
Повторюсь, нужно открыть новый проект (File> New> Application) затем из палитры компонентов набрать необходимых по этому списку - их ведь на новой форме пока нет, нажать на кнопки чтоб создать процедуры их клика, и в конце необходимо заменить весь код юнита на тот что вы привели в первом посте
Ответить с цитированием
Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
Colosal (26.05.2014)
  #7  
Старый 26.05.2014, 11:34
Colosal Colosal вне форума
Прохожий
 
Регистрация: 26.05.2014
Сообщения: 6
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Alegun
Повторюсь, нужно открыть новый проект (File> New> Application) затем из палитры компонентов набрать необходимых по этому списку - их ведь на новой форме пока нет, нажать на кнопки чтоб создать процедуры их клика, и в конце необходимо заменить весь код юнита на тот что вы привели в первом посте
Всё понял. Большое спасибо)
Ответить с цитированием
  #8  
Старый 26.05.2014, 21:15
RobinStone RobinStone вне форума
Прохожий
 
Регистрация: 02.06.2013
Сообщения: 27
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию размышлизм

Цитата:
Сообщение от Alegun
Повторюсь, нужно открыть новый проект (File> New> Application) затем из палитры компонентов набрать необходимых по этому списку - их ведь на новой форме пока нет, нажать на кнопки чтоб создать процедуры их клика, и в конце необходимо заменить весь код юнита на тот что вы привели в первом посте

Как у Вас терпения хватает?.. И я вот с подобными вопросами бывает лезу. Вам рэспект и уважуха...
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:54.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter