Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Сканирование дерева каталогов
Довольно простенький пример.
procedure
TForm1.ScanDir(Path, Mask : String); var
SR : TSearchRec;
Found : Integer;
Attr : Integer;
begin
Attr := faReadOnly + faHidden + faSysFile + faArchive + faDirectory;
Found := FindFirst(Path + Mask, Attr, SR);
while Found = 0 do
begin
ProcessSearch(Path, SR); - в ней отлавливай все что хочеш.
Application.ProcessMessages;
if (SR.Name <>'.') and (SR.Name <>'..') then
if (SR.Attr and faDirectory) <>0 then
ScanDir(AddBackslash(Path + SR.Name), Mask);
Found := FindNext(SR);
end;
FindClose(SR);
end
;