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);            //追加したばかりの行へ,メモをスクロール

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください