¡¡¡Muchas Felicidades[size=4][color=Red]
Seoane!!!
[size=2][color=Black]
Por los mensajes, por el código y por la calidad de ambos.
Por cierto, la misma función, pero para bitmaps (B/N), no funciona mal...
Código Delphi
[-]
function BitmapToStr(ABitmap: TBitmap): string;
var
i,j: integer;
begin
Result:= '';
for j:= 0 to ABitmap.Height - 1 do
begin
for i:= 0 to ABitmap.Width - 1 do
if ABitmap.Canvas.Pixels[i,j] = $FFFFFF then
Result:= Result + '_'
else
Result:= Result + 'X';
Result:= Result + #13#10;
end;
end;
Código Delphi
[-]
____________________________________________________________________________
____________________________________________________________________________
______________________________________________________X_____________________
_____________________XXX_______________X____________XXXXX___________________
_____________________XXXX____________XXX___________XXXXXX___________________
___________________XXXXXX____________XXXXX_______XXX__XXX___________________
___________________XXX__XXX__________XX_XX_______XXX__XXX___________________
___________________XXX__XXX_________X___XX_______XX___XXX___________________
___________________XXX__XXX_________X__XXX_______XX___X_____________________
_____________________X______________XXX__________XX_XX______________________
_____________________XXX____________XXXX________XXXXXX______________________
______________________XXXXXX________XXXXXX______XXXXXX______________________
______________________XXXXXX________X___XX____XXX__XXX______________________
______________________XXX__XXX______X___XX____XXX__X________________________
______________________XXX__XXX______X___XX____XX___X________________________
______________________XXX___XX____XXX___XX____XX_XXX________________________
________________________X___XX____XXX___XX___XXXXXXXXXXXX___________________
_____________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX___________________
__________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX______XX_____________
______________________XXXXXXXXXXXXXXXXXXXXXXXXXXX____________XXXXX__________
_____________XXX_______________________________________________XXXX_________
____________XXXX_______________________________________________XXXX_________
__________XXXXX_______________________________________XXX___XXXXXXX_________
__________XXX_________XXXXX_________XXXXXXXXX_______XXXXXX__XXXXXX__________
__________XXX______XXXXXXXX______XXXXXXXXXXXXXXXXXXXXXXXX____XXX____________
__________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX_____________________
____________XXXXXXX_____XXXXXXXXXXXXX_____XXXXXXXXXX________________________
________________XX_______XXXXXXXXXXX_________________________XX_____________
________________XXX_________________________________________XXX_____________
________________XXXXXXXXX___________________________________X_______________
________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX____________XXX_______________
________________XXX_____XXXXXXXXXXXXX_____________________XXX_______________
________________XXXXX_____________________________________XXX_______________
________________XXXXX_____________________________________XXX_______________
________________XXXXXXXXXXXX______________________________XXX_______________
________________XXXXXXXXXXXXXXXXXXXXXXX___________________XXX_______________
________________XXXXX_____________________________________XXX_______________
________________XXXXX_____________________________________XXX_______________
_______________XXXXXXX______________________________________XXX_____________
_______________XXXXXXXXXXXXXXX________________XXXXXXXXX_____XXXX____________
__________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX_______XXX____________
____________XXX____________XXXXXXXXXXXXXXXXXXX_______________XXX____________
____________XXX______________________________________________XXX____________
____________XXX______________________________________________XXX____________
____________XXXXXXX___________________________________XXXXXX_XXX____________
____________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX________________
__________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX_____________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________