Компонент Edit числового типа

@Евгик · Регистрация: 30.11.2015

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

Ребята подскажите, кто сталкивался с таким вопросом:
Для числового компонента Edit типа Integer, в Делфи7 нужно прописать условие, в котором нужно показать:

Если Edit пустой, то за этим последуют определённые инструкции.

Для символьного понятно: Edit1.text:=''
А вот как быть с числовым? Сразу скажу, что перевод в строку:IntToStr(Edit1.text):='', не вариант, потому что в условиях фигурируют только числовые компоненты Edit,если переведу в строку, то будет конфликт числовых со строковым.

@Евгик · 30.11.2015, 22:22 **[ТС]**

Вариант с кнопкой не совсем подходит, потому что я не могу выделить отдельным условием: если поле эдит пусто, то заблокировать. Мне нужно показать условие в связке:
Например:
Тип переменной integer имеюют 3 поля эдита.
Первый ноль, второй пусто, третий единицу.
Условие нужно показывать в виде 3-ох эдитов.
Если первый = ноль и второй= пусто и третий=1 то.... Всё норм, вот только пусто не могу показать.
Ноль и единица проходят, потому что числа, а если показываю пусто в виде '', то тут нужно в string перевести вторую переменную. а так нельзя!

@mss · 30.11.2015, 22:26

Сообщение от Евгик

if Edit1.Text<>'' then - а это для символьной переменной типа string

То есть если в поле Edit1 юзел влупил "12345.67" (заведомо не пустое значение), то это он ввел символьные (а не числовые) данные - это следует из твоего же утверждения)

Не по теме:

С элементарной логикой у тебя просто караул дела обстоят)

@Евгик · 30.11.2015, 22:28 **[ТС]**

mss
Форумчанин
2036 / 1951 / 184
Регистрация: 24.12.2010
Сообщений: 11,706
Сегодня, 21:10 Компонент Edit числового типа [В закладки] [Плавающее окно] #37 (permalink)
Цитата Сообщение от Евгик Посмотреть сообщение
От перестановки значений ,сумма не меняется
Ты с дуба рухнул ?)
Какая еще к лешему "сумма" ? Где тут суммирование ?

Это шутка, не бери близко сердцу!

Добавлено через 2 минуты
Цитата Сообщение от Евгик Посмотреть сообщение
if Edit1.Text<>'' then - а это для символьной переменной типа string
То есть если в поле Edit1 юзел влупил "12345.67" (заведомо не пустое значение), то это он ввел символьные (а не числовые) данные - это следует из твоего же утверждения)

нет почему. Эдиты изначально имеют же тип integer.Значит уже числа вв'л. И я блокироку поставил на ввод с запятой, только числа или пусто, чтоб осталось!

@mss · 30.11.2015, 22:32

Сообщение от Евгик

Это шутка

Да это я и так понял - ты сюда зашел поразвлекать почтенную публику)
Типо запасайтесь, народ, попкорном))

Добавлено через 1 минуту

Сообщение от Евгик

Эдиты изначально имеют же тип integer

Эдиты и ныне и присно и во веки веков имеют конкретно тип TEdit, а не integer, не стринг и не какой-то еще другой.

@Евгик · 30.11.2015, 22:33 **[ТС]**

Я всего лишь спрашиваю у профессионалов своего дела!

@mss · 30.11.2015, 22:39

Не по теме:

А тут не нужно быть профессионалом - тут следует просто вызубрить Паскаль как Отче Наш.

DenNik · 30.11.2015, 22:45

Сообщение от Евгик

Эдиты изначально имеют же тип integer

та ладно. а как тебе такое описание

TEdit

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
TEdit = class(TCustomEdit)
  published
    property Align;
    property Alignment;
    property Anchors;
    property AutoSelect;
    property AutoSize;
    property BevelEdges;
    property BevelInner;
    property BevelKind default bkNone;
    property BevelOuter;
    property BevelWidth;
    property BiDiMode;
    property BorderStyle;
    property CharCase;
    property Color;
    property Constraints;
    property Ctl3D;
    property DoubleBuffered;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property Font;
    property HideSelection;
    property ImeMode;
    property ImeName;
    property MaxLength;
    property NumbersOnly;
    property OEMConvert;
    property ParentBiDiMode;
    property ParentColor;
    property ParentCtl3D;
    property ParentDoubleBuffered;
    property ParentFont;
    property ParentShowHint;
    property PasswordChar;
    property PopupMenu;
    property ReadOnly;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Text;
    property TextHint;
    property Touch;
    property Visible;
    property OnChange;
    property OnClick;
    property OnContextPopup;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDock;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnGesture;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnMouseActivate;
    property OnMouseDown;
    property OnMouseEnter;
    property OnMouseLeave;
    property OnMouseMove;
    property OnMouseUp;
    property OnStartDock;
    property OnStartDrag;
  end;

