Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 57, средняя оценка - 4.91
Norbert96
2 / 2 / 0
Регистрация: 20.12.2012
Сообщений: 102
#1

Undeclared identifier: DecimalSeparator - Delphi

02.02.2013, 14:27. Просмотров 9076. Ответов 16
Метки нет (Все метки)

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

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
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
// Поле Текст
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 // Клавиша Enter
  then Edit2.SetFocus; // Переместить курсор в поле Edit2
end;
 
// Поле Целое число
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0'..'9', #8: ; // цифры и Backspace
    #13: Edit3.SetFocus; // Enter - Переместить курсор в поле Edit3
    '-': if Length(Edit2.Text) <> 0 then Key:= #0;
    else Key:= #0; // Остальные символы не отображать
  end;
 
end;
 
// Поле Дробное число
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0'..'9', #8: ; // цифры и Backspace
    ',','.'  :
      begin
        // DicimalSeparator - гробальная переменная
        // в которой находится символ "десятичный разделитель"
        Key:= DecimalSeparator;
        if pos(DecimalSeparator,Edit3.Text) <> 0
        then Key:= #0;
      end;
      '-': if Length(Edit3.Text) <> 0 then Key:= #0;
      else Key:= #0; // Остальные символы не отображать
  end;
end;
 
end.
Вот ошибки:
[dcc32 Error] Unit1.pas(61): E2003 Undeclared identifier: 'DecimalSeparator'
[dcc32 Error] Unit1.pas(62): E2250 There is no overloaded version of 'Pos' that can be called with these arguments
[dcc32 Warning] Unit1.pas(62): W1058 Implicit string cast with potential data loss from 'TCaption' to 'ShortString'
[dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

Как я понял, он не понимает переменную 'DecimalSeparator'.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.02.2013, 14:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Undeclared identifier: DecimalSeparator (Delphi):

Undeclared Identifier - Delphi
Здравствуйте! Есть модуль для работы с комплексными числами Mathematix.Complex. Необходимо реализовать сложение этих комплексных чисел (в...

Undeclared identifier: 'x' - Delphi
procedure TForm1.btn1Click(Sender: TObject); var x,y: real; begin x:=StrToFloat(Edt1.Text); end; begin if x&lt;1 then...

Undeclared identifier - Delphi
можете мне помочь, что я делаю не так. недавно я установил дельфи на семерку. ошибок было море, но вроде как заработало. вот в чем проблемы...

Undeclared identifier: 'self' - Delphi
При компиляции ругается на Self. procedure opendialogEx(TextDialog:String); var opendialog:TOpenDialog; begin ...

ошибка Undeclared identifier - Delphi
В процедуру DrawGraph необходимо передавать ту или иную функцию. Ругается в 21 строке. Как правильно описать? unit Unit14; ...

Undeclared identifier: 'CanClose' - Delphi
Прикрутил MessageDlg ругается на CanClose, хотя OncloseQuerty инициированна. Что не так? :) По нажатию Yes форма должна закрыватся, по...

16
Fenix_dragon
117 / 117 / 2
Регистрация: 29.01.2013
Сообщений: 437
30.07.2015, 10:49 #16
Cyborg Drone, да наверное. ответ писался ж в 13-м году.
0
NEFFboy
11 / 11 / 3
Регистрация: 16.02.2015
Сообщений: 106
30.07.2015, 12:56 #17
Cyborg Drone, просто при автовведении кода в редакторе DateSeparator выскакивает выше чем DecimalSeparator, поэтому не мудрено опечататься)
0
30.07.2015, 12:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.07.2015, 12:56
Привет! Вот еще темы с ответами:

Undeclared identifier: 'StrToIntRange' - Delphi
Написал код с использованием функции StrToIntRange. Компилятор её не узнаёт. Модуль SysUtils подключён. В чём возможна ошибка? ...

Ошибка: Undeclared identifier - Delphi
не понимаю в чем ошибка, ссылки настроены , почему то выдает Undeclared identifier:'PoleViborOtveta2',...

Undeclared identifier: 'LogFontData' - Delphi
Теперь мы разработаем простое приложение, которое будет способно выводить текст под различным углом через определенный интервал времени....

Ошибка: Undeclared identifier - Delphi
program Project1; {$APPTYPE CONSOLE} uses SysUtils,windows; type letters = set of 'А'..'Я'; const c: letters = ;


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru