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
[-]
function StrToStr(Str: string): string;
var
Bitmap: TBitmap;
i,j: integer;
begin
Result:= '';
Bitmap:= TBitmap.Create;
try
Bitmap.Canvas.Font.Name:= 'Arial Black';
Bitmap.Canvas.Font.Size:= 16;
Bitmap.Width:= Bitmap.Canvas.TextWidth(Str);
Bitmap.Height:= Bitmap.Canvas.TextHeight(Str);
Bitmap.Canvas.TextOut(0,0,Str);
for j:= 0 to Bitmap.Height - 1 do
begin
for i:= 0 to Bitmap.Width - 1 do
if Bitmap.Canvas.Pixels[i,j] = $FFFFFF then
Result:= Result + '_'
else
Result:= Result + 'X';
Result:= Result + #13#10;
end;
finally
Bitmap.Free;
end;
end;
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 ???