Código Delphi
[-]
_______XXXX______________XXXXXX________XXXXXX________XXXXXX____
______XXXXX_____________XXXXXXXX______XXXXXXXX______XXXXXXXX___
_____XXXXXX____________XXXXXXXXXX____XXXXXXXXXX____XXXXXXXXXX__
___XXXXXXXX____________XXXX__XXXX____XXXX__XXXX____XXXX__XXXX__
__XXXXXXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
__XXX_XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
__X___XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX____XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX____XXXXX___XXXX__XXXX____XXXX__XXXX____XXXX__XXXX__
______XXXXX____XXXXX___XXXXXXXXXX____XXXXXXXXXX____XXXXXXXXXX__
______XXXXX____XXXXX____XXXXXXXX______XXXXXXXX______XXXXXXXX___
______XXXXX____XXXXX_____XXXXXX________XXXXXX________XXXXXX____
Y sobre todo:
Código Delphi
[-]
____________________________________________________XXXXX____________________________
____________________________________________________XXXXX____________________________
____________________________________________________XXXXX____________________________
_____________________________________________________________________________________
___XXXX_XXXXX__XXXX_XXX____XXXXXXX_______XXXXXX_____XXXXX_____XXXXXXX______XXXXXXX___
__XXXXXXXXXXX__XXXXXXXX__XXXXXXXXXX_____XXXXXXXXX___XXXXX___XXXXXXXXXX____XXXXXXXXX__
_XXXXXXXXXXXX__XXXXXXX__XXXXXXXXXXXX___XXXXXXXXXX___XXXXX__XXXXXXXXXXXX__XXXXX__XXXX_
_XXXXX__XXXXX__XXXXXX___XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_______
_XXXXX__XXXXX__XXXXX__________XXXXXX__XXXXX_________XXXXX________XXXXXX__XXXXXXXXX___
_XXXXX__XXXXX__XXXXX______XXXXXXXXXX__XXXXX_________XXXXX____XXXXXXXXXX___XXXXXXXXX__
_XXXXX__XXXXX__XXXXX_____XXXXX_XXXXX__XXXXX__XXX____XXXXX___XXXXX_XXXXX_____XXXXXXXX_
_XXXXX__XXXXX__XXXXX____XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX________XXXXX_
__XXXXXXXXXXX__XXXXX____XXXXXXXXXXXX___XXXXXXXXXX___XXXXX__XXXXXXXXXXXX__XXXX__XXXXX_
__XXXXXXXXXXX__XXXXX_____XXXXXXXXXXX____XXXXXXXXX___XXXXX___XXXXXXXXXXX___XXXXXXXXX__
___XXXX_XXXXX__XXXXX______XXXX__XXXX_____XXXXXX_____XXXXX____XXXX__XXXX____XXXXXXX___
________XXXXX________________________________________________________________________
_XXXXXXXXXXXX________________________________________________________________________
_XXXXXXXXXXX_________________________________________________________________________
___XXXXXXX___________________________________________________________________________
Y como siempre digo, un poco de código
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;