Copy e Pos Delphi

Question

Ol�, estou precisando de uma ajuda.Tenho esse caminho C:UsersvinicDesktopAtoaWin32DebugTeste.exe em uma vari�vel string, queria saber como fa�o para copiar depois da ultima  no ca...

Raimundo Pereira · Answer

Porque n�o pega apenas o nome do exe?...

Raimundo Pereira · Answer

usesClipbrd,beginClipboard.AsText:=(ExtractFileName(Application.ExeName));ShowMessage(Clipboard.AsText);...

Vinicius · Answer

� que nesse mesmo caminho, eu tenho v�rios arquivos, e eu preciso pegar o nome de cada um, vou colocar dentro de uma la�o....

Roberto Wutke · Answer

Mas a ideia do amigo acima te ajuda... voc� tem que ir selecionando os arquivos que voc� quer, a� pra cada um que vc escolher vc faz os extract file name e salva nesse la�o seu...

Alberto · Answer

Var Dir, Arquivo, Meu_Caminho:String;Meu_Caminho := C:UsersvinicDesktopAtoaWin32DebugTeste.exe;Dir := ExtractFilePath( Meu_Caminho );Arquivo := ExtractFileName( Meu_Caminho );Resultado:Dir = C:UsersvinicDesktopAtoaWin32DebugArquivo = Teste.exe...

Vinicius · Answer

Obrigado pela ajuda pessoal!Consegui, colocando o caminho revertido e copiei at� o primeiro , depois reverti novamente para retornar o nome correto....

Marco Ant�nio · Answer

Kra, a solu��o do Beto n�o resolveu?Vc fez tudo isso ao inv�s de usar ExtractFilePath?Estranho....

Vinicius · Answer

ExtractFilePath n�o d� certo, pois, s�o v�rios arquivos e os caminhos mudam tbm......

Gutierry Pereira · Answer

Qual o problema do caminho mudar?
para cada caminho utilize o ExtractFilePath e ele ira retornar o nome do arquivo pra ti.
N�o entendi o problema com a fun��o.
Bom caso n�o queira utilizar ele um m�todo mais elegante seria jogar seu caminho em uma array, quebrando pela '/' , dessa forma basta capturar a ultima posi��o no array, ela sempre corresponder� ao nome do arquivo, e caso deseje pegar alguma outra prte do caminho basta percorrer o array.

Utilizar um stringList tambem funciona

var 
meuStringList : TStringList:
begin

meuStringList := TStringList.Create();
try
meuStringList .Text := StringReplace(caminho,'/',#13#10);

result := meuStringList [length(meuStringList)-1];
finally
freeandNil(meuStringList);
end;

Jonatas Alves · Answer

Ol�,Desculpe o atraso para responder.Para resolver este problema....� necess�rio fazer o seguinte:// In�cio do Exemplovar  pathFile, fileName: string ; begin pathFile  :=  C:UsersvinicDesktopAtoaWin32DebugTeste.exe pathFile  :=  StringReplace( pathFile, , , [rfReplaceAll, rfIgnoreCase]) ; fileName  :=  ExtractFileName( pathFile ) ; end ;na vari�vel fileName voc� vai obter Teste.exe ;// fim do exemplo...

Jonatas Alves · Answer

Ol�,Ficou bugada a outra resposta, mals aeee...Para resolver este problema....� necess�rio fazer o seguinte:// In�cio do Exemplona vari�vel fileName voc� vai obter Teste.exe ;// fim do exemplo...

F�rum Copy e Pos Delphi #572984