String

Delphi

06/10/2009

Colegas..

Tenho essa string: \\Laptop\D:\Sistema\Fotos\063.jpg

Como faço para retirar somente esse : dessa string?

Pois uso um sistema que salva o path das fotos no banco de dados, mas quando mamdo ler essas fotos me da um caminho inexistente por causa desse :


Grato:
Jose Luiz


Jose Luiz

Jose Luiz

Curtidas 0

Respostas

Adilsond

Adilsond

06/10/2009

utilize a função ´Delete´ juntamente o a ´Pos´
procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
begin
  S := ´\\Laptop\D:\Sistema\Fotos\063.jpg´;
  Delete(S,Pos(´:´,S),1);
  ShowMessage(S);
end;



GOSTEI 0
Steve_narancic

Steve_narancic

06/10/2009

vc tambem pode utilzar a função stringreplace, que serve para substituir uma string por outra, ou seja, substitui os : por ´´


procedure TForm1.Button1Click(Sender: TObject); 
var 
  S: String; 
begin 
  S :=´\\Laptop\D:\Sistema\Fotos\063.jpg´; 
  s:= stringreplace(s, ´:´,´´,[rfreplaceall]);
  ShowMessage(S); 
end;



GOSTEI 0
Marco Salles

Marco Salles

06/10/2009

Ou use a função Nativa StringReplace do Delphi a partir do Delph7

C := ´\\Laptop\D:\Sistema\Fotos\063.jpg´;
 C:=stringReplace(C,´:´,´´,[rfReplaceAll, rfIgnoreCase]);
 Showmessage(s+13+C);



GOSTEI 0
Jose Luiz

Jose Luiz

06/10/2009

Muito obrigado, deu certo...



Jose Luiz


GOSTEI 0
POSTAR