reemplazar dos comillas simples

[ingabraham]

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:

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

[[ElDioni]]

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]

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;