Copy + Pos no delphi

15/01/2013

4

Tenho no banco um nome de patch com o arquivo junto, estou querendo remover o nome do arquivo deixando apenas o patch.

Fiz alguns exemplo mais não obtive resultado esperado, agradeço a ajuda

procedure TForm1.Button2Click(Sender: TObject);
var
nomearquivo : String;
copianome : String;
begin
nomearquivo := '\\probarsr\Producao\ICA\SEGUROS\SAIDAS\arquivo.818';
if (pos('SAIDAS', UpperCase(nomearquivo)) > 0) then
begin
copianome := Copy(nomearquivo,Pos('SAIDAS', UpperCase(nomearquivo)),Length(nomearquivo));
ShowMessage(copianome);
end;
Responder

Posts

15/01/2013

Itamar Souza

Conseguir resolver!!
Responder

15/01/2013

Marcio

legal, poderia usar uma função pronta do delphi...

retorno := ExtractFilePath('path\arquivo.ext');

falow!
Responder

16/01/2013

Douglas

Itamar,

Eu recomendo esta função.

Melhor do que ficar com um bloco grande.
Responder