SelTextで選択行の開始行と終了行の取得


Noby  2017-12-29 23:05:05  No: 48899  IP: [192.*.*.*]

いつもお世話になります。

Memo1.Seltextで選択行の開始行と終了行の取得をしたいと思っています。

Googleでもいろいろ探したのですが・・・見つけられませんでした。

実現したいのは選択行だけに引用符を入れたいということです。

--------------------------

var

Kaisi:Integer;
Syuryo:INteger;

begin
 Kaisi:=*****;
 Syuryo:=----;

 for i := Kaisi to Syuryo do

    Memo1.Lines[ i ] := '>' + Memo1.Lines[ i ];

編集    削除
KONNOYA  2017-12-30 04:52:03  No: 48900  IP: [192.*.*.*]

過去記事ですが、こちらが参考になるかと。

https://www.petitmonte.com/bbs/answers?question_id=8783

編集    削除
Noby  2017-12-30 06:30:02  No: 48901  IP: [192.*.*.*]

ヒマホホマルチ様

いつもアドバイスありがとうございます。

おかげさまで下記で出来ました。

コードを参考にさせていただき

選択範囲に引用符とヤの両方が出来るようにしてみました。

ュュュュュュュュュュュュュュュュュュュュュュュュュュュュュュュュュュュュュュュ
ヲサユアサ




ヲサヲサラョラャヲサラョヘャヲサモョモユャヲサモョヨャヲサモョテャヲサヨョヌャ
ヲサヲサヨョテャヲサヨョニャヲサヨョトャモユャヲサヨョモテサ

ヲサヲサヤニアヲサスヲサィヤニゥ
ヲサヲサヲサヲサモツヲサヲサコヲサヤツサ
ヲサヲサヲサヲサヘアコヲサヤヘサ
ヲサヲサヲサヲサノコヲサヤツサ
ヲサヲサヲサヲサヤノコヲサヤツサ


ヲサヲサヲサヲサヲサヘアヒユヲサヲサヲサヲサヲサヲサィヲサモヲサコヲサヤマサヲサヲサヒヲサコヲサラサヲサモヲサコヲサヤモモヲサゥサ
ヲサヲサヲサヲサヲサヘアヘユヲサヲサヲサヲサィヲサモヲサコヲサヤマサヲサツヲサコヲサヤヘツサヲサモヲサコヲサヤモモサヲサリャヲサルヲサコヲサノヲサゥサ
ヲサヲサヲサヲサヲサノティモコヲサヤマゥサ
ヲサヲサヲサヲサヲサヤノティモコヲサヤマゥサ
ヲサヲサ
ヲサヲサヲサヲサヲサミヲサ宣言ヲサ
ヲサヲサヲサヲサヲサヌモノサ

ヲサヲサ
ヲサヲサヲサヲサヲサミヲサ宣言ヲサ
ヲサヲサヲサヲサチモモヲサコヲサノサ
ヲサヲサヲサヲサチモナヲサコヲサノサ
ヲサヲサヲサヲサヤモコヲサモサッッ引用文字  か  ヤスペース
ヲサヲササ
ヲサヲサッッサ


ヲサヲサニアコヲサヤニアサ



、メヲサェョ

ヲサヤニアョノティモコヲサヤマゥサ



コノサ



ヲサヲサヲサヲサヲサニヲサコスヲサチモモヲサヲサヲサチモナヲサ
ヲサヲサヲサヲサヲサラヲサヘアヲサ
ヲサヲサヲサヲサヲサフロヲサヲサンヲサコスヲサヤモヲサォヲサフロヲサヲサンサ
ヲサヲサヲサヲサヲサヤモコスァヲサァサッッ初期化



ヲサヤニアョヘアヒユィヲサモヲサコヲサヤマサヲサヲサヒヲサコヲサラサヲサモヲサコヲサヤモモヲサゥサ


ヲサヲサヌモノサ


ヲサヤニアョヘアヘユィヲサモヲサコヲサヤマサヲサツヲサコヲサヤヘツサヲサモヲサコヲサヤモモサヲサリャヲサルヲサコヲサノヲサゥサ


ヲサヲサヌモノサ


ヲサヤニアョヌモノサ



ヲサヲサチモモヲサヲサヲサヲサヲサコスヲサヘアョミィヲサナペフノホナニメマヘテネチメャヲサラミチメチヘィヲサヘアョモモゥャヲサフミチメチヘィヲサーヲサゥヲサゥサ
ヲサヲサチモナヲサヲサヲサヲサヲサヲサヲサコスヲサヘアョミィヲサナペフノホナニメマヘテネチメャヲサラミチメチヘィヲサヘアョモモヲサォヲサヘアョモフヲサゥャヲサフミチメチヘィヲサーヲサゥヲサゥサ
ヲサヲサニアョテヲサコスヲサノヤモィヲサチモモヲサゥヲサォヲサァ〜ァヲサォヲサノヤモィヲサチモナヲサゥサ



ヲサヤニアョヤノティモコヲサヤマゥサ


コノサ


ヲサヲサヲサヲサヲサヤモコスァヲサヲサァサ
ヲサヲサヲサヲサヲサノティモゥサ


編集    削除