reemplazar dos comillas simples

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