~katsuhiko メッセージボード

back 2401-2450

2451-2500

2501-2550


2500 Re: 動的作成時のNameプロパティ変更 コメント数:  2件
  十五夜るな  | 2003/03/10 (月) 15:53
 http://www.col.ne.jp/~luna/
> サイズは11byte程度で、おそらくNameに代入した文字列のサイズかと。
適当なこと書いたけど、関係ないかも・・・



2499 動的作成時のNameプロパティ変更 コメント数:  3件
  十五夜るな  | 2003/03/10 (月) 15:35
 http://www.col.ne.jp/~luna/
こんにちは。
最近、HEditorいじりが趣味となりつつあります。
知れば知るほど奥の深い造りに飽きというものを感じません=^-^=
そんなHEditorいじり中に気づいたことなのですが、
HEditorを動的に生成してNameプロパティを変更すると、
開放してあげてもメモリリークが発生します。
サイズは11byte程度で、おそらくNameに代入した文字列のサイズかと。

そういうものなのかと、TMemoなどで試してもリークは起こりません。

申し訳ございませんが確認していただけますか?
よろしくお願いします。

なお、環境は Windows2000 + Delphi6 Personal で
HEditor Ver 2.42 を使用してます。



2498 Re^3: PerlFountainの仕様 コメント数:  0件
  本田勝彦 2003/03/09 (日) 12:35
パーサーは常に、いっこ前のトークンの種別を保持しています。
除算の前にあるべきトークン、またはパターンマッチの / の前にあるべきトークン
を特定できるのであれば、判別への道は開けます。

が、実装していた頃かなり悩んでサジ投げた記憶があります。(汗)




2497 Re^2: PerlFountainの仕様 コメント数:  1件
  某作者  | 2003/03/08 (土) 23:33
描画用のパーサーにこの判断を求めるのは結構無理なのですか。

