Monthly Archives: October 2015

Как получить список дисков?

Posted on 21.10.2015 by Stanislav_Panteleev

Взято с форума Cyberforum

Function GetDisks():TStringlist;
var i:Char;
begin
 Result:=TStringlist.Create;
 for i := 'A' to 'Z' do
 begin
        if (GetDriveType(PChar(i+':\'))<>1) and
        (GetDriveType(PChar(i+':\'))<>0)

        then result.Add(i+':\');

 end;
end;

Function GetDisks():TStringlist;

var i:Char;

begin

Result:=TStringlist.Create;

for i := 'A' to 'Z' do

begin

if (GetDriveType(PChar(i+':\'))<>1) and

(GetDriveType(PChar(i+':\'))<>0)

then result.Add(i+':\');

end;

Posted in Delphi. Язык программирования | Comments Off

Delphi. Процедурные типы. Callback

Posted on 19.10.2015 by Stanislav_Panteleev

Callback – это возможность использовать процедуры и функции в качестве параметра. Пример ниже, по нажатию кнопки, будет выводить сначала первое сообщение – прямым, обычным способом, а потом второе – через callback функцию или что, тоже самое – процедурный тип. ШАГ1 … Continue reading →

Posted in Delphi, Delphi. Язык программирования | Comments Off

Поиск директорий и файлов внутри директории

Posted on 18.10.2015 by Stanislav_Panteleev

Код

procedure GetDir (foldername:string);
{процедура сбора директорий в директории}
var sr:tsearchrec;// сюда будем записывать

begin
Form1.Memo1.Lines.Clear;

   // ШАГ 1 проверка корректности директории
{if foldername[length(foldername)] <>'\' then
foldername:=foldername+'\';
//Аналогично можно реализовать с IncludeTrailingPathDelimiter см. ниже
}

foldername:=IncludeTrailingPathDelimiter(foldername);

try
  // ШАГ 2 Собственно поиск директории
if findfirst(foldername+'*.*',faAnyFile,sr)=0 then // если поиск успешен
  repeat

  //проверки, '..' - это родительский каталог
  // '.' - это текущий каталог
  // '' - это папка с пустым именем

  if
  not ((sr.Name='') or (sr.Name='..') or (sr.Name='.'))
  and (sr.Attr=faDirectory) //только директории
  {чтобы все файлы + директории - закомментировать строчку выше
  иначе только директории}

  then

    Form1.Memo1.Lines.Add(sr.Name); //Выводим результат в Memo

  until (findnext(sr)<>0);

  finally
  FindClose(sr);
end;
end;

procedure GetDir (foldername:string);

{процедура сбора директорий в директории}

var sr:tsearchrec;// сюда будем записывать

begin

Form1.Memo1.Lines.Clear;

// ШАГ 1 проверка корректности директории

{if foldername[length(foldername)] <>'\' then

foldername:=foldername+'\';

//Аналогично можно реализовать с IncludeTrailingPathDelimiter см. ниже

}

foldername:=IncludeTrailingPathDelimiter(foldername);

try

// ШАГ 2 Собственно поиск директории

if findfirst(foldername+'*.*',faAnyFile,sr)=0 then // если поиск успешен

repeat

//проверки, '..' - это родительский каталог

// '.' - это текущий каталог

// '' - это папка с пустым именем

not ((sr.Name='') or (sr.Name='..') or (sr.Name='.'))

and (sr.Attr=faDirectory) //только директории

{чтобы все файлы + директории - закомментировать строчку выше

иначе только директории}

then

Form1.Memo1.Lines.Add(sr.Name); //Выводим результат в Memo

until (findnext(sr)<>0);

finally

FindClose(sr);

end;

Posted in Без рубрики | Comments Off

Video. How to start Delphi UniGui Application under II7

Posted on 15.10.2015 by Stanislav_Panteleev

Posted in Delphi, UniGui | Comments Off

Delphi.LiveBindings. Связывание списков

Posted on 03.10.2015 by Stanislav_Panteleev

Сегодня с помощью LiveBindings попробуем связать 2 списка таким образом… В ListBox1 будет создаваться список из 10 элементов и автоматически переноситься в ListBox2 c помощью LiveBindings. Для этого с палитры компонентов нам понадобится BindingList1 2 раза кликаем на Bindinglist1 и … Continue reading →

Posted in Delphi, LiveBindings | Comments Off

Delphi. LiveBindings.Binding Expressions2

Posted on 02.10.2015 by Stanislav_Panteleev

В данном посте, сделаем почти всё тоже самое за исключением набора компонентов, он будет таким – 2 TrackBars и BindingList1

Posted in Без рубрики | Comments Off

Delphi. LiveBindings.Binding Expressions

Posted on 01.10.2015 by Stanislav_Panteleev

В данном посте свяжем Edit и Label с помощью BindingExpressions. Это ещё один вариант связывания объектов, кроме QuickBindings. Данный пример взят из книги Д. Осипова. Разместим на форме Edit, Label и BindingList. Два щелка по последнему и откроется редактор связей. … Continue reading →

Posted in Delphi, LiveBindings | Comments Off

Monthly Archives: October 2015

Как получить список дисков?

Delphi. Процедурные типы. Callback

Поиск директорий и файлов внутри директории

Video. How to start Delphi UniGui Application under II7

Delphi.LiveBindings. Связывание списков

Delphi. LiveBindings.Binding Expressions2

Delphi. LiveBindings.Binding Expressions

MY PROJECTS

Recent Posts

Categories