String!!! Urgencia, urgentissima

Delphi

06/01/2004

Como faço pra pegar só esse pedaço (C:\Arquivos de programas\Borland\Delphi6\Projects\Sicad\DADOS) dessa string (C:\Arquivos de programas\Borland\Delphi6\Projects\Sicad\DADOS\ESTADOS.db), é que eu preciso pegar isso de um edit pra escrever no arquivo ini da minha aplicação, alguém pode me ajudar? Por favor


Derodrigo

Derodrigo

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

06/01/2004

procedure TForm1.Button1Click(Sender: TObject);
var caminho: String;
begin
   caminho := ´C:\Arquivos de programas\Borland\Delphi6\Projects\Sicad\DADOS\ESTADOS.db´;
   delete(caminho,pos(´ESTADOS.db´,caminho),11);
   ShowMessage(caminho);
end;


Falow,
Lucas!


GOSTEI 0
Derodrigo

Derodrigo

06/01/2004

É quase isso Lucas, é que eu preciso só do path, só que nunca vai ser igual o arquivo.extensão, eu preciso de uma função que pegue apenas da pasta dados pro inicio, tipo ´C:\Teste\Dados´, entendeu?



GOSTEI 0
Wolverine

Wolverine

06/01/2004

:lol:
procedure TForm1.FormCreate(Sender: TObject);
var caminho,x: String;
begin
caminho := ´C:\Arquivos de programas\Borland\Delphi6\Projects\Sicad\DADOS\ESTADOS.db´;

x:= copy (caminho,1,62);

ShowMessage(x);


end;

onde 1 é o C e 62 é a ultima barra de DADOS

ou

procedure TForm1.FormCreate(Sender: TObject);
var caminho,x: String;
begin
caminho := ´C:\Arquivos de programas\Borland\Delphi6\Projects\Sicad\DADOS\´;

x:= copy (caminho,1,Length(caminho));

ShowMessage(x);


end;

onde 1 é C e Length conta o tamalho do string, no caso 62

o seu aplicativo ficaria + doido se vc ultilizar tb as dicas do Emerson.EN

Qquer coisa estou ai


GOSTEI 0
Wolverine

Wolverine

06/01/2004

:D :o :lol: :P :twisted:

faça isso amigo:

coloque no form um OpenDialog, um Button

no OnClick do button escreva:

procedure TForm1.Button1Click(Sender: TObject);
begin

if OpenDialog1.Execute then
abrirpro(OpenDialog1.FileName);

end;

agora cria o procedure abrirpro:

va em Type(na unit, claro!!) em abaixo de procedure Button1Click(Sender: TObject);
coloque procedure abrirpro(const AFileName: string);
coloque o mouse sobre este precedure e digite Ctrl+Shift+c ou va para o final do codigo, antes do [b:508d60d33e]end.[/b:508d60d33e] e digite isso

procedure TForm1.abrirpro(const AFileName: string);
var
caminho,x:string;
begin
caminho := ExtractFilePath(AFileName);
x:= copy (caminho,1,Length(caminho));
ShowMessage(x);
end;


Qquer coisa estou ai


GOSTEI 0
Wolverine

Wolverine

06/01/2004

:D :) :( :o :lol: 8) :? :shock: :x :P :oops: :cry: :wink: :evil: :!: :!: :!: :?: :?: :idea: :idea:

faça isso amigo (outra vez, cara chato :lol: ):

coloque no form um OpenDialog, um Button

no OnClick do button escreva:

procedure TForm1.Button1Click(Sender: TObject);
var
caminho,x:string;
begin
if OpenDialog1.Execute then
caminho := ExtractFilePath(OpenDialog1.FileName);
x:= copy (caminho,1,Length(caminho));
ShowMessage(x);


end;


GOSTEI 0
Wolverine

Wolverine

06/01/2004

:oops:
coloque no form um OpenDialog, um Button

no OnClick do button escreva:

procedure TForm1.Button1Click(Sender: TObject);
var
caminho:string;
begin

if OpenDialog1.Execute then
caminho := ExtractFilePath(OpenDialog1.FileName);

ShowMessage(caminho);

end;


GOSTEI 0
POSTAR