begin Result := ''; if (FILE_ATTRIBUTE_DIRECTORY and Attr) > 0 then Result := Result + ''; if (FILE_ATTRIBUTE_ARCHIVE and Attr) > 0 then Result := Result + 'A'; if (FILE_ATTRIBUTE_READONLY and Attr) > 0 then Result := Result + 'R'; if (FILE_ATTRIBUTE_HIDDEN and Attr) > 0 then Result := Result + 'H'; if (FILE_ATTRIBUTE_SYSTEM and Attr) > 0 then Result := Result + 'S';
end;
begin ListView1.Items.BeginUpdate; ListView1.Items.Clear;
Result := False; hFindFile := FindFirst(FileMask, FFileAttr, SearchRec); if hFindFile <> INVALID_HANDLE_VALUE then
try repeat with SearchRec.FindData do begin
if (SearchRec.Name = '.') or (SearchRec.Name = '..') or (SearchRec.Name = '') then continue;
Implementation
Я специально объявил их там, чтобы показать тебе, как можно пользоваться функциями не принадлежащими ни одному объекту. Здесь функция SlashSep объявлена не внутри объекта, значит она никому
Implementation
Я специально объявил их там, чтобы показать тебе, как можно пользоваться функциями не принадлежащими ни одному объекту. Здесь функция SlashSep объявлена не внутри объекта, значит она никому
Private
{ Private declarations }
procedure ShowHint(Sender: TObject);
Имя процедуры может быть и другим (например MyShowHint) но параметр должен б
Procedure TForm1.ShowHint(Sender: TObject); begin
StatusBar1.SimpleText := Application.Hint; end;
Итак, наша процедура должна будет вызываться каждый раз, когда надо вывести подсказку. Внутри процедуры мы присваиваем в св
Procedure TForm1.ShowHint(Sender: TObject); begin
StatusBar1.Panels[1].Text := Application.Hint; end;
Здесь я присваиваю текст сообщения (Application.Hint) в свойство Text первой панели строки состояния.
Новости и инфо для студентов