Fórum Caminho do diretorio em.... #145364
13/03/2003
0
Como faço para colocar o caminho de um determinado diretorio em uma varialvel.
Tipo
Quero q o usuasio possa buscar um determinado tipo de arquivo (abra uma janela de dialogo) só q ao invés do arquivo abrir quero q o sistema grave o camiho do arquivo (C:\teste\teste.db) em uma variavel
Desde já agradeço a todos!!!!
Kandrus
Curtir tópico
+ 0Posts
13/03/2003
Carnette
Sim...Mas, voce quer gravar onde ??...Num arquivo INI, no REGISTER do windows num banco de dados criado por voce que tenha um campo para receber esta string ?
Gostei + 0
13/03/2003
Kandrus
Gostei + 0
13/03/2003
Carnette
Após o método EXECUTE do DIalog vc pode colocar o seguinte:
if Dialog.Execute then GRAVAINI(Dialog.FIlename); //chama a função
Procedure TForm1.GravaIni(Texto : String : Boolean);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(´Teste.Ini´);//se vc não colocar o caminho o delphi salva no diretorio onde está o executavel
Try
ArqIni.WriteString(´Dados´, ´Caminho´,Texto);
Finally
ArqIni.Free;
end;
end;
aqui é a procedure pega o caminho
Procedure TForm1.LeIni( Texto : String);
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create(´Teste.Ini´);
Try
variavelcaminho := ArqIni.ReadString(´Dados´, ´Caminho´, Texto );
Finally
ArqIni.Free;
end;
end;
Gostei + 0
13/03/2003
Eniorm
Após o método EXECUTE do DIalog vc pode colocar o seguinte:
if Dialog.Execute then GRAVAINI(Dialog.FIlename); //chama a função
Procedure TForm1.GravaIni(Texto : String : Boolean);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(´Teste.Ini´);//se vc não colocar o caminho o delphi salva no diretorio onde está o executavel
Try
ArqIni.WriteString(´Dados´, ´Caminho´,Texto);
Finally
ArqIni.Free;
end;
end;
aqui é a procedure pega o caminho
Procedure TForm1.LeIni( Texto : String);
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create(´Teste.Ini´);
Try
variavelcaminho := ArqIni.ReadString(´Dados´, ´Caminho´, Texto );
Finally
ArqIni.Free;
end;
end;[/quote:5cfab453e8]
Usem a função ExtractFilePath() para pegar apenas o
caminho do arquivo, se precisarem.
Ex: c:\teste\teste.db
Ficaria:
var path : string; path := ExtractFilePath(´c:\teste\teste.db´);
Gostei + 0
14/03/2003
Kandrus
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)