Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   reemplazar dos comillas simples (https://www.clubdelphi.com/foros/showthread.php?t=84181)

ingabraham 18-09-2013 18:57:27

reemplazar dos comillas simples
 
Hola realizo un paso a paso a una variable
la cual se me condena mal en un algoritmo.

al final la variable aparece con dos comillas simples unidas

yo quiero o quitar o reemplazar estas dos comillas.

ej:

cambiar esta cadena

X:= 'CADENA '' ;

por esta

X:= 'CADENA ';

algo asi:
Cita:

Result:= StringReplace(Result, char(39)+ char(39), char(39)); //pero esto no me funciona

ElDioni 18-09-2013 19:05:01

Hola,

no entiendo muy bien que es lo que te está ocurriendo ni que quieres conseguir, tampoco se a que te refieres al decir que se te condena al hacer una paso a paso, ¿quieres decir que se bloquea la ejecución?, si es así, ¿en que línea se bloquea?, ¿da algún error?. Creo entender que la cadena va acumulando texto, ¿como lo haces?, ¿a través de un bucle?, ¿podrías subir un poco más de código?.

Saludos.

dec 18-09-2013 19:13:14

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;


La franja horaria es GMT +2. Ahora son las 23:26:37.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi