Автор: Путяк Владислав Источник: docs.com.ru
FAQ по Delphi
Как наиболее быстрым способом узнать, сколько файлов с определенным расширением есть в определенной папке?
Как вычислить CRC-32 для файла?
Как подсчитать количество файлов в папке?
Как работать с INI-файлами?
Как прочитать MP3 ID3-Tag?
Работа с TGA файлами
Q: Как наиболее быстрым способом узнать, сколько файлов с определенным расширением есть в определенной папке?
A:
Например для HTM файлов:
Function GetFileCount(Dir:string):integer;
var fs:TSearchRec;
begin
Result:=0;
if FindFirst(Dir+'\*.htm',faAnyFile-faDirectory-faVolumeID, fs)=0 then
repeat
inc(Result);
until FindNext(fs)<>0;
FindClose(fs);
end;
Автор ответа: Vit
вверх
Q: Как вычислить CRC-32 для файла?
A:
вверх
Q: Как подсчитать количество файлов в папке?
A:
uses
Windows, { ... }
function FileCount(const aFolder: string): Integer;
var
H: THandle;
Data: TWin32FindData;
begin
Result := 0;
H := FindFirstFile(PCHAR(aFolder + '*.*'), Data);
if H <> INVALID_HANDLE_VALUE then
repeat
Inc(Result, Ord(Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0));
until
not FindNextFile(H, Data);
Windows.FindClose(H);
end;
вверх
Q: Как работать с INI-файлами?
A:
function ReadIni(ASection, AString: string): string;
var
sIniFile: TIniFile;
sPath: string[60];
const
S = 'xyz'; { стандартная строка для выдачи ошибок чтения }
begin
GetDir(0, sPath);
sIniFile := TIniFile.Create(sPath + '\Name.INI');
Result := sIniFile.ReadString(ASection, AString, S); { [Section] String=Value}
sIniFile.Free;
end;
procedure WriteIni(ASection, AString, AValue: string);
var
sIniFile: TIniFile;
sPath: string[60];
begin
GetDir(0, sPath);
sIniFile := TIniFile.Create(sPath + '\Name.INI');
sIniFile.WriteString(ASection, AString, AValue); { [Section] String=Value }
sIniFile.Free;
end;
{ReadSection считывает все пункты
указанной секции - т.е.
ключи перед знаком "="
ReadSectionValues полностью считывает все
строки указанной секции,
т.е. Punkt=xyz }
вверх
Q: Как прочитать MP3 ID3-Tag?
A:
вверх
Q: Работа с TGA файлами
A:
вверх
Автор: Путяк Владислав Источник: docs.com.ru
При составлении использовались материалы:
популярный форум программистов forum.vingrad.ru
Delphi Knowledge Base baltsoft.com
swissdelphicenter.ch
Ссылки по теме:
Модуль Timer для Паскаля и не только
Как я стал полиндромом Функции API (часть I): функции вызова диалоговых окон Borland Kylix 2 Delphi HotKeys - горячии клавишы Работа с буфером обмена в Delphi Работа с Jpeg-изображениями в Delphi Программирование для начинающих от CompDocs - 1 Программирование для начинающих от CompDocs - 2
Версия для печати [доступна только on-line]
Комментарии к статье
Copyright © 2003-2004 Путяк Владислав. Использование материалов журнала разрешается только с указанием ссылки на первоисточники и сайт журнала - http://docs.com.ru