TCustomEdit

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
TCustomEdit = class(TWinControl)
  private
    FAlignment: TAlignment;
    FMaxLength: Integer;
    FBorderStyle: TBorderStyle;
    FPasswordChar: Char;
    FReadOnly: Boolean;
    FAutoSize: Boolean;
    FAutoSelect: Boolean;
    FHideSelection: Boolean;
    FOEMConvert: Boolean;
    FCharCase: TEditCharCase;
    FCreating: Boolean;
    FModified: Boolean;
    FInBufferedPrintClient: Boolean;
    FOnChange: TNotifyEvent;
    FOldSelLength: Integer;
    FOldSelStart: Integer;
    FNumbersOnly: Boolean;
    FTextHint: string;
    procedure AdjustHeight;
    function GetModified: Boolean;
    function GetCanUndo: Boolean;
    procedure SetBorderStyle(Value: TBorderStyle);
    procedure SetCharCase(Value: TEditCharCase);
    procedure SetHideSelection(Value: Boolean);
    procedure SetMaxLength(Value: Integer);
    procedure SetModified(Value: Boolean);
    procedure SetNumbersOnly(Value: Boolean);
    procedure SetOEMConvert(Value: Boolean);
    procedure SetPasswordChar(Value: Char);
    procedure SetReadOnly(Value: Boolean);
    procedure SetTextHint(const Value: string);
    procedure UpdateHeight;
    procedure CMCtl3DChanged(var Message: TMessage); message CM_CTL3DCHANGED;
    procedure CMEnter(var Message: TCMEnter); message CM_ENTER;
    procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
    procedure CMGestureManagerChanged(var Message: TMessage); message CM_GESTUREMANAGERCHANGED;
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
    procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
    procedure WMContextMenu(var Message: TWMContextMenu); message WM_CONTEXTMENU;
    procedure WMSetFont(var Message: TWMSetFont); message WM_SETFONT;
  protected
    procedure Change; dynamic;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure CreateWindowHandle(const Params: TCreateParams); override;
    procedure CreateWnd; override;
    procedure DestroyWnd; override;
    procedure DoSetMaxLength(Value: Integer); virtual;
    procedure DoSetTextHint(const Value: string); virtual;
    function GetSelLength: Integer; virtual;
    function GetSelStart: Integer; virtual;
    function GetSelText: string; virtual;
    procedure SetAlignment(Value: TAlignment);
    procedure SetAutoSize(Value: Boolean); override;
    procedure SetSelLength(Value: Integer); virtual;
    procedure SetSelStart(Value: Integer); virtual;
{$IF DEFINED(CLR)}
    procedure SendGetSel(var SelStart, SelEnd: Integer);
{$IFEND}
    property AutoSelect: Boolean read FAutoSelect write FAutoSelect default True;
    property AutoSize: Boolean read FAutoSize write SetAutoSize default True;
    property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;
    property CharCase: TEditCharCase read FCharCase write SetCharCase default ecNormal;
    property HideSelection: Boolean read FHideSelection write SetHideSelection default True;
    property MaxLength: Integer read FMaxLength write SetMaxLength default 0;
    property OEMConvert: Boolean read FOEMConvert write SetOEMConvert default False;
    property NumbersOnly: Boolean read FNumbersOnly write SetNumbersOnly default False;
    property PasswordChar: Char read FPasswordChar write SetPasswordChar default #0;
    property ParentColor default False;
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  public
    constructor Create(AOwner: TComponent); override;
    procedure Clear; virtual;
    procedure ClearSelection;
    procedure CopyToClipboard;
    procedure CutToClipboard;
    procedure DefaultHandler(var Message); override;
    function GetControlsAlignment: TAlignment; override;
    procedure PasteFromClipboard;
    procedure Undo;
    procedure ClearUndo;
    procedure SetSelText(const Value: string);
    procedure SelectAll;
{$IF NOT DEFINED(CLR)}
    function GetSelTextBuf(Buffer: PChar; BufSize: Integer): Integer; virtual;
    procedure SetSelTextBuf(Buffer: PChar);
{$IFEND}
    property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
    property CanUndo: Boolean read GetCanUndo;
    property Modified: Boolean read GetModified write SetModified;
    property ReadOnly: Boolean read FReadOnly write SetReadOnly default False;
    property SelLength: Integer read GetSelLength write SetSelLength;
    property SelStart: Integer read GetSelStart write SetSelStart;
    property SelText: string read GetSelText write SetSelText;
    property Text;
    property TextHint: string read FTextHint write SetTextHint;
  published
    property TabStop default True;
  end;

