掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
memoの行数を知る方法を教えてください。 (ID：49032)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
KONNOYA様、ありがとうございました。 朝から「ドラえもん」を見に行っていたので、返事が遅くなりました。 帰りの車の中で、十分な情報はもらっているなと思い、 帰ったらそく作ってみて、お礼を言うつもりでしたが、 先に投稿していただいていました。 私のように分からない人がこの掲示板を見たら役立つと思いますので、 無駄にはならないと思っています。 実際には下記のようなプログラムになりました。 ありがとうございました procedure TForm1.Label5Click(Sender: TObject); var i:integer; GyoS,GyoE:integer; ScrollInfo : TScrollInfo; begin FillChar( ScrollInfo, SizeOF( ScrollInfo ), 0 ); ScrollInfo.cbSize := SizeOf( ScrollInfo ); ScrollInfo.fMask := SIF_RANGE or SIF_PAGE or SIF_POS; if GetScrollInfo( Memo1.Handle, SB_VERT, ScrollInfo ) then begin GyoS:=GetScrollPos(memo1.Handle,SB_VERT); GyoE:=GyoS+ScrollInfo.nPage-1; end; for I :=GyoS to GyoE do begin FileCut(3,Memo1.lines[i]); SpeaktoMe(CutF[1]); application.processMessages; end end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.