[delphi7] proibindo palavras

[matheusguerra 3]

esse tuto mostra como proibir palavras em uma edit

 

1º add os codigos

 

1º Parte

na form add uma edit(na paleta standartd)

apaque a capition da edit

de um duplo clik nela, apague o begin e add os codigos:

const

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

'palavrão',

'antonio nunes' );

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.

end;

 

mudando as palavras:

no codigo:

 

Proibido: array [ 1..2 Aqui vc coloca o nº de palavras ] of string = (

'palavrão', Aqui vc coloca as palavras

'antonio nunes' );

 

FIM..... :D ^^

 

o download para quem ñ consequi fazer

 

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

 

eo scan

 

[sENHA]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/sENHA]

pronto :D ^^

[wendel108 1]

Muito bom mexmo so q quando vc coloka as palavras da erro !

[matheusguerra 3]

como assim erro?

se estiver falando das novas palavras vc tem que apaquar a virgula e colocar o );

ex:

'palavrão',

'antonio nunes' );

 

ou se for add mais de 2 palavras vc tem que mudar o numero

ex:

duas palavras = [ 1..2]

tres palavras =[ 1..3]

5 palavras = [ 1..5]

:D ^^

[Surfistinha£ 20]

Muito bom continue assim

Mas ao e so palavras pde ser uma frase

Anteciosamente , Surfistinha

Moderador da Web Cheats

[bidoow 0]

ae fico legal, eu consegui pelo menos ! :P

 

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

'palavrão', 'viado', 'babaca', 'fdp',

'pau nu cu');