このブログ「吟遊詩人の戯言」 の記事検索...

TMemo使って,システム稼動ログを見るやりかたとか?

関連記事

システムの運用中のログを表示させたい,ってのは,結構要求あるもので

今回の案件でも,やっぱり出てきました

次回,また,探し回るのが大変なんで,ここに書いておきますです


    memLog.Lines.Add(st);          //1行追加

    if memLog.Lines.Count > 300 then       //300行超えたら,超えた分,先頭の行を削除
    begin
        while(memLog.Lines.Count > 300) do
        begin
            memLog.Lines.Delete(0);
        end;
    end;

    memLog.SelStart := Length(memLog.Lines.Text);     
    memLog.Perform(EM_SCROLLCARET, 0, 0);            //追加したばかりの行へ,メモをスクロール

 
 
 
 

Leave a Reply

You can use these HTML tags

<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong> <img localsrc="" alt="">