Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отмена выпонения цикла. [D7, Win95/98, WinXP]

Страницы: < 1 2
Xmen © (2006-11-23 13:45:00)
Привет Мастера. Нужен ваш совет
Хочу сделать так.
В цикле проигрывается beep пока не нажата любая клавиша.

repeat
beep;
until сюда нужно писать условие;

Вот это незнаю как это сделать.

Xmen (2006-11-23 14:04:00) [21]
Процедура проверяюший каталог и дабавляюший данные листбокс и вызевает процедуру проверки изменения.

procedure RefreshFileRecv;
var F: TSearchRec;
i, done: integer;
begin
form1.lbFileRecv.Items.Clear;
i:=0;
done := FindFirst(PathForRecv+'*.*',faArchive,F);
while done = 0 do
begin
form1.lbFileRecv.Items.Add((F.Name+' '+FormatDateTime('dd-mm-yyyy hh:nn:ss', FileDateToDateTime(f.Time))));
inc(i);
done := FindNext(F);
end;

provrecv(i);

end;

проверка изменения (правда приметивный)

procedure provrecv(ResultRecv:integer);
var TotalRecvFiles:string;
begin
IniFile := TIniFile.Create(path+'MyMail.ini');
TotalRecvFiles:=IniFile.ReadString('Main','TotalRecvFiles','');читает данные из ини для проверки и идет сверка
if strtoint(TotalRecvFiles)<>ResultRecv then
begin
repeat
beep;
Form1.Update;
form1.lbFileRecv.Color:=clblue;
until пока ненажемается клавиша;
IniFile.WriteString('Main' , 'TotalRecvFiles', inttostr(ResultRecv));изменяется данные в ини
end;
end;

Anatoly Podgoretsky (2006-11-23 14:03:00) [22]
> Array (23.11.2006 13:58:05) [5]

Телепатия?

Джо (2006-11-23 13:59:00) [23]
> [2] Xmen (23.11.06 13:54)
> Делаю процедуру который проверяет каталог куда приходит
> писма-файлы, когда придет новый файл то нужно извещать юзера
> звуком. Звук прекрашается когда нажимается любая клавиша.

sndPlaySound ('имя_wave_файла',SND_ASYNC or SND_LOOP);
Звук будет проигрываться асинхронно и "бесконечно".
Для прекращения проигрывания вызвать:
sndPlaySound (nil,0);

Jeer (2006-11-23 13:58:00) [24]
Используй таймер, на приход письма - Enabled := True и OnTimer делай beep и проверку флага.
Когда юзер нажмет любую клавишу - сбрасывай флаг.

Array (2006-11-23 13:58:00) [25]

> когда придет новый файл то нужно извещать юзера звуком.

бедный юзер....
Application.ProcessMessages

Anatoly Podgoretsky (2006-11-23 13:56:00) [26]
А где этот огрызок кода фигурирует?

Array (2006-11-23 13:56:00) [27]
repeat K := I mod J; I := J; J := K; until J = 0;
в чем собственно проблема?

Xmen (2006-11-23 13:54:00) [28]
Делаю процедуру который проверяет каталог куда приходит писма-файлы, когда придет новый файл то нужно извещать юзера звуком. Звук прекрашается когда нажимается любая клавиша.

Сергей М. (2006-11-23 13:48:00) [29]

> незнаю как это сделать.

Можешь ли объяснить, зачемэто делать ?)

Т.е. конечная задача, решаемая твоим приложением ?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »