Codigo sin utilidad

[[seoane]]

Cuando estaba buscando información sobre Python me encontré con esta pagina "Useless Python", y la idea en que se basa la pagina me parece interesante o por lo menos entretenida. Se basa en poner trozos de código pequeños, simples y que no tienen porque tener una utilidad concreta, se trata de jugar con el lenguaje y sus posibilidades.

Se me ocurrió hacer algo parecido por aquí, no se muy bien como plantearlo, pero consistiría en colocar en este mismo hilo, por ejemplo, trocitos de código que tengamos por ahí, no tienen que tener una utilidad concreta, pero deben ser simples y estar comentados.

Para dar ejemplo empiezo yo *:

Código Delphi [-]
// Esta funcion dibuja un texto usando letras, jeje
function StrToStr(Str: string): string;
var
  Bitmap: TBitmap;
  i,j: integer;
begin
  Result:= '';
  // Creamos un Bitmap
  Bitmap:= TBitmap.Create;
  try
    // Ajustamos el tipo y tamaño de la fuente
    Bitmap.Canvas.Font.Name:= 'Arial Black';
    Bitmap.Canvas.Font.Size:= 16;
    // Ajustamos el tamaño del Bitmap al tamaño del texto
    Bitmap.Width:= Bitmap.Canvas.TextWidth(Str);
    Bitmap.Height:= Bitmap.Canvas.TextHeight(Str);
    // Escribimos el texto en el bitmap
    Bitmap.Canvas.TextOut(0,0,Str);
    // Vamos leyendo pixel a pixel del bitmap
    for j:= 0 to Bitmap.Height - 1 do
    begin
      for i:= 0 to Bitmap.Width - 1 do
        // Por cada pixel blanco añadimos la letra _ al resultado
        if Bitmap.Canvas.Pixels[i,j] = $FFFFFF then
          Result:= Result + '_'
        else
          // y por cada pixel que no es blanco añadimos una X
          Result:= Result + 'X';
      // Al final de cada fila de pixeles añadimo al resultado un salto de linea
      Result:= Result + #13#10;
    end;
  finally
    // Eliminamos el bitmap, ya no lo necesitamos
    Bitmap.Free;
  end;
end;

// Por ejemplo
ShowMessage(StrToStr('ClubDelphi') );

* Nota: Algunos recordareis esta función de otro hilo, pero dispongo de poco código que no este ya publicado . Pero buscare por ahí, seguro que encuentro algo mas.

Alguno se anima ???