[DELPHi7] Bloquear palavras em um edit.

[bidoow 0]

Antes de mais nada, procurei na quick e nao tinha nada do tipo.

 

Bloquear palavras em um edit.

 

Componentes: Edit (aba Standard)

 

Clique 2 vezes sobre o Edit, apague tudo e coloque:

 

procedure TForm1.Edit1Change(Sender: TObject);

const

Proibido: array [ 1..3 ] of string = (

'nome',

'ladrão',

'longen');

var

iCount: integer;

sTempText: string;

begin

sTempText := Edit1.Text;

for iCount := Low(Proibido) to High(Proibido) do

begin

while Pos (Lowercase(Proibido[iCount]),Lowercase(sTempText) ) <> 0 do

begin

Delete(sTempText,Pos(Lowercase(Proibido[iCount]),Lowercase(sTempText)),Length(Proibido[iCount]));

end;

Edit1.Text := sTempText;

end;

end;

 

end.

 

Explicação: Temos 3 palavras proibidas para se digitar, são elas, 'nome', 'ladrão' e 'longen'. Quando voce digita elas, elas disaparecem. Agora para colocar outras palavras vamos fazer o seguinte:

 

Proibido: array [ 1..3 ] of string = (

'nome',

'ladrão',

'longen');

var

 

array [ 1..3 ] of string , 1...3 , 3 porque são 3 palavras proibidas, quer adicionar 5, coloque array [ 1..5 ] of string , e adicione as palavras . exemplo:

 

Proibido: array [ 1..5 ] of string = (

'nome',

'ladrão',

'longen',

'bidoow',

'agradeça');

var

 

é isso ai pessoal, abraços!

[קђ๏єภเא 14]

Tem como fazer so aparecer aquelas * no edit?

E tem como bloqear isso num web browser?

[Adeuk 1]

Tem como fazer so aparecer aquelas * no edit?

E tem como bloqear isso num web browser?

 

Pra aparecer * no edit mude a propriedade PasswordChar pra *.

 

@Tópic

 

Bom =D

[matheusguerra 3]

seria bom, se não fosse uma copia do meu

 

[delphi7] proibindo palavras

[bidoow 0]

ha, dsculpa matheus, não ta na quick dai nem vi.

 

vo pedi pro surf fexar akew

[´iago 1]

Tópico trancado , preste mais atenção .