Проектирование параллельных алгоритмов в задачах идентификации. Вашкевич Н.П - 46 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

4
6
#pragma hdrstop
#include <dir.h
#include <dos.h
#include <string.h
#include "result.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TOKBottomDlg *OKBottomDlg;
//---------------------------------------------------------------------
__fastcall TOKBottomDlg::TOKBottomDlg(TComponent* AOwner,char *ptr,bool file)
: TForm(AOwner)
{
strcpy(path,ptr);
ListBox1-Items-BeginUpdate();
try
{
ListBox1-Items-Clear();
if(!file)
{
dirItem=new TStringList();
dirItem-Clear();
dirItem-Sorted = true;
scanDir(path,dirItem);
for(int i=0; i<dirItem-Count;i++)
ListBox1-Items-Add(dirItem-Strings[i]);
}
else
/***********************************************************************
ЕСЛИ ВЫБРАН файл то:
строковая переменная path, заканчивающаяся нулем, содержит полный путь доступа к вы-
бранному файлу. Значение переменной path может быть использовано в качестве параметра для
функции поиска цепочек-образов.
***********************************************************************/
ListBox1-Items-Add(path);
ListBox1-Items-EndUpdate();
}
catch(...)
{
ListBox1-Items-EndUpdate();
throw;
}
}
//---------------------------------------------------------------------
void TOKBottomDlg::scanDir(char *path,TStringList *dirItem)
{
int err,count;
ffblk fileInfo;
char buf[1024];
if(path[strlen(path)-1]!='\\')
strcat(path,"\\");
strcpy(buf,path);
count=strlen(buf);
strcat(path,"*");
err = findfirst(path,&fileInfo,FA_DIREC);
while (!err) 
     #pragma hdrstop
     #include

Страницы