Сообщения.

← →
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]

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

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

ShowMessage( "Ok !" );

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