эта неполная куча кода относится к "типу" TEdit
хотел еще накидать, да форум сказал, что больше 15000 строк в одно собщение вводить нельзя

@mss · 30.11.2015, 22:48

Сообщение от Евгик

я блокироку поставил на ввод с запятой

Тогда накой ты упоминаешь про переменные типа Real, если ты позволяешь усеру вводить исключительно целочисленные значения ?

Или таки есть разумное объяснение тому что тобой планируется преобразование введенных значений в данные именно типа Real ?

@Евгик · 30.11.2015, 22:54 **[ТС]**

Жека загрузил ты меня)
Объясни как обывателю обычному а не гуру программирования:
Как в числовой переменной показать в условии, что она пустая?
Вариант с кнопкой не совсем подходит, потому что я не могу выделить отдельным условием: если поле эдит пусто, то заблокировать. Мне нужно показать условие в связке:
Например:
Тип переменной integer имеюют 3 поля эдита.
Первый ноль, второй пусто, третий единицу.
Условие нужно показывать в виде 3-ох эдитов.
Если первый = ноль и второй= пусто и третий=1 то.... Всё норм, вот только пусто не могу показать.
Ноль и единица проходят, потому что числа, а если показываю пусто в виде '', то тут нужно в string перевести вторую переменную. а так нельзя!

Добавлено через 1 минуту
да есть, потому что в конце они получают дробное значение!

Добавлено через 1 минуту
Цитата Сообщение от Евгик Посмотреть сообщение
я блокироку поставил на ввод с запятой
Тогда накой ты упоминаешь про переменные типа Real, если ты позволяешь усеру вводить исключительно целочисленные значения ?

Или таки есть разумное объяснение тому что тобой планируется преобразование введенных значений в данные именно типа Real ?
Да есть, потому что в конце они получают дробное значение!

@mss · 30.11.2015, 23:06

Сообщение от Евгик

в конце они получают дробное значение

Кто "они", в каком "конце" ?!

А в эту переменную-то откуда свалилось значение, прежде чем

Сообщение от Евгик

тут нужно в string перевести вторую переменную

?

Добавлено через 6 минут

Сообщение от Евгик

Если первый = ноль и второй= пусто и третий=1 то

Delphi
1
if TryStrToFloat(Edit1.Text, v1) and (Edit2.Text = '') and TryStrToFloat(Edit3.Text, v3) then

Ну и нафих здесь вторая переменная, если Edit2 подлежит проверке только на пустоту ?

@Евгик · 01.12.2015, 00:11 **[ТС]**

Цитата Сообщение от Евгик Посмотреть сообщение
в конце они получают дробное значение
Кто "они", в каком "конце" ?!

Они это изначальные переменные типа реал, которым присвоены вышеупомянутые эдиты
Я делаю программу, которая делит дроби. Ввожу исходные данные и получаю результат!

тут нужно в string перевести вторую переменную - согласен, при первом условии поможет, но когда в эту переменную придётся число ввести, во втром условии, то возникнет проблема перевода в числовой вид:
Пример программы, второе условие проблемное стаёт:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
b:real;
begin
a:=edit1.text;
b:=strtofloat(edit2.text);
begin
if (a='') and (b>0) then
edit1.Visible:=false;
end;
else
if strtofloat(a=1.5) and (b>0) then
edit1.Visible:=false;
end;
end;
end.

Поскольку дроби есть без целых чисел,то некоторые поля в определённых примерах остаются пустыми.

Добавлено через 3 минуты
Это не моя программа - это я на быструю руку показываю где будет проблема, если стринг изначально присвою первому эдиту!

Добавлено через 1 минуту
Вот здесь станет проблема:

Delphi
1
if strtofloat(a=1.5) and (b>0) then

[Error] Unit1.pas(40): Incompatible types: 'String' and 'Extended'

Добавлено через 7 минут

Ну и нафих здесь вторая переменная, если Edit2 подлежит проверке только на пустоту ?

Да потому что если после компиляции я оставлю пустым поле и нажму посчитать, то будет ошибка, что не заполнено поле!
как я его могу отключить(условие составить) если оно пустое в условии будет? Помню ты про метод отключения
кнопки говорил!

