Caminho do diretorio em....

Delphi

13/03/2003

Boa noite a todos!!!!

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

Kandrus

Curtidas 0

Respostas

Carnette

Carnette

13/03/2003

Boa noite a todos!!!! 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!!!!



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
Kandrus

Kandrus

13/03/2003

Vou gravar em um arquivo .ini


GOSTEI 0
Carnette

Carnette

13/03/2003

Vou gravar em um arquivo .ini

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
Eniorm

Eniorm

13/03/2003

[quote:5cfab453e8=´Kandrus´]Vou gravar em um arquivo .ini

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
Kandrus

Kandrus

13/03/2003

Obrigado pela a ajuda!!!!


GOSTEI 0
POSTAR