如何用DELPHI实现以下内容 把文字转换为代码 如 你好 〇〇〇●〇〇●〇〇〇〇〇 〇〇〇●〇●〇〇〇〇〇〇 〇〇●〇〇●●●●●●〇 〇●●〇●〇〇〇〇〇●〇 ●〇●●〇〇〇●〇〇〇〇 〇〇●〇〇●〇●〇●〇〇 〇〇●〇〇●〇●〇●〇〇 〇〇●〇●〇〇●〇〇●〇 〇〇●●〇〇〇●〇〇●〇 〇〇●〇〇〇〇●〇〇〇〇 〇〇●〇〇●●●〇〇〇〇 〇〇●〇〇●●●●●〇〇 〇〇●〇〇〇〇〇〇●〇〇 ●●●●●〇〇〇●〇〇〇 〇●〇〇●〇〇●〇〇〇〇 〇●〇〇●〇〇●〇〇〇〇 〇●〇〇●●●●●●●〇 ●〇〇●〇〇〇●〇〇〇〇 ●●〇●〇〇〇●〇〇〇〇 〇〇●●〇〇〇●〇〇〇〇 〇●〇〇●〇〇●〇〇〇〇 ●〇〇〇〇〇●●〇〇〇〇 發表人 - ICEBS 於 2003/08/06 14:13:26

請問要轉成什麼樣的代碼？ --- --<-<-<@

我想用DELPHI做个程序！ 程序的目的就是把 汉字转化为 图形文字 转化后效果类似 〇〇〇●〇〇●〇〇〇〇〇 〇〇〇●〇●〇〇〇〇〇〇 〇〇●〇〇●●●●●●〇 〇●●〇●〇〇〇〇〇●〇 ●〇●●〇〇〇●〇〇〇〇 〇〇●〇〇●〇●〇●〇〇 〇〇●〇〇●〇●〇●〇〇 〇〇●〇●〇〇●〇〇●〇 〇〇●●〇〇〇●〇〇●〇 〇〇●〇〇〇〇●〇〇〇〇 〇〇●〇〇●●●〇〇〇〇 〇〇●〇〇●●●●●〇〇 〇〇●〇〇〇〇〇〇●〇〇 ●●●●●〇〇〇●〇〇〇 〇●〇〇●〇〇●〇〇〇〇 〇●〇〇●〇〇●〇〇〇〇 〇●〇〇●●●●●●●〇 ●〇〇●〇〇〇●〇〇〇〇 ●●〇●〇〇〇●〇〇〇〇 〇〇●●〇〇〇●〇〇〇〇 〇●〇〇●〇〇●〇〇〇〇 ●〇〇〇〇〇●●〇〇〇〇 我现在不明白它的原理，请哥哥姐姐赐教！

除了hagar 大哥以外，没人回答吗？ 55555555555555555

ICEBS您好:
  我想會想要答題的人就會答吧!您不必刻意引人注意的,也請您把不良標題改一下吧!也請不要同一問題發在不同性質討論區,發多了會讓人厭惡的!    您是本論壇的新手也請多多遵守本站的遊戲規則
http://delphi.ktop.com.tw/policy.asp        以下是填入文字轉成JPG格式的方法,跟你要的灌水文字轉圖檔的原理是類似的!    uses Jpeg;    procedure TForm1.Button1Click(Sender: TObject);
var
 Bmp : TBitmap;
 Jpg : TJpegImage;
begin
 try
   Bmp := TBitmap.Create;
   Jpg := TjpegImage.Create;
   Jpg.LoadFromFile('c:\img.jpg');
   Bmp.Assign(Jpg);
   Bmp.Canvas.Brush.Style := bsClear;
   Bmp.Canvas.Font.Color := clYellow;
   Bmp.Canvas.TextOut(10,10,'Hello World');
   Jpg.Assign(Bmp);
   Jpg.SaveToFile('c:\img2.jpg');
 finally
   bmp.Free;
   jpg.Free;
 end;
end;

HAVE A NICE DAY FOR YOU 發表人 - axsoft 於 2003/08/06 12:43:49

谢谢斑竹的教诲！ 以后一定改！ 我先去试试代码喽！