Форум: "Основная";
Текущий архив: 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 !" );
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c