Declarar função no delphi?

[israelbbbb 0]

pessoal me ajudem a declarar uma funçao no delphi 7, preciso muito a funçao é essa

 

{01}function CriarMapa(am:TStringList):Boolean;

{02}var

{03} l1,l2:Integer; tot:Boolean;

{04}begin

{05}for l1 := 0 to am.Count-1 do

{06} begin

{07} try for l2 := 0 to Length(am[l1]) do

{08} begin

{09} //l1 = Linha - l2 = Coluna.

{10} if am[l1][l2] = '1' then

{11} begin

{12} with TShape.Create(Form1) do

{13} begin

{14} Name := 'shp_block'+inttostr(l1)+'_'+inttostr(l2);

{15} Parent := Form1;

{16} Height := 25;

{17} Width := 25;

{18} Top := l1*25;

{19} Left := l2*25;

{20} Show;

{21} Brush.Color := clBlack;

{22} end;

{23} end else if am[l1][l2] = '2' then begin

{24} with TShape.Create(Form1) do

{25} begin

{26} Name := 'shp_blkill'+inttostr(l1)+'_'+inttostr(l2);

{27} Parent := Form1;

{28} Height := 25;

{29} Width := 25;

{30} Top := l1*25;

{31} Left := l2*25;

{32} Show;

{33} Brush.Color := clRed;

{34} end;

{35} end;

{39} end;

{36} tot := true;

{37} except

{38} tot := false

{40} end;

{41} end;

{42} result := tot;

{43}end;

[BlackLook 6]

Faça o seguinte:

 

É muito simples, primeiramente retire esses números: {01}, {02}, etc.

Depois que retirar eles, cole a função na unit do seu projeto, logo abaixo de:

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

• Entre
• ou
• Cadastre-se

 

Aí você cola logo abaixo disso e pronto! Foi declarada a função. Boa sorte com seus estudos!

[Lf' 7]

Caro membro, a área Delphi é para postagem de tutoriais e derivados.

Dúvidas devem ser postadas na área de dúvidas.. leia as regras da área antes de criar um tópico!

 

Movido.

[cazuk100 1]

ei maluco aqui é a area de dúvida

[gaabscps 8]

Sim, aqui é a área de duvidas, pois ele moveu

[israelbbbb 0]

É muito simples, primeiramente retire esses números: {01}, {02}, etc.

Depois que retirar eles, cole a função na unit do seu projeto, logo abaixo de:

[/color][/i]

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

• Entre
• ou
• Cadastre-se

 

Aí você cola logo abaixo disso e pronto! Foi declarada a função. Boa sorte com seus estudos!

 

valeu mano

 

olha, eu consegui declarar a função, mais ai deu um erro aqui, que nao consigo fazer com que funcione...

 

meu trabalho esta assim:

 

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

• Entre
• ou
• Cadastre-se

e esta dando os seguintes erros

 

[Warning] Unit1.pas(87): Variable 'tot' might not have been initialized

[Error] Unit1.pas(94): Identifier expected but '*' found

[Error] Unit1.pas(94): Statement expected, but expression of type 'String' found

[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

 

se alguem me ajudar ai agradeço....

[gaabscps 8]

Claro, pois aquilo não é o número 1, mas um l...

Top := 11 * 25;

Left := 12 * 25;

 

Quem fez esse comando talvez queria evitar que as pessoas apenas copiassem e colasse, por isso fez essa armadilha

[israelbbbb 0]

nao e isso nao, porque quando eu compilo ele mostra a seguinte parte como dando erro

 

procedure TForm1.FormCreate(Sender: TObject);

var map:TStringList;

begin

map := TStringList.Create;

map.***('1111111111111');

map.***('1000000000001');

map.***('1000000000021');

map.***('1000000000221');

map.***('1111111111111');

CriarMapa(map);

imgs := 1;

gravf := 1;

sgame := true;

end;

[gaabscps 8]

Poderia mandar a imagem do erro?

Fica bem difícil assim...

 

 

Ah sim, agora que reparei que o l1 e l2 eram variáveis...

l1,l2:Integer

[israelbbbb 0]

[Error] Unit1.pas(94): Identifier expected but '*' found

[Error] Unit1.pas(94): Statement expected, but expression of type 'String' found

[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

[gaabscps 8]

Ah sim, o seu comando realmente tem os ***?

 

Pois saiba que tem os *** por conta do falho sistema de segurança do fórum, que acaba barrando algumas palavras, como ad~d.

Para isso, altere os *** por ad~d (sem o ~).

[israelbbbb 0]

ow vei, consegui aq... é que eu copiei isso de um cara aq no forum, e os *** eram A.DD(sem ponto), ai ficou como ***... valeu ai

 

porque o forum fica barrando algumas palavras?

[[PHX] 0]

ow vei, consegui aq... é que eu copiei isso de um cara aq no forum, e os *** eram A.DD(sem ponto), ai ficou como ***... valeu ai

 

porque o forum fica barrando algumas palavras?

Por causa que acharam XSS no fórum que requer essa palavra, tipo: form, atob, eval, add e etc.

[gaabscps 8]

Sendo que atualizando o sistema do fórum poderia sim corrigir tais falhas em XSS

[israelbbbb 0]

isso quase custou o jogo que tou fazendo kkkkk