Форум: "Основная";
Поиск по всему сайту: 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.029 c
3-69663           Kostia                2002-04-01 17:33  2002.04.22  
Народ, подскажите, какая БД


14-70022          Alexandr_             2002-03-13 12:35  2002.04.22  
Где-то читал про программу которая exe_шник.....


1-69873           ymin                  2002-04-09 11:21  2002.04.22  
Как проще всего распечатать StringGrid? Кстати она помещается на.


14-69989          Builder               2002-03-15 08:13  2002.04.22  
Круговой обзор


3-69758           nicolaus              2002-04-02 10:27  2002.04.22  
DBGrid Scroll ??? Как управлять скролом самостоятельно.