pause 버튼 이벤트에 다음과 같이 해보세요..



if pause.tag = 0 then begin

timer1.enabled := false

pause.tag := 1;

end else begin

timer1.enabled := true;

pause.tag := 0;

end;



이와 같은 식으로요...







초보 wrote:

> 타이머이벤트를 이용해서 1초단위로 파일을 읽어서 뿌려주는것을 하고있습니다..

> 그 소스는 아래와 같구요..

> 근데 pause기능을 이용하고싶은데..만약 이 pause 버튼을 눌렀을때 파일 읽는것을 중지시켰다가 다시 누르면 읽혀지는 방법으로 하고싶은데..어떻게 해줘야될지 모르겟네여..

> 아래 소스는 쉬우니까 금방 이해되실꺼에요..

> procedure Tnowform.Timer1Timer(Sender: TObject);

> var

> f1 : Textfile;

> s1, s2, s3 : Integer;

> StrList: TStringList;

> LineCount, i: Integer;

> imsi : String;

> begin

> Assignfile(f1, 'c:My DocumentsBook1.txt');

> Reset(f1); //화일을 처음으로 돌림

>

> StrList := TStringList.Create;

> StrList.LoadFromFile('c:My DocumentsBook1.txt'); // 라인수를 알고 싶은 파일 이름

> LineCount := StrList.Count; // LineCount = 텍스트파일의 라인수

> StrList.Free;

>

> while not EOF(f1) do begin

> readln(f1, s1, s2, s3);

> imsi:=' ' + ' ' +inttostr(s1)+ ' ' + ' ' +inttostr(s2)+' ' +' '+inttostr(s3);

> memo1.Lines.Add(imsi);

> end;

> timer1.Tag:=timer1.Tag+1;

> closefile(f1);

> end;