Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.22;
Скачать: CL | DM;

Вниз

Сообщения.   Найти похожие ветки 

 
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 !" );




Страницы: 1 вся ветка

Текущий архив: 2002.04.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
4-70071
cypher
2002-02-17 22:04
2002.04.22
HICON -> TIcon


14-69978
ATLANTIDO
2002-03-10 20:06
2002.04.22
WinXP - Ctrl+Alt+Del ?


7-70051
Asker
2001-10-02 07:09
2002.04.22
Autorun


1-69892
hooky-mars
2002-04-06 19:28
2002.04.22
TShockwaveFlash


1-69917
cok
2002-03-30 14:55
2002.04.22
Pascal срочно, плзззз...