Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

Сообщения. 


inko   (2002-04-09 15:43) [0]

При нажатии на кнопку я вызываю эту функцию... Как можно сделать так, чтобы сообщение "Ok !"появлялось всякий раз, когда пользователь нажимает кнопку несколько раз подряд. В данном случае оно появляеться один раз, а последующие нажатия игнорируються.

Function DelNormalFile(FileName : string) : string;
var
FileInfo: TSearchRec;
r : Integer;
begin
r := FindFirst(Filename, FaAnyfile, FileInfo);
while r = 0 do begin
if ((FileInfo.Attr and FaDirectory <> FaDirectory) and
(FileInfo.Attr and FaVolumeId <> FaVolumeID)) then
if DeleteFile(pChar(FileInfo.Name)) = True then

ShowMessage( "Ok !" );

end;



Anatoly Podgoretsky   (2002-04-09 15:47) [1]

Вынести мз блока IF, а то у тебя по условию



Alx2   (2002-04-09 15:54) [2]

:))



inko   (2002-04-09 15:56) [3]

То есть так:

DeleteFile(pChar(FileInfo.Name)) = True then

А ошибки не будет ?



Darkwin   (2002-04-09 16:10) [4]

То есть так:

DeleteFile(pChar(FileInfo.Name);
ShowMessage( "Ok !" );

И ошибки не будет .



Anatoly Podgoretsky   (2002-04-09 16:12) [5]

Darkwin © (09.04.02 16:10)
Вот, вот именно без IF тогда будет каждый раз, а может тебе нужно выводить сообщение только тогда когда ошибка?



inko   (2002-04-09 16:38) [6]

А если только тогда когда ошибка?



Darkwin   (2002-04-09 16:49) [7]

if DeleteFile(pChar(FileInfo.Name)) <> True then

ShowMessage( "Ok !" );




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.045 c
14-69976          False_Delirium        2002-03-12 10:07  2002.04.22  
Microsoft не перестаёт удивлять..:)...


14-70017          Sergo                 2002-03-14 12:28  2002.04.22  
Тема про вирус!!!


7-70038           SVF                   2002-01-26 01:52  2002.04.22  
Файл ресурса иконок больше 16 цветов


3-69761           Roman_Tutov           2002-04-01 14:46  2002.04.22  
Общий вопрос


3-69655           EAlexander            2002-03-29 12:39  2002.04.22  
oracle 8.1.6 на w2000 server