Relacionando erro ao Select Directory

[cadeira13 2]

Gente como fasso pra relacionar o erro no Button1 >

 

showmessage (" pasta incorreta')

 

Ao meu SelectDirectory? Tipo se a passoa não tiver selecionado a pasta correta la no Select Directory ai da esse erro quando a pessoa for aperta o Button1

[DragonBoss 9]

Já lhe disse umas 1564984+E48 vezes para estudar sobre "if then else"...

 

de qualquer forma, somente faça a verificaçao do caminho:

 

if PastCorreta1.text = 'PastCorreta' then

ShowMessage('Parabéns, pasta correta, você merece um sucrilhos.')

else

ShowMessage('Oooops, pasta errada, você não merece um sucrilhos.')

end;

 

Onde PastCorreta1 é o nome do seu edit e PastaCorreta é o caminho que ela deveria ser.

 

flw

[cadeira13 2]

Então cara ai é ki ta eu não to usando edit to usando>

 

procedure TForm1.FormCreate(Sender: TObject);

 

 

var

 

DirSelected: string;

 

begin

if SelectDirectory('Selecionar pasta do The Duel', 'Desktop\', DirSelected) then;

begin

if FileExists(DirSelected+'\theduel.exe') then

showmessage ('Pasta Selecionada Corretamente!')

else

showmessage ('Erro! Pasta Errada!');

end;

end;

 

 

só que quéro que esse erro > showmessage ('Erro! Pasta Errada!'); de tambem si a pessoa aperta o Button1 sem ter selecionado a pasta certa antes no SelectDirectory

 

Obs: eu fiz qui nem no Plus hacker que antes de abrir o programa aparece um caixa pra pessoa selecioar a pasta do the duel!

[DragonBoss 9]

Só troque a parte do PastCorreta1.text para DirSelected, use um pouco a cabeça e você entenderá.

[cadeira13 2]

eu ja fiz isso mais da erro >

 

[Error] Unit1.pas(193): Undeclared identifier: 'DirSelected'

[DragonBoss 9]

é um erro sintático básico.

Você tem que colocar a variável ou como global, ou por o code no mesmo botão da variável.

 

Por favor, não venha me perguntar o que é variável global, se não souber isso, largue do seu projeto e vá aprender a programar conhecendo o delphi antes de querer fazer algo. Há varios tutoriais ae que ajudam em lógica e a conhecer a IDE do delphi.

 

flw

[cadeira13 2]

eu sei oq é variavel global lol

[DragonBoss 9]

Parabéns =]

 

e agora, poderia dizer se funcionou pra eu fechar o tópico ? ;B

[cadeira13 2]

não consegui :preocupado::triste::chorando:

 

eu declarei como variavel global olha

 

private

{ Private declarations }

public

{ Public declarations }

DirSelected : String;

end;

 

mais ta dando erro

[Owner 8]

Ai não é variavel global. é depois de Form1: TForm1;

Coloque assim:

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

• Entre
• ou
• Cadastre-se

[cadeira13 2]

aé mesmo vlw mim confundi rsrs vo ver aki!

[edoO~' 1]

nao use a variável dir

use

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

• Entre
• ou
• Cadastre-se

 

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

• Entre
• ou
• Cadastre-se

 

 

bom..

isso nao vai adiantar de nada..

precisa salvar a pasta

estude

 

variável: isok

e estude inifiles

 

pra poder salvar a pasta!

 

como eu disse

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

• Entre
• ou
• Cadastre-se

[Lacy 6]

Filho, faz o seguinte , adiciona esse code no button, e pare de ser namb,

 

Adicione as users:

FileCtrl

 

var

chosenDirectory : string;

begin

if SelectDirectory('Selecione a Pasta do THE DUEL', 'Meu Computador', chosenDirectory) then

if fileexists(chosendirectory+'\theduel.exe') then

begin

sedit1.text := chosendirectory;

ShowMessage('Pasta selecionada com Sucesso seu noob!');

end

else

ShowMessage('Largue de ser burro selecione a pasta do THE DUEL ');

end;

 

 

você não sabe muito de delphi, estude , vocês querem tudo na mão aff!