Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сообщения. [D3, Win95/98]

inko © (2002-04-09 15:43:00)
При нажатии на кнопку я вызываю эту функцию... Как можно сделать так, чтобы сообщение "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;

Darkwin (2002-04-09 16:49:00) [1]
if DeleteFile(pChar(FileInfo.Name)) <> True then

ShowMessage( "Ok !" );

inko (2002-04-09 16:38:00) [2]
А если только тогда когда ошибка?

Anatoly Podgoretsky (2002-04-09 16:12:00) [3]
Darkwin © (09.04.02 16:10)
Вот, вот именно без IF тогда будет каждый раз, а может тебе нужно выводить сообщение только тогда когда ошибка?

Darkwin (2002-04-09 16:10:00) [4]
То есть так:

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

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

inko (2002-04-09 15:56:00) [5]
То есть так:

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

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

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

Anatoly Podgoretsky (2002-04-09 15:47:00) [7]
Вынести мз блока IF, а то у тебя по условию

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »