String!!! Urgencia, urgentissima

Question

Como fa�o pra pegar s� esse peda�o (C:Arquivos de programasBorlandDelphi6ProjectsSicadDADOS) dessa string (C:Arquivos de programasBorlandDelphi6ProjectsSicadDADOSESTADOS.db), � que eu pre...

Lucas Silva · Answer

[code:1:164262593f]procedure TForm1.Button1Click(Sender: TObject);var caminho: String;begin   caminho := �C:Arquivos de programasBorlandDelphi6ProjectsSicadDADOSESTADOS.db�;   delete(caminho,pos(�ESTADOS.db�,caminho),11);   ShowMessage(caminho);end;[/code:1:164262593f]Falow,Lucas!...

Derodrigo · Answer

[quote:7e90e57e84=�DeRodrigo�]� 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:TesteDados�, entendeu?[/quote:7e90e57e84]...

Wolverine · Answer

: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

Wolverine · Answer

: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

Wolverine · Answer

: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;

Wolverine · Answer

: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;

F�rum String!!! Urgencia, urgentissima #204620