Ver Mensaje Individual
  #3  
Antiguo 18-09-2013
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.108
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Tampoco a mí me queda muy claro el asunto, pero, suponiendo que se trate de reemplazar esto: '' por esto otro: ' Entonces una función tal que esta pueda servir:

Código Delphi [-]
function ReplaceDoubleSingleQuotesBySingleQuotes( const str : string ) : string;
const
  SINGLE_QUOTE = '''';
  DOUBLE_SINGLE_QUOTE = SINGLE_QUOTE + SINGLE_QUOTE;
begin
  result := System.SysUtils.StringReplace
  (
    str, DOUBLE_SINGLE_QUOTE, SINGLE_QUOTE, [ rfReplaceAll ]
  );
end;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
begin
  s := 'This string '''' have double single '''' quotes inside';

  ShowMessage( s ); // This string '' have double single '' quotes inside

  s := ReplaceDoubleSingleQuotesBySingleQuotes( s );

  ShowMessage( s ); // This string ' have double single ' quotes inside
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita