Mostrar comilla simple dentro de un string

[Black_Ocean]

Bueno... aunque sea muy básico esto, por si alguna persona no sabe cómo mostrar dentro de un texto una comilla simple (ya que este caracter no lo puedes escribir diréctamente en el código de delphi para mostrarlo dentro de una cadena de texto) aquí dejo algunas formas de hacerlo. Muy últil en consultas SQL ya que usa comilla simple

Espero que les sea de utilidad =)

Ejemplos:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  //Ejemplo 1
  ShowMessage('''' + 'Esta cadena muestra comilla simple' + '''');
  //Ejemplo 2
  ShowMessage(Char(39) + 'Esta cadena muestra comilla simple' + Char(39));
  //Ejemplo 3
  ShowMessage(#39 + 'Esta cadena muestra comilla simple' + #39);
  //Ejemplo 4
  ShowMessage(Char($27) + 'Esta cadena muestra comilla simple' + Char($27));
end;

Ojalá les sirva a los que vi en otros post preguntando cómo agregar la comilla simple en una sentencia SQL en el código de delphi

Saludos

[[egostar]]

Hola Black_Ocean

Gracias por el aporte, también puedes hacer uso de la función QuotedStr de esta manera.

Código Delphi [-]
ShowMessage(QuotedStr('Esta cadena muestra comilla simple'));

Salud OS.

[Black_Ocean]

Gracias, esa no me la sabía

Saludos