안녕하세요 ^^;
질문만하네요.
현재 일정관리 프로그램을 만들고 있는데 알람설정부분에서 막히네요.
날짜와 시간을 설정하면..
일정관리폼을 시작할때.. TList에 알람날짜가 오늘인 데이타만..
TList에 넣었거든요.
TAlram = Record
Date: String[11]; //날짜
Time: String[16]; //시간
end; //알람리스트 구조체입니다.
procedure TFrmDiary.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
for i:=0 to AlramList.Count-1 do
begin
p := AlramList.Items[i];
if p^.Time = FormatDateTime('ampm hh:nn:ss', Time) then
ShowMessage('테스트 알람 메시지');
end;
end;
그리고, 타이머로.. 초마다 리스트전체를 검사를 해서..
현재시간하고 같은 메시지를 출력하는데..
문제는 없거든요.. 다만 이게 계속되면.. 프로그램상으로
문제가 없을지 걱정이 되서? 이상없겠죠?
위방법 말고 딴방법있음.. 좀 가르쳐주세요? ^^;
20000.
다만 타이머의 인터벌을 초에서 분으로 바꿔주는게 전제 시스템
성능상 더 좋을것같습니다....
강민주 wrote:
> 안녕하세요 ^^;
> 질문만하네요.
>
> 현재 일정관리 프로그램을 만들고 있는데 알람설정부분에서 막히네요.
> 날짜와 시간을 설정하면..
> 일정관리폼을 시작할때.. TList에 알람날짜가 오늘인 데이타만..
> TList에 넣었거든요.
> TAlram = Record
> Date: String[11]; //날짜
> Time: String[16]; //시간
> end; //알람리스트 구조체입니다.
>
> procedure TFrmDiary.Timer1Timer(Sender: TObject);
> var
> i: Integer;
> begin
> for i:=0 to AlramList.Count-1 do
> begin
> p := AlramList.Items[i];
> if p^.Time = FormatDateTime('ampm hh:nn:ss', Time) then
> ShowMessage('테스트 알람 메시지');
> end;
> end;
>
>
>
> 그리고, 타이머로.. 초마다 리스트전체를 검사를 해서..
> 현재시간하고 같은 메시지를 출력하는데..
> 문제는 없거든요.. 다만 이게 계속되면.. 프로그램상으로
> 문제가 없을지 걱정이 되서? 이상없겠죠?
>
>
> 위방법 말고 딴방법있음.. 좀 가르쳐주세요? ^^;
>
> 20000.