package arquivodecodigos;

import java.text.NumberFormat;

public class Estudos{
  public static void main(String[] args){
    // vamos double a ser formatado
    double valor = 1234567.89;
    
    // vamos obter uma instância de acordo com as configurações
    // regionais
    NumberFormat nf = NumberFormat.getInstance();
    // e agora usamos o método format() para formatar
    String numFormatado = nf.format(valor);
    
    // exibimos o valor original
    System.out.println("Sem formatação: " + valor);
    // com formatação
    System.out.println("Com formatação: " + numFormatado); 
  }
}

procedure listarArquivosDir(diretorio: string; lista: TStrings);
var
  search_rec: TSearchRec;
begin
  if FindFirst(diretorio + '*.*', faAnyFile, search_rec) = 0 then
    begin
      repeat
        if search_rec.Attr <> faDirectory then
          lista.Add(search_rec.Name);
      until FindNext(search_rec) <> 0;

      FindClose(search_rec);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  listarArquivosDir('c:\', ListBox1.Items);
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos definir a cor de fundo para a primeira coluna
  DBGrid1.Columns[0].Color := Graphics.clYellow;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos obter a cor de fundo da primeira coluna
  ShowMessage('A cor de fundo da coluna é: ' +
    ColorToString(DBGrid1.Columns[0].Color));
end;

$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';
  }
?>

Imports System

Module Program
  Sub Main(args As String())
    ' declara uma variável do tipo String
    Dim frase As String

    ' inicializa a string usando New
    frase = New String("Você já conhece o site Arquivo de Códigos?")
    ' vamos mostrar o resultado
    Console.WriteLine("A frase é: " & frase)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module