using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      // uma frase
      string frase = "Gosto muito de C# pois C# é bom demais";

      // substitui "C#" por "VB.NET"
      string frase2 = frase.Replace("C#", "VB.NET");

      // mostra o resultado
      Console.WriteLine("Frase original: " + frase);
      Console.WriteLine("Com substituições: " + frase2);

      Console.WriteLine("\n\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}

$nome = 'Osmar J. Silva';  
$cidade = "Goiânia";

$nome = "Osmar J. Silva";
echo "Olá, $nome\n";
echo 'Olá, $nome';

Olá, Osmar J. Silva
Olá, $nome

Símbolo        Significado         
------------------------------------------------------
  \"         Aspas duplas 
  \n         Nova linha (Newline) 
  \r         Retorno de linha (Carriege return)  
  \t         Tab (tabulação)
  \\         Barra invertida (Backslash)
  \$         Símbolo de Dollar
  \{         Chave esquerda
  \}         Chave direita 
  \[         Colchete esquerdo
  \]         Colchete direito  
\0 à \777    Caractere ASCII representado por um valor 
             octal
\x0 à \xFF   Caractere ASCII representado por um valor
             hexadecimal

$caminho = 'C:\\WINDOWS\\SYSTEM';
$frase = 'Shes\'s here!';

if($a == $b){ 
  echo "As duas strings são iguais." 
}

<?
  $nome = 'Osmar J. Silva';  
  
  if(is_string($nome)){
    echo 'A variável $nome é do tipo string';
  }
?>

procedure TForm1.Button1Click(Sender: TObject);
var
  diretorio_atual: string;
begin
  // vamos obter o diretório atual e atribuí-lo
  // na variável diretorio_atual
  GetDir(0, diretorio_atual);

  // vamos exibir o resultado
  ShowMessage('O drive e diretório atual são: ' +
    diretorio_atual);
end;

using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      // cria e inicializa um array de strings
      string[] cidades = {"Goiânia", "São Paulo",
        "Rio de Janeiro", "Curitiba"};

      // obtém a quantidade de elementos no array
      int quant = cidades.Length;
      Console.WriteLine("Este array possui {0} elementos.", quant);

      Console.WriteLine("\n\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}

LRESULT SendMessage(          
  HWND hWnd,
  UINT Msg,
  WPARAM wParam,
  LPARAM lParam
);

// Protótipo
{$EXTERNALSYM SendMessage}
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; 
  lParam: LPARAM): LRESULT; stdcall;

// Implementação
function SendMessage; external user32 name 'SendMessageW';

procedure TForm1.Button1Click(Sender: TObject);
var
  buffer: String;
  tamanho: Integer;
begin
  // vamos obter a quantidade de caracteres na caixa de texto
  tamanho := SendMessage(Edit1.Handle, WM_GETTEXTLENGTH, 0, 0);

  // vamos ajustar o tamanho do buffer
  SetLength(buffer, tamanho);

  // vamos usar a mensagem WM_GETTEXT para obter o conteúdo
  // da caixa de texto
  SendMessage(Edit1.Handle, WM_GETTEXT, tamanho + 1, lParam(@buffer[1]));

  // vamos exibir o resultado
  ShowMessage('O conteúdo do edit é: ' + buffer);
end;