このFountainはCGIに特化してるようなので、KENTなどの有名CGIで見ています。
そうしたところ、s/などの現時点で対応しているものの他には、
patternは(/と~/と~ /のたった三種類しかなく、ほかはすべて除算でした。

Perlは詳しくないので自分では書けないのですが、
いくつか見たCGIでは、これ以外にpatternにする必要がないように見えます。

素人考えでスミマセン。



2496 Re: PerlFountainの仕様 コメント数:  2件
  本田勝彦 2003/03/08 (土) 16:32
> >// の場合、/ の次の1文字が空白でない場合だけ toPatternMatch を
> >取得している。
> という理由がよくわかりません。
>
> これはどういう判断基準なのですか?

「除算ならば、/ の前後に空白を入れてね」ということです。判別のしようがないですよね?

x:=y*3div2;

というように、空白を入れない書き方をする人には辛い仕様かもしれません。



2495 PerlFountainの仕様 コメント数:  3件
  某作者  | 2003/03/08 (土) 12:44
int($hoge/$gohe)
とか書くと逝っちゃいます。
スラッシュが除算なのかtoPatternMatchなのかの判断は複雑なので、
ひょっとしたら実装しない方がいいのかもしれませんが、
気になってソースを読んでいるところです。

>// の場合、/ の次の1文字が空白でない場合だけ toPatternMatch を
>取得している。
という理由がよくわかりません。

これはどういう判断基準なのですか?



2494 Re^2: TEditorでのEM_GETFIRSTVISIBLELINEの使用について コメント数:  0件
  Kaneto  | 2003/03/03 (月) 21:12
早速の回答ありがとうございます。

> TopRow プロパティが該当します。

おぉ、これでしたか。ヘルプを読み込んでなくて本当にすいません。
さっそく値を取り出してみたところ、メッセージで取得した場合と
同様でした。
ただし、読み込み専用プロパティでなかったので、最初に取得した値を
最後に代入することによって所望の動作を実現できました。
ハッピーです。

> 最後の文字の後ろにはキャレットが移動出来ない仕様による現象です。

わかりました。マウス派のひとにはちょっとだけ違和感がありますが、
このまま使ってもらいましょう。



2493 Re: TEditorでのEM_GETFIRSTVISIBLELINEの使用について コメント数:  1件
  本田勝彦 2003/03/03 (月) 11:40
> これとは別に縦スクロール位置を取得できれるのであればその方法を教えて
> いただけるとハッピーです。

TopRow プロパティが該当します。

> ちなみに、EditorEx1->Lines->Strings[index]でライン毎にテキストを取り出して
> 編集する場合は編集後も所望の値が帰ってきます。

メッセージでいぢり倒した場合、そのタイミングによっては、ぼろぼろになる
場合があるかもしれません。Lines プロパティを利用されることをお勧めします。

> あと、WordWrapをOnにして表示した場合、折り返し部分の最後の文字をマウスで
> 選択できないことがあるのですが回避方法はありますでしょうか。

最後の文字の後ろにはキャレットが移動出来ない仕様による現象です。



2492 TEditorでのEM_GETFIRSTVISIBLELINEの使用について コメント数:  2件
  Kaneto  | 2003/03/02 (日) 23:30
katsuhikoさん、こんにちは。BCB上でお世話になっているKanetoです。
FAQ等の見落としがあったら勘弁してやってください。

表題の件なんですが、テキストの加工をしたあと、もとの縦スクロール位置を
再現するために、
int FirstVisibleLine=SendMessage(EditorEx->Handle,
EM_GETFIRSTVISIBLELINE,0,0);
にて、最初と最後に表示画面の一番上のLine番号を取得して、スクロールさせようと
しています。
これで最初は成功するのですが、テキストをいじり倒した後、最後に値を取得すると、
期待した値が帰ってこないようなんです。
ちなみに、EditorEx1->Lines->Strings[index]でライン毎にテキストを取り出して
編集する場合は編集後も所望の値が帰ってきます。
これって、私の使い方が悪いのでしょうか?
これとは別に縦スクロール位置を取得できれるのであればその方法を教えて
いただけるとハッピーです。

あと、WordWrapをOnにして表示した場合、折り返し部分の最後の文字をマウスで
選択できないことがあるのですが回避方法はありますでしょうか。

今後ともよろしくお願いします。

使用コンポーネント:TEditor ver 2.42+TEditorEx 2.60 (Yellow) です。





2491 Re: Win95でもテキストエディタxyzzyは多国語編集ができます コメント数:  0件
  清明 2003/03/01 (土) 20:12
> 中国語しか私は確認していませんが、xyzzyも完全対応しているようです。
> よろしければ、私のホームページもご覧下さい。

 HP拝見しました、xyzzyも検討したんですが、どうも使い勝手で
EmEditor(シェアウエアバージョン)にしました。
 う〜ん、決める前にこのHPみてればな・・・



2490 Re: OSサポートっていうけれど コメント数:  0件
  MSDN 2003/03/01 (土) 19:45
> やらなきゃいけないことは、
>
> エディタ内部のデータをユニコードで保持
> ユニコードWindow作成
> IMEからのユニコード文字受信
> クリップボードフォーマット CF_UNICODETEXT
> 関数名にWがつく描画のためのAPI

ここのサポートがNT,2000,XPだけのような、MSDNで調べると

「CF_UNICODETEXT」

Windows NT/2000/XP: Unicode text format. Each line ends with a carriage return/linefeed (CR-LF) combination. A null character signals the end of the data.



2489 OSサポートっていうけれど コメント数:  1件
  某作者  | 2003/03/01 (土) 14:33
やらなきゃいけないことは、

エディタ内部のデータをユニコードで保持
ユニコードWindow作成
IMEからのユニコード文字受信
クリップボードフォーマット CF_UNICODETEXT
関数名にWがつく描画のためのAPI

でしょうが、どれも9xカーネルでできます。
さて、OSサポートってなんだろう?
9xカーネルでは何ができないんだろう?



2488 Win95でもテキストエディタxyzzyは多国語編集ができます コメント数:  1件
  渡辺真  | 2003/03/01 (土) 10:23
 http://makotowatana.infoseek.livedoor.com/text.html
> > フォントさえ入ってればWin98でもUnicodeは大丈夫でしょう。
>  どうでしょう、OSサポートが・・・
> (EmEditorは読み・書きも完全対応してます)

中国語しか私は確認していませんが、xyzzyも完全対応しているようです。
よろしければ、私のホームページもご覧下さい。



2487 Re: 98での動作 コメント数:  4件
  清明 2003/03/01 (土) 01:46
> 禿丸エディタではWin98でも多言語編集ができるので、
> フォントさえ入ってればWin98でもUnicodeは大丈夫でしょう。

 どうでしょう、OSサポートが・・・

 お、禿丸対応したんですね、少し前は表示は出来るが、書き込むと
文字化けするんで結局EmEditorを別途購入して使ってますが。
(EmEditorは読み・書きも完全対応してます)



2486 Re^9: すいません;; コメント数:  0件
  おかげ 2003/02/28 (金) 20:27
ご丁寧にありがとうございました。
どうやら私が未熟だったようですね><
とても勉強になりました。
ありがとうございました



2485 98での動作 コメント数:  5件
  某作者  | 2003/02/28 (金) 14:24
禿丸エディタではWin98でも多言語編集ができるので、
フォントさえ入ってればWin98でもUnicodeは大丈夫でしょう。

しかしDelphi/Win98の場合、
IDEのエディタ、オブジェクトインスペクタでUnicodeを入れられません。
実行時のTntMemoにも入れられません。
禿丸エディタでUnicodeで保存したテキストを、TntMemoで読むとUnicode文字は化けます。
TntLabel1.Caption:=#$93C1;
などと文字コード直接指定しても表示できません。

というわけで、Win98ではTntシリーズでユニコード表示できるかどうかすら確認できません。



2484 Re^6: TEditorでUNICODEを扱えるようにして下さい コメント数:  6件
  清明 2003/02/28 (金) 12:37
> まだ、unicode.pas を眺めてるだけなので、あれですが、
> クリップボードに CF_TEXT もまんま使えるのですかね?
 
 使えますね、そのまんまかな?

 ただ、UNICODEじたい、NT4,2000,XPでしか使えない?・・・




2483 グローバルIMEとUNICODEフォント コメント数:  0件
  渡辺真  | 2003/02/28 (金) 12:11
 http://makotowatana.infoseek.livedoor.com/font.html
>大体、グローバルIMEの持ち合わせも無いし、
>MS UIゴシックフォントにお目にかかったことも無い

冗談で書かれていると、思いますが、
この掲示版をご覧の皆様の参考に、紹介します。

グローバルIMEは、下記で無償入手できます。
http://www.microsoft.com/windows/ie/features/ime.asp

フォントは、下記でArial Unicode MSが無償入手できます。
日本語はもちろん、ラテン語、キリル言語、ギリシャ語、Shift JIS以外の漢字、韓国語、簡体字中国語、繁体字中国語、タイ語の全ての言語が混在しているファイルもこれ一つで表示できます。
http://i71rs03.cm-tm.uka.de/course_kud-02/lernumgebung/main.html
ただし、圧縮でも15Mと大きい。 (^_^;)

本田さんのモチベーションが高まりますことを、期待いたしております。



2482 Re: 移設 コメント数:  0件
  本田勝彦 2003/02/28 (金) 00:19
いやぁ、嬉しいですね。最近はアッチばっかりで(笑)
「車いぢり」系サイトになる日も遠くないかと、少し心配してます。
TEditor のコマンドシステムへの絞殺も進んではいるのですが。

部品屋さんのサイトを見るのもナカナカに楽しいですね。
アーレンキーが「自転車系」だというのも知りましたし。

日記更新しました。リンクも直します。ご指摘に感謝です。



2481 Re^5: TEditorでUNICODEを扱えるようにして下さい コメント数:  8件
  本田勝彦 2003/02/28 (金) 00:13
まだ、unicode.pas を眺めてるだけなので、あれですが、
クリップボードに CF_TEXT もまんま使えるのですかね?

いえ^^; 清明さんを責めてもしょうがないんですよね^^;;;
なんかこう、使えそうかなと思えば思うほどアレはどうするんだ
コレはどうなるんだみたいな部分がどんどん噴出して来てしまってます。

大体、グローバルIMEの持ち合わせも無いし、MS UIゴシックフォント
にお目にかかったことも無いのに、どやって試せっちゅうねん(笑)

期待しないように・・・



2480 Re^4: TEditorでUNICODEを扱えるようにして下さい コメント数:  9件
  清明 2003/02/27 (木) 15:17
> 例えばね、各国の言語が混在する1行に対して
> Copy(Hoge1.Lines[Index], X1, X2);
> とかやった時に対応してもらえるのかなぁと・・・

 できましたよ
 TntEdit1.Text := copy(TntMemo1.Lines.Strings[1],6,12);
 ただ、上に書かれているX1,X2は文字位置、文字数となり
バイト位置、バイト数とはなりません。
 あと、MS UIゴシックぐらいしか複合表示出来るフォントが無い?
ところが・・・



2479 Re^4: TEditorでUNICODEを扱えるようにして下さい コメント数:  0件
  清明 2003/02/27 (木) 14:24
> 例えばね、各国の言語が混在する1行に対して
> Copy(Hoge1.Lines[Index], X1, X2);
> とかやった時に対応してもらえるのかなぁと・・・

 ああ、どうでしょうかね、やってみるかな。
 ちなみに行が分かれてる複数言語データはOKでした



2478 移設 コメント数:  1件
  ふく郎  | 2003/02/27 (木) 12:54
 http://www.ememopad.net/
本田さん、こんにちは。ふく郎です。
ながらくご無沙汰しておりました。

本田さんの写真日記、いつも楽しみに拝見してます。
TEditor を初めとする作品群と同じく、本田さんの性格が
垣間見えるようでいつも感心してます(;^^)

ところで最新号の日付が 2003/01/01 になってるぅ...
ちなみにボタンヘッドキャップスクリューは BHCS、
ソケットヘッドは SHCS と略されることが多く、海外製品の
パーツリストを最初に見た時はなんのことか全然判らなかっ
たことがありました。ご参考。

そうそう、TEditor を搭載した eMemoPad ですが、2年余り
かかってやっと形になってきました。(遅っ!)
近々ベータリリースを予定してますんで、チャンスがあれば
見てやってください。ついでにウェブサイトも「移設」しました。
お手すきの時にでもリンク先の変更をお願いします。

以上、近況報告でした(^^;




2477 Re^3: TEditorでUNICODEを扱えるようにして下さい コメント数:  11件
  本田勝彦 2003/02/26 (水) 23:57
すんごいですねぇ。知りませんでした。
すごすぎという話も・・・

例えばね、各国の言語が混在する1行に対して
Copy(Hoge1.Lines[Index], X1, X2);
とかやった時に対応してもらえるのかなぁと・・・



2476 Re^8: すいません;; コメント数:  1件
  本田勝彦 2003/02/26 (水) 23:52
集合型を理解されていないことが原因のように思います。
Hschfm.pas の中に GetOptins というメソッドがありますので
参考にして見て下さい。

一度(一度で良いですから)Object Pascal 言語リファレンスを、
修行僧になったつもりで精読されることをお勧め致します。




2475 Re^7: すいません;; コメント数:  2件
  おかげ 2003/02/26 (水) 23:16
var op1,op2,op3,op4,op5 : TSearchOption ;
begin
if rbDown.Checked then op1 := sfrDown ; //検索方向
if cbBSdist.Checked then op2 := sfrMatchCase ; //大文字・小文字
if cbAHdist.Checked then op3 := sfrNoMatchZenkaku ; //半角・全角
if cbSignore.Checked then op4 := sfrIncludeSpace ; //スペース無視
if cbBr.Checked then op5 := sfrIncludeCRLF ; //改行無視


foMain.reMain.Search(edFind.Text,[op1,op2,op3,op4,op5]) ;

ただ、これだとop1,2,3,4,5が初期化されないのでそこでも困っています。



2474 Re^2: TEditorでUNICODEを扱えるようにして下さい コメント数:  12件
  清明 2003/02/26 (水) 21:46
ユニコードのコンポーネントは下記のHPにありますね。
ちゃんと表示してくれます(当たり前か)

http://home.ccci.org/wolbrink/tnt/delphi_unicode_controls.htm



2473 Re^6: すいません;; コメント数:  3件
  本田勝彦 2003/02/26 (水) 19:44
こんな感じで利用します。

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if TFormSearch.Execute(FSearchValue, FSearchOptions) then
begin
DisplaySearchOptions(FSearchOptions);
editor1.Search(FSearchValue, FSearchOptions);
end;
end;





2472 Re^5: すいません;; コメント数:  4件
  本田勝彦 2003/02/26 (水) 19:43
以下の手続きで、設定されたオプションを確認して見て下さい。

procedure DisplaySearchOptions(Options: TSearchOptions);
var
I: TSearchOption;
S: String;
begin
S := '';
for I := Low(TSearchOption) to High(TSearchOption) do
if I in Options then
case I of
sfrDown: S := S + 'sfrDown' + #13#10;
sfrMatchCase: S := S + 'sfrMatchCase' + #13#10;
sfrWholeWord: S := S + 'sfrWholeWord' + #13#10;
sfrNoMatchZenkaku: S := S + 'sfrNoMatchZenkaku' + #13#10;
sfrReplace: S := S + 'sfrReplace' + #13#10;
sfrReplaceAll: S := S + 'sfrReplaceAll' + #13#10;
sfrReplaceConfirm: S := S + 'sfrReplaceConfirm' + #13#10;
sfrIncludeCRLF: S := S + 'sfrIncludeCRLF' + #13#10;
sfrIncludeSpace: S := S + 'sfrIncludeSpace' + #13#10;
sfrWholeFile: S := S + 'sfrWholeFile' + #13#10;
end;
ShowMessage(S);
end;



2471 Re^4: すいません;; コメント数:  5件
  おかげ 2003/02/26 (水) 14:04
ありがとうございました。
とりあえず二つとも解決いたしました。
・・・解決したのはいいのですが、あらたな問題が発生いたしました・・・
それは検索オプションのsfrMatchCase(大文字と小文字を区別する)
がうまく作動しません。これって大文字と小文字を区別するオプションですよね?
それなのにこのオプションを入れなくても区別されてしまいます。
この問題の解決方法をどうかご指摘おねがいいたします。



2470 Re^3: すいません;; コメント数:  6件
  ふく郎  | 2003/02/25 (火) 23:29
 http://www.ememopad.net/
> すいません、具体的には
> TEditor1.Search(Edit1.Text,[]);
> という場面で使用しようと思って質問した次第です。
> とりあえずSearchOptionの方はいいのですが、こんどは
> 新しい疑問ができてしまいました。

ということは解決したのかな?(謎)

> このSearchメソッドの戻り値がBoolean型なのですが、
> この戻り値というのはどういうときにTrueでどういうときに
> Falseなのでしょうか。それと、このSearchメソッドだと
> 検索した文字列を選択状態にすることはできないんでしょうか?
> どなたか教えていただけないでしょうか・・・

HEditor.pas のソースとヘルプを読めば一目瞭然だと思いますが、
検索がヒットすれば True、見つからなければ False が返ります。
文字列を選択状態にするのは HEditor.pas の Search() 内で
実行されています(そのはず) → HitSelLength := Info.Length;
プロパティの設定を忘れているとか、なんか特殊なことをご自分で
やっているなんてことはありませんか?



2469 Re^2: すいません;; コメント数:  7件
  おかげ 2003/02/25 (火) 23:03
すいません、具体的には
TEditor1.Search(Edit1.Text,[]);
という場面で使用しようと思って質問した次第です。
とりあえずSearchOptionの方はいいのですが、こんどは新しい疑問ができてしまいました。
このSearchメソッドの戻り値がBoolean型なのですが、この戻り値というのはどういうときにTrueでどういうときにFalseなのでしょうか。それと、このSearchメソッドだと検索した文字列を選択状態にすることはできないんでしょうか?
どなたか教えていただけないでしょうか・・・



2468 Re: すいません;; コメント数:  8件
  ふく郎  | 2003/02/25 (火) 20:41
 http://www.ememopad.net/
こんにちは。ふく郎です。

> TSearchOptionsとTSearchOptionに互換性がない (snip)

どんなコードを書かれているか分からないのでアレですが、
TSearchOption は sfrMatchCase など個々のオプションを
指します。TSearchOptions は TSearchOption の集合体で
すから、オプションを指定する時には [] で囲む必要があり
ます。あるオプションが指定されているかどうかを判断する
のは if sfrDown in Option then てな感じです。

var
 Option: TSearchOptions;
 Info: TSearchInfo;
begin
 // 検索オプション
 Option := [];
 // 大文字・小文字を区別する
 if frMatchCase in FindDialog1.Options then
  Include(Option, sfrMatchCase);
 :

…というように使います。
エラーになるところを具体的にご説明くださると、もうちょっと
詳しくお答えできるんですが...



2467 すいません;; コメント数:  9件
  おかげ 2003/02/25 (火) 18:49
ここに書いていいのかわかりませんが、ともかく困っておりますのでおゆるし下さい。
現在検索を独自の関数からすべてSearchに置き換えようと思ったのですが、TSearchOptionsとTSearchOptionに互換性がないということでうまくコンパイルできません。もしかしたらかなり簡単なことを聞いているかもしれませんが、どうか教えてください。



2466 Re: TEditorでUNICODEを扱えるようにして下さい コメント数:  13件
  本田勝彦 2003/02/20 (木) 11:14
現時点で Delphi 自体が unicode 非対応なワケですから、難しいと思います。
対応されても、パーサーが全滅なのでかなりハードルは高そうですね。
やり甲斐はありそうですが・・・。



2465 TEditorでUNICODEを扱えるようにして下さい コメント数:  14件
  渡辺真  | 2003/02/18 (火) 16:57
 http://www.hi-ho.ne.jp/makoto_watanabe/2003/
TEditorコンポーネントを使った、幾つかのソフトに、とてもお世話になっています。

仕事の関係で、中国語を使う機会が有るのですが、貴TEditorで、MS Global IMEを使って中国語などの入力ができるようになると、とても便利だとおもいます。

是非、今後の改善予定として、ご検討下さい。



2464 Re^2: タブ幅変更と反映 コメント数:  0件
  本田勝彦 2003/02/09 (日) 23:11
heditor.pas
procedure TEditor.ViewChanged(Sender: TObject);
の TEditorCaret を扱っている部分(4811行目以下)を

----------------------------------------------------------------
if Sender is TEditorCaret then
begin
EditorUndoObj.Clear; // for TabSpaceCount changed
UpdateCaret; // need handle
end
else
begin
ScrollCaret; // need handle
MoveCaret; // need handle
end;
----------------------------------------------------------------

のように変更して頂ければ対処出来るようです。
問題が無ければ、改版を公開したいと思います。



2463 Re: タブ幅変更と反映 コメント数:  1件
  本田勝彦 2003/02/07 (金) 00:39
> タブ幅を変更したとき、WrapOptionが変わったときと同じように
> UndoObjをクリアしないといけないようです。

あ゛〜〜〜・・・どうして今まで誰も気が付かなかったのだろう・・・

直しますです。ご指摘に感謝です。



2462 タブ幅変更と反映 コメント数:  2件
  某作者  | 2003/02/05 (水) 17:15
タブ幅を変更したとき、WrapOptionが変わったときと同じように
UndoObjをクリアしないといけないようです。

検証方法
折り返しを80、タブ幅を2にしてタブ文字を20個入力する。
その後タブ幅を8にすれば、右端から10個はみ出る。
その状態で「Ctrl+Z」を数回行う。
途中からアンドゥでなくなる。



2461 本田さんってスゴイです。 コメント数:  0件
  某作者  | 2003/01/28 (火) 00:29
シェア登録したのはもう一年以上前になります。
そのころはまだ、完成品を組み込みたいだけでしたが、
本体、周辺ユニット、サンプルなどを読みあさり、いじり倒し、
下手な教則本より何倍も勉強になりました。
これほどの知識の宝庫が数千円ぽっちで利用できてしあわせです。
本当にありがとうございます。



2460 Re: お礼&謹賀新年 コメント数:  0件
  本田勝彦 2003/01/01 (水) 23:30
あけましておめでとうございます。&ありがとうございます。
リンクさせて頂きました。これからも TEditor をよろしくお願い致します。



2459 お礼&謹賀新年 コメント数:  1件
  Kaneto  | 2003/01/01 (水) 03:07
 http://www1.ttcn.ne.jp/~kaneto
本田さん、Kmさん、新年明けましておめでとうございます。
Kanetoといいます。

このたび、TEditorExとTStringsPrinterを使わせていただき、
私の拙作品(HTMLProject2)の改造がほぼ完了しました。
正式版リリースとともにレジを済ませましたので報告にきました。
私はBCBな人なのでいろいろインストールに苦労しましたが、
なんとかだましだまし立ち上げることができました。
今後ともよろしくお願いします。



2458 Re: 夕張というと コメント数:  0件
  本田勝彦 2002/12/25 (水) 15:49
> どもです。
>
> 夕張というと、「ばぁりばぁりっ、夕張〜」というCMを
> 思い出してしまうのですが、今でもやってるんでしょうか。。
> (ローカルねたですね(^^;)

わはは!ろぉかるぢゃ!「ばぁりばぁり」はもうやってないようです。
産炭地振興予算の縮小とともに・・・

やってましたっけ?>夕張の方々



2457 夕張というと コメント数:  1件
  Km  | 2002/12/25 (水) 07:52
どもです。

夕張というと、「ばぁりばぁりっ、夕張〜」というCMを
思い出してしまうのですが、今でもやってるんでしょうか。。
(ローカルねたですね(^^;)



2456 Re^3: 文字の削除について コメント数:  0件
  本田勝彦 2002/12/22 (日) 23:00
>  例えばDelphiでいうところのコメント行だけを削除したいのですが。

なるほど。私の想像が間違っていなければですが、

1.出力用のストリームを用意する。
2.パーサーのトークンを判別しながらそのストリームに書き出す。
3.出来上がったストリームからデータを読み込む。

といった実装方法はいかがでしょう?




2455 Re^2: 行頭に / がきた行のFElementIndexを... コメント数:  0件
  たけ 2002/12/22 (日) 22:23
アドバイスありがとうございました。
NormalTokenProcでSourcePosとFElementIndexをチェックするように
してみたところ、なんとか使えるものに出来上がりました。



2454 Re^2: 文字の削除について コメント数:  1件
  Kavo  | 2002/12/22 (日) 17:43
> どんな処理をお望みなのでしょう?

 例えばDelphiでいうところのコメント行だけを削除したいのですが。



2453 Re: 文字の削除について コメント数:  2件
  本田勝彦 2002/12/22 (日) 16:18
> //ここで Parser.TokenString を削除したいのです。

TokenString は、パーサーのポインタの状況から結果を返す関数なので、
「削除する」ことは出来ません。
ある条件を満たす場合だけ、TokenString を利用しないという方法が考えられます。

どんな処理をお望みなのでしょう?



2452 文字の削除について コメント数:  3件
  Kavo  | 2002/12/22 (日) 15:38
while Parser.NextToken <> toEof do
begin
case Parser.Token of
toHoge:
begin
//ここで Parser.TokenString を削除したいのです。


end;
end; //case end
end;

 っというわけで何かヒントをいただけないでしょうか?



2451 Re: 折り返し以降を選択しないようにする コメント数:  0件
  本田勝彦 2002/12/21 (土) 23:45
> Q&Aに「改行マーク以降を選択しないようにする」という項がありますが、これを折り返し以降も選択させないようにするにはどうすればいいのでしょう。

サンプル中の LineStr を
Editor1.ExpandTab(Editor1.ListString[Index])
に取り替えてみて下さい。

サンプルプロジェクト、ヘルプなどにあるソースコードで何が行われているのかを
もう少し読み込んで見て下さいまし。

がんばるのぢゃー