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

関連記事