牛大叔．生活隨筆

 

 

uses lazutf8;

 

procedure TForm1.FormCreate(Sender: TObject);

var
  i:integer;
  sentence:String;

begin
  sentence:='這是一串中文字';
  for i:=1 to UTF8Length(sentence) do
    begin
      showmessage(UTF8COPY(sentence,i,1));
    end;

end;

end;

創作者介紹

igogo

牛大叔．生活隨筆

igogo 發表在 痞客邦 留言(0) 人氣( 0 )

• 全站分類： 親子育兒
• 個人分類： 軟体學習

▲top

載入更多

公開留言 私密留言

發佈留言

請先 登入 以發表留言。