Copy + Pos no delphi
15/01/2013
0
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;
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;
Itamar Souza
Curtir tópico
+ 0
Responder
Posts
15/01/2013
Marcio
legal, poderia usar uma função pronta do delphi...
retorno := ExtractFilePath('path\arquivo.ext');
falow!
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.
Eu recomendo esta função.
Melhor do que ficar com um bloco grande.
Responder
Clique aqui para fazer login e interagir na Comunidade :)