DELPHI Not enough actual parameters

[Alors On Danse 0]

CÓDIGO:

procedure TForm1.CheckBox1Click(Sender: TObject);

const

str='Engine.exe';

begin

if checkbox1.checked then

begin

Edit1.Text:=str;

begin

if not checkbox1.checked then

begin

Edit1.Text:=Delete('Edit1.Text=str');

end;

end;

end;

 

end;

 

end.

 

P.S. A área vermelha é a linha 268!

 

ERRO:

[Error] Unit1.pas(268): Not enough actual parameters

 

Alguém pode me ajudar a resolver este erro?

[sumonee 0]

Tente retirar as ' ' porqe isso faz com qe essa parte da linha vire um texto para algo :S

 

se e qe me entende !

[DragonBoss 9]

[Error] Unit1.pas(268): Not enough actual parameters

 

isso signifika ke a funçao ke vc ta usando nao ta completa, ou seja, ta faltando parametros.

 

nao entendi bem como vc quis usar ele 'delete', mas se for soh pra limpar o edit, vc pode por

 

edit1.text := ' '

 

ou

 

edit1.clear;

 

 

 

flw, abraçs

[sumonee 0]

nao DragonBoss, ele qer fazer essa funçao ai deletar arquivos e o diretorio desses arquivos vao estar no Edit1, sacaas?

[Alors On Danse 0]

Citação:

[Error] Unit1.pas(268): Not enough actual parameters

isso signifika ke a funçao ke vc ta usando nao ta completa, ou seja, ta faltando parametros.

 

nao entendi bem como vc quis usar ele 'delete', mas se for soh pra limpar o edit, vc pode por

 

Citação:

edit1.text := ' '

ou

 

Citação:

edit1.clear;

 

 

flw, abraçs

Funcionou, de novo! Hahahhahah, parabéns Dragon, vc é um ótimo programador!

[Owner 8]

Coloque assim:

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

• Entre
• ou
• Cadastre-se

Não sei o que você quer fazer mais tenta ai (:

Abrasz

[felipeanchieta 3]

Man, utilize a lógica:

 

Edit1.Text:=Delete('Edit1.Text=str');

 

Faça um pseudo-código antes de vir aqui perguntar coisas como essa. Exemplo:

 

TextoX.Limpar;

 

Veja o que o você fez:

 

TextoX.EditarTexto:=Deletar('TextoX.EditarTexto=str1);

 

Presta atenção aí cara!