String

Question

Colegas..Tenho essa string: LaptopD:SistemaFotos063.jpgComo 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 ...

Adilsond · Answer

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;

Steve_narancic · Answer

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;

Marco Salles · Answer

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

Jose Luiz · Answer

Muito obrigado, deu certo...Jose Luiz...

F�rum String #375658