Проект Порталус


 

CompDocs on-line

Интернет-магазин постеров с доставкой

 
CompDocs
Вебмастеру
Программисту
Пользователю
Геймеру
Мабила
Новости
Отдохни
Беседка
Обои
Партнеры
Docs.com.ru

Web-мастеру:

PHP
ASP .NET
Perl
JavaScript
CSS
HTML
Раскрутка
Сервисы

Программисту:

DirectX
OpenGL
Pascal
Алгоритмы

Пользователю:

Windows
Linux
BIOS
Обои

Посетителю:

Форум
Юмор
Рассылки
Объявления
ФизМат
Тесты
Работа

Обои на рабочий стол
 

Автор: Путяк Владислав
Источник: docs.com.ru

FAQ по Delphi

  1. Как наиболее быстрым способом узнать, сколько файлов с определенным расширением есть в определенной папке?

  2. Как вычислить CRC-32 для файла?

  3. Как подсчитать количество файлов в папке?

  4. Как работать с INI-файлами?

  5. Как прочитать MP3 ID3-Tag?

  6. Работа с 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]
    Комментарии к статье
    Ваше имя:

    Ваш e-mail:
      извещать о новых отзывах в теме
    публиковать мой e-mail
    Комментарий:

    Copyright © 2003-2004 Путяк Владислав.
    Использование материалов журнала разрешается только с указанием ссылки на первоисточники и сайт журнала - http://docs.com.ru



    @ portalus.ru