참고

procedure TForm1.Timer1Timer(Sender: TObject);

const

Max = 20;

begin

Inc(A);



Richedit1.Lines.Add(inttostr(a));



while RichEdit1.Lines.Count > Max do

RichEdit1.Lines.Delete(RichEdit1.Lines.Count - Max - 1);

end;



이성윤 wrote:

> 메일 전송 프로그램을 만들고 있습니다.

> 전송 상황을 List Up 하기 위해 Listbox를 이용했구요.

> 헌데,평균적으로 약 1분에 6000건의 전송이 이루어 지기때문에 Listbox에 무한정

> Log를 쌓아서 보여줄수는 없구, 그냥 최근 1000건에 대해서만 이용자에게 보여주게 하기 위해 최근 데이타는 첫번째 줄에 Insert하고,1000건이 넘는 데이타에 대해서는

> Delete 하는 방식

> (및과 같음)

>

> 102992 전송완료 <- 추가 (최근 발생된 상황의 데이타)

> -------- 재전송

> -------- 전송완료

> ..

> ..

> 102991 전송완료 -> 토탈 리스트가 1000건이 넘으면 삭제

>

>

> 헌데,이부분에 분당 야 7000건의 데이타가 계속 Listup 되고 있으면

> 자꾸 에러메세지를 냅니다.

>

> Listbox로 처리하는것 외에 다른 좋은 방법 없을까요?

>

>