各位大大： 请教 如何将文字转换为指定大小的点阵数据 我要实现将文字或图片显示在LED点阵显示屏上 不知道如何将文字和图片转化为16进制的点阵信息 先谢了

shaomaif您好 文字是用點的方式繪在Canvas上,英文字為16*8,中文字為16*16 直接在Canvas上判讀點的顏色,利用轉換方式存入到陣列值中, 例如

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y:Integer;
  pattern:array[0..16] of integer;
  tmp:integer;
begin
  //ShowMessage(floatToStr(intpower(2,3)));
  for y :=0  to 16 do
  begin
    tmp:=0;
    for x :=0  to 7 do
    begin
      if label1.Canvas.Pixels[x,y]=clBlack then
      begin
        tmp:=tmp round(intpower(2,(7-x)));
        label2.Canvas.Pixels[x,y]:=clRed
      end;
    end;
    pattern[y]:=tmp;
    memo1.Lines.Add(IntToStr(tmp));
  end;
end;

上例Label1.Caption,'L'便會以紅色點,繪製在Label2.Canvas上 ..................... .楛耕傷稼,楛耘失歲. .....................

謝謝樓上 大哥