[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: Пользуемся тегами!

[Bars1992]

событие onKeyPress

PHP код:

if not (key in ['0',..,'9']) then
begin
showmessage('');
key:=#0;
end; 


[TOJluK]

Чуток подправлю:

Код:

key in ['0'..'9']

[Страдалецъ]

Внесу тоже свою лепту в общее творчество. Т.к. вопрос стоял о запрете ввода цифирь, то так мне кажется будет несколько правильнее:

Код:

if key in ['0'..'9'] then 
begin 
showmessage('Цифры - это бяка!'); 
key:=#0; 
end;  

[AleD]

есть одна грабля - копипастом можно вставить что угодно так что и это надо учесть

[nblF-nblF*]

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

есть одна грабля - копипастом можно вставить что угодно так что и это надо учесть

Неее...Меня эта грабля не волнует... Лучше подскажите пожалуйста куда именно нужно вставлять эту защиту???? а то у меня че-то не получается...