Добавлено через 12 минут
Вот нашел твой текст:
Так все ведь много проще - достаточно запретить реакцию кнопки на нажатие, выставив его св-ву Enabled значение False, если содержимое того или иного Edit'а некорректно)

И сделать это удобнее всего в обработчиках событий OnChange и OnExit тех самых Edit'ов, содержимое которых напрямую влияет на возможность проведения тех или иных расчетов по нажатию кнопки.

Можешь более подробно на примере какого-то из эдитов написать код, как заблокировать поле, если оно пустое?
А то мой вариант, который я придумал, не подходит.

Добавлено через 26 минут
Спасибо тебе mss , понял как сделать! Хоть и пожурил малехо меня, но ты самый толковый ответ дал с отключением кнопки! Благодарю!
А теоретически можно переменной с числовым выражением не переводя её в символьный тип, присвоить значение пусто, как на примере символьного типа '' ?

Добавлено через 7 минут

@mss · 01.12.2015, 08:29

Сообщение от Евгик

можно переменной с числовым выражением не переводя её в символьный тип, присвоить значение пусто

Нельзя.
Значение "Пусто" можно присвоить только переменной типа Variant или OleVariant

@AHBAR · 01.12.2015, 08:57

Сообщение от Евгик

мне как раз нужно чтоб он имел различные варианты, в том числе и был пустым!

вам нужно сделать условие: если edit.text пустой, то переменной real присвоить какое-то число, ноль например или вообще выполнить какое-нибудь другое действие.
Ну не может число (переменная real) быть пустотой, никак, никогда, нигде и никак. ах да "никак" я уже говорил.

Delphi
1
2
3
if edit1.text = '' then BEGIN
// код 
END;

@qwertehok · 01.12.2015, 09:00

Не по теме:

AHBAR, даже не старайтесь, он не понимает
по прежнему в string пытается запихнуть 1.5 и спрашивает почему у него ошибка. это пустота верхнего отдела позвоночника

DenNik · 01.12.2015, 10:20

Не по теме:

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

это пустота верхнего отдела позвоночника

что подтверждается этой строкой.

Сообщение от Евгик

if strtofloat(a=1.5)

ему похер, что существуют определенные правила и синтаксис языка,
он просто не имеет о них понятия, ибо не читал ни одной страницы учебника.
мало того, он не хочет вникать, что самое страшное.
ребята, забейте. пусть онанирует в одиночестве

@droider · 01.12.2015, 10:23

Не по теме:

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

ему похер, что существуют определенные правила и синтаксис языка

Это называется "словесная диарея" на три страницы от ТС

@Евгик · 01.12.2015, 17:14 **[ТС]**

qwertehok, ты не выслушав до конца вчера, сразу начал стеб устраивать(в отличии от mss, AHBAR и ещё некоторых ребят, за что им спасибо), поэтому мне твоя позиция в данном контексте, увы неинтересна. Тем более уже разобрался.
А если ты пытаешься показать свои знания, то с равными поспорь, а я только вникаю!

Добавлено через 4 минуты
DenNik, ты тоже из общего текста выдёргиваешь часть фраз и на показ выставляешь, что не красит!
Но хоть, некоторые вещи правильно показал, за что благодарен. Подучу мат. часть, а потом пообщаемся кто в одиночестве и т.д)

Добавлено через 2 минуты
Droider, тебе тоже спс за помощь!

@unifikator · 01.12.2015, 20:19

Исходный код:

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
unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
a:real;
begin
if edit1.text='' then edit2.Visible:=false
else
begin
a:=strtofloat(edit1.text);
if a=0 then edit2.Visible:=false;
end;
end;
end.

Прилагаю проект на Delphi.

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Евгик 0 / 0 / 0 Регистрация: 30.11.2015 Сообщений: 33

	Компонент Edit числового типа 30.11.2015, 20:03. Показов 9353. Ответов 57 Метки нет (Все метки) Ребята подскажите, кто сталкивался с таким вопросом: Для числового компонента Edit типа Integer, в Делфи7 нужно прописать условие, в котором нужно показать: Если Edit пустой, то за этим последуют определённые инструкции. Для символьного понятно: Edit1.text:='' А вот как быть с числовым? Сразу скажу, что перевод в строку:IntToStr(Edit1.text):='', не вариант, потому что в условиях фигурируют только числовые компоненты Edit,если переведу в строку, то будет конфликт числовых со строковым. 0

