Не сте регистриран! Регистрирайте се БЕЗПЛАТНО, за да използвате услугите на сайта!

   Рубрики
 
 
 
 

 Форуми
» SEO и оптимизация
» Всичко за PHP и Perl
» Всичко за C, C++ и .NET
» Всичко за Java и JSP
» Всичко за SQL и MySQL
» Всичко за XHTML и CSS
» Презентация на сайтове
 Структура на едно Delphi-приложение 3
  1. Структура на едно Delphi-приложение 3
  2. Структура на едно Delphi-приложение 3 - II
  3. Структура на едно Delphi-приложение 3 - III
     
Автор  dweray (05.04.2006 17:14)  съобщение до автора
Погледнат  4520 пъти  добави към любими
Оценка  добави коментар
Гласове  4  изпрати на приятел
Коментари  (0)  абонирай се за Delphi
    Страница 3 / 3

 



Четене и запис в текстов файл:
CODE
1
procedure Write( [var F: Text; ] P1 [ , P2,..., Pn] );
Процедурата Write записва една или повече променливи в текстов файл. Всеки параметър P включва изходен израз, чиято стойност ще бъде записана във файла.
CODE
1
procedure Read( [ var F: Text; ] V1 [, V2,...,Vn ] );
Процедурата Read чете една или повече стойности в една или повече променливи.
CODE
1
procedure Readln([ var F: Text; ] V1 [, V2, ...,Vn ] );
Процедурата Redln чете един ред от текстов файл, след което преминава към следващия ред на файла.
Четене и запис в двоичен файл:
CODE
1
procedure Write(F, V1,...,Vn);
Процедурата Write записва променливите V във файл.
CODE
1
procedure Read(F , V1 [, V2,...,Vn ] );
Процедурата Read чете един файлов компонент в променлива.
За да получите размера на файла, използвайте функцията FileSize:
CODE
1
function FileSize(var F): Integer;
Тази функция можете да използвате само ако файлът е отворен с Reset. Ако файлът е празен, тя връща стойност 0.
Текущата файлова позиция можете да получите от функцията FilePos:
CODE
1
function FilePos(var F): Longint;

Тази функция не може да се използва за текстови файлове. Преди да я извикате трябва да отворите файла с Reset.
 
Position                       Result
Beginning of file FilePos(F) = 0  
Middle of file FilePos(F) = current file position  
End of file                 Eof(F) = True
 
CODE
1
procedure Seek(var F; N: Longint);
Процедурата Seek премества текущата файлова позиция на компонент, указан от променливата N. Номерът на първия файлов компонент е 0.
Пр.:
CODE
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
   f
: file of Byte;
  
size : Longint;
  
S: string;
  
y: integer;
 
begin
  
if OpenDialog1.Execute then begin
     AssignFile
(f, OpenDialog1.FileName);
    
Reset(f);
    
size := FileSize(f);
    
S := 'File size in bytes: ' + IntToStr(size);
    
y := 10;
    
Canvas.TextOut(5, y, S);
    
y := y + Canvas.TextHeight(S) + 5;
    
S := 'Seeking halfway into file...';
    
Canvas.TextOut(5, y, S);
    
y := y + Canvas.TextHeight(S) + 5;
    
Seek(f,size div 2);
    
S := 'Position is now ' + IntToStr(FilePos(f));
    
Canvas.TextOut(5, y, S);
    
CloseFile(f);
  
end;
 
end;

FileListBox
Компонентът FileListBox предоставя интерфейс за достъп до файловете в дадене директория и може да се разглежда като списък от файлове. По подразбиране се показват всички файлове в директорията. За да покажете само определени файлове, използвайте свойството Mask. При дефинирането на филтри са в сила специалните символи на DOS. Филтрите отделяйте със символа “ ; ”. Името на избрания от потребителя файл можете да получите от свойството FileName:
CODE
1
property FileName: string;
Свойството Directory ви показва директорията на файловете визуализирани в компонента:
CODE
1
property Directory: string;
Достъп до елементите на компонента имате посредством свойството Items. За да изберете едновременно няколко файла, използвайте свойството MultiSelect.

DirectoryListBox
Компонентът DirectoryListBox се използва за избор на директория. Името на избраната директория можете да получите от свойството Directory, което е от тип String. Свойството Drive ви дава устройството, чиято структура от директории се визуализира. За да визуализирате файловете от текущо избраната директория в компонент FileListBox, използвайте свойството FileList:
CODE
1
property FileList: TFileListBox;
Ако желаете да показвате директориите в повече от една колонка, актуализирайте стойността на свойството Columns.

DriveComboBox
Компонентът DriveComboBox ви предоставя интерфейс за достъп до дисковите устройства. Свойството Drive ви дава текущо избраното устройство. Свойството TextCase указва дали устройствата ще се показват с малки или големи букви. Чрез свойството DirList можете да свържете компонента DriveComboBox с компонента DirectoryListBox. По този начин, когато потребителя сменя устройството, списъка с директориите автоматично ще се актуализира.
CODE
1
property DirList: TDirectoryListBox;

FilterComboBox
Компонентът FilterComboBox предоставя възможност на потербителя да избира файлови филтри. За да зададете филтри, използвайте свойството Filter. Създаването на филтри се подчинява на следните правила:
1. Задайте кратък текст, обозначаващ типа на файла;
2. Поставете символа “ | ”;
3. Задайте филтър.
Филтрите се отделят със символа “ | ”.
Пр.:
CODE
1
'Text files (*.TXT)|*.TXT|Pascal files (*.PAS)|*.PAS'
За да получите избрания филтър, използвайте свойството Mask.



 << Предишна страница  


Ключови думи: delphi приложение труктура на приложение


Още уроци от тази рубрика


 
  • Подобни теми от myLinks
 

 За автора: dweray  
Всички мои статии можете да прочетете също на http://pcaddict.info
   
 1 посетител чете този урок (0 потребители и 1 гост)  
Активни потребители: ---
   
  

Еmail  
 

 

 
  • Интересно от Софтуер
 



IT-PLACE.NET © 2004 - 2008