ограничение символов

[Grimnir69]

Как в Label ограничить количество введенных символов номером 1. Введение любых символов (Русских, Английских, Символов и т.д....)
При этом, спозиционировав отображение введенного символа строго по центру. Размер окна 37х37.

[Mad_Cat]

а как вы вообще В Label символы вводите?

IF length(Label1.caption)>=1 then {не вводить}
else {вводить}

[Grimnir69]

С клавиатуры!
И еще, гляньте на мой код. Что в нем не так?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
IF length(Label1.caption)>=1 then {не вводить}
else {вводить}
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

ну, насколько я вижу по коду, у Вас ввод осуществляется не в TLabel, в TEdit (Edit1, если быть точным).
Вот его и проверяйте на длину.

procedure TForm1.Edit1Change(Sender: TObject);
begin
  IF length(Edit1.Text)>1 then Edit1.Text := Copy(Edit1.Text, 1, 1);
  Label1.Caption := Edit1.Text
end;

[Grimnir69]

Огромное Вам СПАСИБО!!!

[Grimnir69]

Выдает сообщение об ошибке в Label Label1.Caption := Edit1.Text

[kventin_zhuk]

; после этого поставьте)

[Mad_Cat]

; после этого поставьте)

перед end можно не ставить так то
Может у вас просто Label1 нет на форме
так и есть судя по

 TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);

[Grimnir69]

А что Вы посоветуете подправить в моем коде? Я еще новичок!!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
IF length(Label1.caption)>=1 then {не вводить}
else {вводить}
end;

end.

Как ограничить количество введенных символов номером 1. Введение любых символов (Русских, Английских, Символов и т.д....)
При этом, спозиционировав отображение введенного символа строго по центру. Размер окна 37х37.

[Mad_Cat]

А в каком месте это ваш то код?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

это вставила IDE
ну а это

IF length(Label1.caption)>=1 then {не вводить}
else {вводить}

мое

вообще я бы Label на форму все таки кинул бы