小弟想把1234567轉成跟中文用@字型的效果 該如何作? aric

數字要全形數字才會轉 90度    我剛寫了個將一段文字中半形數字轉全形數字的程序給你 :    

function FullSizeNum(Text : String) : String;
var i : integer;
begin
  result := '';
  for i := 1 to length(Text) do
  begin
    Case Ord(Text[i]) of
    46 : result := result   '．';
    48 : result := result   '０';
    49 : result := result   '１';
    50 : result := result   '２';
    51 : result := result   '３';
    52 : result := result   '４';
    53 : result := result   '５';
    54 : result := result   '６';
    55 : result := result   '７';
    56 : result := result   '８';
    57 : result := result   '９';
    else
      result := result   Text[i];
    end;
  end;
end;    例子 :
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(FullSizeNum('中文 English 123')); // 中文 English １２３
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(FullSizeNum('中文 English 123')); // 中文 English １２３
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage(FullSizeNum(FloatToStr(123.45))); // １２３．４５
end;

若你的是數字欄位請用 AsString。 因於文字要經過處理，所要你那些要處理的欄位便不可用 TQRDBText 要轉回一般的 TQRLabel , 然後在 Band.BeforePrint 事件給與數值 : QRLabel1.Caption := FullSizeNum(Table1.FieldByName('Tel').AsString); 〔修改〕之前 Copy and Paste 全形數字變亂碼，現修正。 發表人 - Justmade 於 2003/03/24 07:51:20

引言: >< face="Verdana, Arial, Helvetica"> aric