谁有这样的源代码？请看：）

只求源码，没其他想法，
我想delphi一定能办到……

ylk_pop(贪食蛇)　：你要也可以拿去了---请留下源码

正面的在—————— http://www.csdn.net/expert/topic/164/164246.shtm

星期一再来看，希望大家能帮我解决，谢了，bye

writeln('　　　　.,,,::::t:MMMMMMMMMBVt:+..            ');
writeln('　　 ,IVXVYIBttt+::+IVVMMMMMMRR:'            ');
writeln('　　 ,YYVYItMYti+i++:X+Rt:tXWRMR,            ');
writeln('　　 .YRiIYRMViitVXRWRYMI++++itMM..            ');
writeln('　　　.Y+,.,X::,,,YMMMMMMMMRVItXMti            ');
writeln('　　　 :X+:,X:,. .,iiIRMWMMMBBRMMBY.            ');
writeln('　　　　tR+:I:i:+Y:IitYVYMMMMMMMMRi.            ');
writeln('　　　　.+RXt:,::.::XXIBMMMMMMMMM+:            ');
writeln('　　　　　,RRXitY+,.::RWMMMMMMMMt.            ');
writeln('　　　　　　VYI:::,..:tVMMMMMMBY+.            ');
writeln('　　　　　 .VBBW:::::,i.MMMMMBi:.            ');
writeln('　　　　　 .tWRRVi:::.X:VMMMMMMY.            ');
writeln('　　　　 ,+i+:,XYtt+:,i:,MMMBR:            ');
writeln('　　...VV..:..:.tt::++:+,RMYMV.            ');
writeln('　:M:::..:,.:,,,.+t+++Ytt.,+:            ');
writeln('tRt:,.:,.:,:.:+.,:++tit,            ');
writeln(':tXt:,:,:.:.,,+,:+YRY,            ');
writeln('　:++:::.,:.:.::+:iMi            ');
writeln('　 ,Ri:::,:::::::+Ii            ');
writeln('　 ,+:Xii:,,::I:tit,.            ');
writeln('　　 :BBt,:+::,::i+.            ');
writeln('　　 :BWXX::::::iX.            ');
writeln('　　 :BWVIi++t+:V+            ');
writeln('　　　WBXtItii+iWI.            ');
writeln('　　　:MWIYIti+iVRY,            ');
writeln('　　　 RBXVYItiiIYXWI,            ');
writeln('　　　 :MRWWVYttttIIXWt.            ');
writeln('　　　 .XMBRRXIti++itIXW,            ');
writeln('　　　　.BMBBRVIi+::+ttXX.            ');
writeln('　　　　 ,MMBRXYti:::+tIW:            ');
writeln('　　　　　tMMRWYti+++ittXV            ');
writeln('　　　　　 +MRVYti+++ittWI             ');
writeln('　　　　　.VMWVtiiiiiitIR,            ');
writeln('　　　　 .XBBWVttttttttXRv             ');
writeln('　　　 .,WBRBXVtttttttIWt            ');
writeln('　　　 :RWXWBXYtttttttYR:             ');
writeln('　　 .iRWVIiBWYIttttttYW,            ');
writeln('　　.tWVYti:WRVIttittIVV　　　.:,,             ');
writeln('　　tWVIi++:XRVIIttttIXY　 ..:YYtYi:tittV            ');
writeln('　 tXYti+++tWRVYttittYWIiIYYVItt:iXW+....            ');
writeln('　:WIt+++iXRBBVYItitIYXXYti+iIYt++:IMRi:.            ');
writeln('.:Xti+:+tRWt:BVYItitIYWVIIIYXXWXVXYt+i+IV            ');
writeln('.tYi+::IWI:::BVVItitIXBRVIt:::::::tIVXRiX            ');
writeln(':Viii++i:itIXBXVttitVW,　　　　　　　 tBI            ');
writeln('.XIiXIttIVRBRBIItttIRX　　　　　　　　 :V            ');
writeln('.,tXXWWWVi+. RXXItiYRV　　　　　　　　　.            ');
writeln('　　　　　　 ,BWYi+IRX            ');
writeln('　　　　　　　tBYiitWB,            ');
writeln('　　　　　　　.WVtiiIRI            ');
writeln('　　　　　　　 VWtiiiIB,            ');
writeln('　　　　　　　 ,BIiiiiWt            ');
writeln('　　　　　　　 .BViiiiYV            ');
writeln('　　　　　　　　XXtii+YV            ');
writeln('　　　　　　　　iRiii+YY            ');
writeln('　　　　　　　　:Btii+XI            ');
writeln('　　　　　　　　 Wtii+R:            ');
writeln('　　　　　　　　 XY+t+B.            ');
writeln('　　　　　　　　 YX+tYR.            ');
writeln('　　　　　　　　 tX+iWV            ');
writeln('　　　　　　　　 iXi+RI            ');
writeln('　　　　　　　　 tYiIXX            ');
writeln('　　　　　　　　,XtiIXRt.            ');
writeln('　　　　　　　　:BIVYRWIV            ');
writeln('　　　　　　　　+RYXXWiYR.            ');
writeln('　　　　　　　　iWIVYtXMV            ');
writeln('　　　　　　　　tBYItRtM+            ');
writeln('　　　　　　　　XBWttX:B:            ');
writeln('　　　　　　　YYBXXYR:,R:            ');
writeln('　　　　　　 tIYYYIY:　i:            ');

把图片分成 XX*XX 的小格，依深浅度的不同分别设定为某个字符————我的想法
具体做法你自己想吧，我也不会，我刚学Delphi

//源代码给你们：
procedure TForm1.FormCreate(Sender: TObject);
var strlines:string;
    i,j:integer;
begin
  //分辨率800*600及以上
  form1.WindowState:= wsMaximized;
  with richedit1 do begin
    color:=clblack;
    font.color:=clwhite;
    lines.clear;
    align:=alclient;
  end;
  with RichEdit1 do begin
    font.Name:='宋体';
    font.size:=8;
    wordwrap:=false;
    scrollbars:=ssboth;
  end;
  for i:=0 to 150 do//视图片高度而设
  BEGIN
    strLines:='';
    for j:=0 to 64 do//视图片宽度而设
    begin
      if (GetRValue(Image1.Canvas.Pixels[j,i])<>255) then//当然你得在image1中准备一张图片，可惜这里仅仅能放黑白线条图片，不知有没有人能转换16色或更高色的图片？期待~~~
      begin
        strLines:=strLines+'毛';
      end
      else
      begin
        strLines:=strLines+'三';
      end;
    end;
    RichEdit1.Lines.Add(strLines);
  end;
end;

-------------------------------------------------------------
--------------------mmmmmm-----------------------------------
------------------mm--------mm-------------------------------
-----------------m------------mm-----------------------------
----------------m--------------mm----------------------------
--------------------------------mm---------------------------
---------------m-----------------m---------------------------
-------------------------m--------m--------------------------
-----------------------------------m-------------------------
--------------m----------------------mm----------------------
--------------m--------------------m-------------------------
--------------m--------------------m-------------------------
--------------m--------------------m-------------------------
--------------m--------------------m-------------------------
--------------mm---------------------------------------------
---------------m-m-------------------------------------------
-------------mm--m----------------m--------------------------
-------------m-m-m------m---------m--------------------------
---------------mm--------------mmmm--------------------------
--------------m-m---------------m----------------------------
---------------m---------------------------------------------
-----------------m-------------------------------------------
---------------------------mmm-------------------------------
------------------mm--------m--------------------------------
------------------m-m----------------------------------------
-------------------m--m--------m-----------------------------
-----------------m--m---m---m--------------------------------
----------------m----m-------m-------------------------------
----------------mm------m---m-mmm----------------------------
--------------mmmmm-------m--m---m---------------------------
-------------m-mmmmm----mmmmmmmmmm---------------------------
--------------m-----m--mmmmmmmm----m-------------------------
-------------m----m--m---mmmmmmm----m------------------------
------------m------m---------mmm----m------------------------
------------m-m---------------mm-----m-----------------------
-----------m-m------m---------mmm--m------------mm-----------
-----------m-m------m----m----mmmm-m--m-------mm--m----------
-----------mm-------mm----m---mmmm----m------m-m----m--------
-----------m--------m----m----mmmm--m--m------m-m------------
-----------m--------m---------mmmmm-m--m-----m----m----------
----------m------------------mmmmmm-m-----m-------mm---------
---------m-------m-m---------mmmmmm-m----m-----mmm-----------
--------m--------mm----------m-mmmm-m---m--------------------
--------mm-------m-m------------mmm-mmm------m---------------
---------mmm-----mm-m-----------mmm--m------m----------------
----------m-mmmmmm---m----------mmm--m------m----------------
-----------------m-m--m---------mmm--------m-----------------
---------m-----mmm--m---m-------mmm---m----------------------
---------m----m------m----m-----mm----m----------------------
---------m----m--m----mmm--------m----m-m--------------------
--------------m---mm------mmm----m---mm----------------------
--------m-----m----------mmmmmmm-mmmmm-----------------------
--------m-----m--m-mm----mm----mm--mmm-----------------------
--------------m---mmmmmmmmmmm--mm-mmm------------------------
---------m----m--mmmmmmmmmmmmmmmmmmmm------------------------
---------m----m-mmmmmmmmmmmmmmmmmmmmmm-----------------------
---------m------mmmmmmmmmmmmmmmmmmmmmmm----------------------
---------m------mmmmmmmmmmmmmmmmmmmmmmm----------------------
---------m------mmmmmmmmmmmmmmmmmmmmmmm----------------------
---------------mmmmmmmmmmmmmmmmmmmmmmmm----------------------
---------------mmmmmmmmmmmmmmmmmmmmmmmm----------------------
--------------mmmmmmmmmmmmmmmmmmmmmmmmm----------------------
----------m---mmmmmmmmmmmmmmmmmmmmmmmmm----------------------
----------m----mmmmmmmmmmmmmmmmmmmmmmmm----------------------
----------------mmmmmmmmmmmmmmmmmmmmmmmm---------------------
---------m-----mmmmmmmmmmmmmmmmmmmmmmmmm---------------------
---------m-----m-mmmmmmmmmmmmmmmmmmmmmmm---------------------
---------m-mm--m-mmmmmmmmmmmmmmmmmmmmmmm---------------------
---------m--m-mm-mmmmmmmmmmmmmmmmmmmmmmm---------------------
---------m----mmmmmmmmmmmmmmmmmmmmmmmmmm---------------------
----------mmm-m-mmmmmmmmmmmmmmmmmmmmmmmm---------------------
------------mm-mmmmmmmmmmmmmmmmmmmmmmmmm---------------------
-------------mmmmmmmmmmmmmmmmmmmmmmmmmmm---------------------
-------------mmmmmmmmmmmmmmmmmmmmmmmmmmmm--------------------
-------------mmmmmmmmmmmmmmmmmmmmmmmmmmmm--------------------
--------------mmmmmmmmmmmmmmmmmmmmmmmmmmm--------------------
---------------mmmmmmmmmmmmmmmmmmmmmmmmm---------------------
-----------------mmmmmmmmmmmm---mmmmmmm----------------------
-------------m-----mmmmmmmmmm-----mm-------------------------
---------------------mmmmmmmm-----m--------------------------
-----------------m---m---mmm------m--------------------------
--------------------m----m--------m--------------------------
-------------------m-----m--------m--------------------------
-------------------------m-------m---------------------------
---------------------------------m---------------------------
----------m--------m-------------m---------------------------
------------------------m------------------------------------
------------------------m-------m----------------------------
------------------m-----m-------m----------------------------
------------------------m-------m----------------------------
---------m-------m------m-------m----------------------------
---------m--------------m-------m----------------------------
---------m------m-------m-------m----------------------------
---------m------m-------m------------------------------------
---------m---------------------------------------------------
---------m-----m---------------------------------------------
---------m-----m---------------------------------------------
---------m-----m---------m-----------------------------------
----------mmmmmm---------m-----------------------------------
----------mmmm-m---------mm-----m----------------------------
---------mmmmmmm---------mmmmmmmm----------------------------
---------mmmmmmm---------mmmmmmmm----------------------------
---------mmmmmmm----------mmmmmmm----------------------------
---------mmmmmmm----------mmmmmmm----------------------------
---------mmmmmmm----------mmmmmmmm---------------------------
---------mmmmmmm----------mmmmmmmm---------------------------
---------mmmmmmm----------mmmmmmm----------------------------
--------m-m-mmmm-----------mmmmm--m-mm-----------------------
--------mmmmm-mm-----------------mmmmmm----------------------
----------m-mm--m---------------mm-m-m--mm-------------------
------------m-m-----------m------mmmm--m---m-----------------
--------m--m---m----------m-mm------------mm-----------------
--------m--m---m-m----------mmmmmmm----mmmmm-----------------
--------m---mmmm-----------------mmmmmmmmm-------------------
--------mm---------------------------------------------------
---------mmmmmmmmm-------------------------------------------

快来看，有人知道了！
http://www.csdn.net/expert/Topic/171/171748.shtm 就是不知道源码，哎~ ~保守！

看看我的，请多指教呀~~有更好的希望大家不要保守哟~~procedure TForm1.FormCreate(Sender: TObject);
var strlines:string;
    i,j:integer;
begin
  //分辨率800*600及以上
  form1.WindowState:= wsMaximized;
  image1.autosize:=true;
  with memo1 do begin
    lines.clear;
    align:=alclient;
    font.Name:='宋体';
    font.size:=5;
    scrollbars:=ssboth;
  end;
  {with Image1.Canvas do  begin
    with Font do begin
      Name:='华文彩云';
      Style:=[fsBold];
      Size:=18;
    end;
    TextOut(0,10,'颜鑫');
  end;}
  //请先在image1中加入bmp图片
  for i:=0 to image1.height do
  BEGIN
    strLines:='';
    for j:=1 to image1.width do
      //好像只支持bmp
      case GetRValue(Image1.Canvas.Pixels[j,i])+GetGValue(Image1.Canvas.Pixels[j,i])+GetBValue(Image1.Canvas.Pixels[j,i])of
        //十级图像灰度
        //希望能得到更理想的字符来表示图像的灰度
        000..075: strLines:=strLines+'M';
        076..150: strLines:=strLines+'B';
        151..225: strLines:=strLines+'A';
        226..300: strLines:=strLines+'@';
        301..375: strLines:=strLines+'9';
        376..450: strLines:=strLines+'3';
        451..525: strLines:=strLines+'+';
        526..600: strLines:=strLines+':';
        601..675: strLines:=strLines+',';
        676..765: strLines:=strLines+'.';
      end;
      //另一种方法，不知为何效果更差？希望你能解释解释。
      {case Image1.Canvas.Pixels[j,i] of
        $000000..$191919: strLines:=strLines+'M';   //000..025
        $1a1a1a..$323232: strLines:=strLines+'B';   //026..050
        $333333..$4b4b4b: strLines:=strLines+'A';   //051..075
        $4c4c4c..$646464: strLines:=strLines+'@';   //076..100
        $656565..$707070: strLines:=strLines+'9';   //101..125
        $717171..$969696: strLines:=strLines+'3';   //126..150
        $979797..$afafaf: strLines:=strLines+'+';   //151..175
        $b0b0b0..$c8c8c8: strLines:=strLines+':';   //176..200
        $c9c9c9..$e1e1e1: strLines:=strLines+',';   //201..225
        $e2e2e2..$ffffff: strLines:=strLines+'.';   //226..255
      end;}
    memo1.Lines.Add(strLines);
  end;
end;如果你在此基础上有更好的改进，请你贴出来大家看看~~谢谢！

wonderxin(颜鑫的忠实崇拜者★★★★★)　
以后结账之前，先通知我一声，我才上来半个月，分太少^^

调试易

谁有这样的源代码？请看：）

解决方案 »