Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Relacionando erro ao Select Directory


cadeira13
 Compartilhar

Posts Recomendados

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

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

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!

Link para o comentário
Compartilhar em outros sites

é 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

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

nao use a variável dir

use

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

 

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

 

 

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.

Link para o comentário
Compartilhar em outros sites

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!

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.