функционира SlashSep (Path, FName: низ): низ;

ако Path [Дължина (път)] на "тогава V Резултат: = Път + + FName друго

Резултат: = Път + FName; приключи;

siashsep функция вече се използва веднъж, но не забравяйте това, което се случва тук. Тази функция може да отнеме два параметъра - пътя и името на файла, че тя трябва да се комбинират в един ред, за да получите пълния път до файла. Но първо трябва да се провери дали пътят (първият резултат параметър - Път) завършва с V. ясен път - е тип низ: низ, което означава, че можем да се справя като характер масив. За да получите достъп до първия знак, че трябва да пиша Path.

Ние трябва да се провери последния знак, така че използвайте Дължина (Path) в квадратни скоби. Дължина функция връща дължината на променливата на низ премина към него, и това означава, че в скобите задаваме дължината на низа, т.е.. Д. последния знак.

Ако е необходимо предпоследния символ, ще пиша по Пътя [Дължина (Path) -1]. В този случай, дължината на низа, той изважда, а резултатът е индекс на предпоследния символ.

Ако последния знак не е равен на \\ го добавите първо, и след това името на файла. Ако характерът в низа е така, тогава ще трябва само да се добави името на файла и запишете в променлив резултат на това, че функцията връща пълния път до файла.

С тази функция е завършен и че е време да се върнем към нашия трансфер на файлове. След това идва предизвикателството на системна функция SHGetFileinfo. Тя връща информация за файла. Ние няма да се спирам на него. По принцип, това е просто и най-вероятно ще бъде в състояние да го разберат по кода и ако не, тогава ще се върнем към него по-късно.

Сега ние сме по-заинтересовани да работят с компонентен ListView. Следният код добавя нов елемент към списъка: Listviewi.items.Add. Това се прави в рамките на структурата с, а след това всички следващи стъпки между началото и края, ще се проведе с нов елемент. А именно - да се промени заглавието на нова точка:

Всеки елемент има Subitems имот, който съхранява допълнителна информация. Когато компонентът се съхранява в режим на умалено изображение, допълнителната информация не е видима. Но ако решите да ценим имот viewstyle vsReport, а след това на компонента ще се появи под формата на таблица, в която всяка колона показва допълнителна информация, както е показано на фиг. 11.38.

За да добавите допълнителни колони към новата позиция, трябва да изпълните оператора:

За да се появи колона, трябва да се уточни колоните в който се изброяват собственост. Ако имената на колоните не са посочени, не се показва нищо. И не забравяйте, че в описанието на първия говорител - е заглавието на елементите, от друга страна - това са допълнителни опции в реда, в който са добавени с помощта на subitems.Add.

И последното нещо, което ние трябва да се обмислят - е FileTimeToDateTimeStr функция, която преобразува формата на дата / час от системата в съответствие. Кодът може да се види в списъка:

функционира FileTimeToDateTimestr (FileTime: TFileTime): низ;

LocFTime: TFileTime; SysFTime: TSystemTime; Dt, Tm: TDateTime; започвам

FileTimeToLocalFileTime (FileTime, LocFTime); FileTimeToSystemTime (LocFTime, SysFTime); опитвам

с SysFTime направя започне

Dt: = EncodeDate (wYear, wMonth, wDay);

Тт: = EncodeTime (wHour / wMinute, wSecond, wMilliseconds);

Резултати: = DateTimeToStr (Dt + Тт); с изключение на

В самото начало ние даваме датата на файла в координирано универсално време (UTC). За да направите това, използвайте функцията FileTimeToLocalFileTime, която има два параметъра:

• Типове променлива TFileTime, да бъдат преведени;
• променливата, към която ще се запише резултата.

Втората стъпка превеждаме универсално време в системния часовник на вашия компютър. Това изисква функция FileTimeToSystemTime, което също два параметъра:

• Универсално време;
• резултат променлива.

Сега имаме данни, съхранявани в променлива от тип и sysFTime TSystemTime. SysFTime променлива от тип структура, и следните свойства:

• wYear - година;
• wMonth - месец;
• wDay - ден;
• wHour - часа;
• wMinute - минути;
• wsecond - секунди;
• wMilli секунди - милисекунди.

Всичко това, и ние трябва да ги конвертирате в един низ, но към днешна дата низ погледна под настройките на локалните системи. Ако се напише програма, която ще се извърши в един и същи вид на системата (например, в руската версия на Windows с датата и часа на представяне на български език), можете да използвате IntToStr, за да конвертирате всички области в низа и форматиране тях по своему.

Сега, обаче, се пристъпва по-универсално. Данните се включва за пръв път във формат DateTime. За тази цел има EncodeDate и EncodeTime функция. Тези функции създават променливи от тип TDate и TTime на базата на числени стойности, определени за тях.

След получаване на тези променливи, ние ги комбинирате в общ формат DateTime просто допълнение и се трансформира в низ посредством функция DateTimeToStr. Тази функция може да отнеме една дата, низ, в съответствие с местните настройки на региона в Windows. Можете да използвате и FormatDate функция, която може да създаде дата низ във всякаква форма.

Помогнете на проекта! Кажи на приятел за този сайт: