Erro no modificador de Script

[rapha57 1]

Galera eu segui um tuto do surfistinha de como fazer um modificador de script!!1

fiz tudo sertin mas quando aperto f9 da nisso :

 

 

qm poder me ajudar fala ae =D

[Ryokusei 21]

1- Não se põe var abaixo de begin;

2 - Alguns erros de sintaxe podem estar provocando mais erros no código.

[~TnT Claw 0]

Igual o Ryokusei falou nao se poe VAR abaixo de begin.

O Edit, ta indeclarado, tenta criar um novo edit ou mude o nome.(creio eu)

Rapaz pior que nao to conseguindo enxergar algum erro =S

Mano problema eh No Edit eu copie iaki o codigo todo pra ve o que tava dando erro

Nao encontrei nada. =S

Compara o seu com o meu ae =S

[rapha57 1]

Eu fiz igual o seu e deu esse erro agora:

[Surfistinha£ 20]

Coloqe mas uim end; no final

[~TnT Claw 0]

Aki no final Falta ali dps do ICONERROR falta fecha o parenteses

Coloque ")" depois do ICONERROR Ali.

e FALTA O BEGIN

Coloca o begin abaixo do DirFile,Scriptfile : string;

[Surfistinha£ 20]

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Surf.dll';

ScriptFile:='WC\Surf.dll';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi Copiado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

end;

[rapha57 1]

mas sur esse seu eh de dll!!

eu n quero de dll!!

 

Dirfile eu ponho o hack ou oq vai ser substituido?

[Surfistinha£ 20]

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Update2.MRS';

ScriptFile:='Auto quest\Update2.MRS'';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi Copiado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

end;

 

 

Dirfile eu ponho o hack ou oq vai ser substituido?

 

Sim e o local dele

[Niik 3]

embaixo de String coloque um begin