掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
textoutで改行するためには？ (ID:43548)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
//一応書いてみました。 //以下でどうでしょうか？ //即興なので、使うにはまだ不便な箇所が多数ありますが＾＾； procedure TForm1.Button1Click(Sender: TObject); var i,i1,i2:integer; s:array[0..255] of string; function rttextout(x,y,i1:integer):boolean; begin i2 := 0; i := 0; try while i < i1 do begin canvas.TextOut(x,y+ i2,s[i]); inc(i); i2 := 15; end; except //失敗したらfalse rttextout := false; end; //成功したらTrue rttextout := true; end; begin s[0] := 'aaa'; s[1] := 'bbb'; rttextout(50,50,2); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.