[nblF-nblF*]

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

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    LabeledEdit1: TLabeledEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x:array of string;
n,i:byte;
k:string;
begin
i:=0;
k:=labelededit1.text;
n:=memo1.Lines.count;
setlength(x,n);
while i<=n-1 do
begin
x[i]:=memo1.Lines[i];
if x[i]=k then label1.Caption:='находится в'+inttostr(i+1)+' строке';
i:=i+1;
end;
setlength(x,0);
end;
end.

Admin: Пользуемся тегами!