@Евгик 0 / 0 / 0 Регистрация: 30.11.2015 Сообщений: 33
	30.11.2015, 22:22 [ТС]
	Вариант с кнопкой не совсем подходит, потому что я не могу выделить отдельным условием: если поле эдит пусто, то заблокировать. Мне нужно показать условие в связке: Например: Тип переменной integer имеюют 3 поля эдита. Первый ноль, второй пусто, третий единицу. Условие нужно показывать в виде 3-ох эдитов. Если первый = ноль и второй= пусто и третий=1 то.... Всё норм, вот только пусто не могу показать. Ноль и единица проходят, потому что числа, а если показываю пусто в виде '', то тут нужно в string перевести вторую переменную. а так нельзя! 0

@Евгик 0 / 0 / 0 Регистрация: 30.11.2015 Сообщений: 33
	30.11.2015, 22:28 [ТС]
	mss Форумчанин 2036 / 1951 / 184 Регистрация: 24.12.2010 Сообщений: 11,706 Сегодня, 21:10 Компонент Edit числового типа [В закладки] [Плавающее окно] #37 (permalink) Цитата Сообщение от Евгик Посмотреть сообщение От перестановки значений ,сумма не меняется Ты с дуба рухнул ?) Какая еще к лешему "сумма" ? Где тут суммирование ? Это шутка, не бери близко сердцу! Добавлено через 2 минуты Цитата Сообщение от Евгик Посмотреть сообщение if Edit1.Text<>'' then - а это для символьной переменной типа string То есть если в поле Edit1 юзел влупил "12345.67" (заведомо не пустое значение), то это он ввел символьные (а не числовые) данные - это следует из твоего же утверждения) нет почему. Эдиты изначально имеют же тип integer.Значит уже числа вв'л. И я блокироку поставил на ввод с запятой, только числа или пусто, чтоб осталось! 0

@Евгик 0 / 0 / 0 Регистрация: 30.11.2015 Сообщений: 33
	30.11.2015, 22:33 [ТС]
	Я всего лишь спрашиваю у профессионалов своего дела! 0

@mss
	30.11.2015, 22:39
	Не по теме: А тут не нужно быть профессионалом - тут следует просто вызубрить Паскаль как Отче Наш. 0

@Евгик 0 / 0 / 0 Регистрация: 30.11.2015 Сообщений: 33
	30.11.2015, 22:54 [ТС]
	Жека загрузил ты меня) Объясни как обывателю обычному а не гуру программирования: Как в числовой переменной показать в условии, что она пустая? Вариант с кнопкой не совсем подходит, потому что я не могу выделить отдельным условием: если поле эдит пусто, то заблокировать. Мне нужно показать условие в связке: Например: Тип переменной integer имеюют 3 поля эдита. Первый ноль, второй пусто, третий единицу. Условие нужно показывать в виде 3-ох эдитов. Если первый = ноль и второй= пусто и третий=1 то.... Всё норм, вот только пусто не могу показать. Ноль и единица проходят, потому что числа, а если показываю пусто в виде '', то тут нужно в string перевести вторую переменную. а так нельзя! Добавлено через 1 минуту да есть, потому что в конце они получают дробное значение! Добавлено через 1 минуту Цитата Сообщение от Евгик Посмотреть сообщение я блокироку поставил на ввод с запятой Тогда накой ты упоминаешь про переменные типа Real, если ты позволяешь усеру вводить исключительно целочисленные значения ? Или таки есть разумное объяснение тому что тобой планируется преобразование введенных значений в данные именно типа Real ? Да есть, потому что в конце они получают дробное значение! 0

@qwertehok
	01.12.2015, 09:00
	Не по теме: AHBAR, даже не старайтесь, он не понимает по прежнему в string пытается запихнуть 1.5 и спрашивает почему у него ошибка. это пустота верхнего отдела позвоночника 0

@Евгик 0 / 0 / 0 Регистрация: 30.11.2015 Сообщений: 33
	01.12.2015, 17:14 [ТС]
	qwertehok, ты не выслушав до конца вчера, сразу начал стеб устраивать(в отличии от mss, AHBAR и ещё некоторых ребят, за что им спасибо), поэтому мне твоя позиция в данном контексте, увы неинтересна. Тем более уже разобрался. А если ты пытаешься показать свои знания, то с равными поспорь, а я только вникаю! Добавлено через 4 минуты DenNik, ты тоже из общего текста выдёргиваешь часть фраз и на показ выставляешь, что не красит! Но хоть, некоторые вещи правильно показал, за что благодарен. Подучу мат. часть, а потом пообщаемся кто в одиночестве и т.д) Добавлено через 2 минуты Droider, тебе тоже спс за помощь! 0