IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Функция findfirst();
Polymorph
сообщение 28.09.2003 16:34
Сообщение #1





Группа: Пользователи
Сообщений: 4

Репутация: -  0  +


Как сделать так, чтобы функция findfirst(); найденный файл прикрепляла к переменной типа text? Помогите, а то я уже замучился совсем! ??? ???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
GLuk
сообщение 1.10.2003 18:51
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 775
Пол: Мужской

Репутация: -  0  +


На всякий так сказать случай добавляю:
Пример кода юзая этот тип и ф-ию FindFirst:

Uses Dos;

Var
  D:SearchRec;
  T:Text;
Begin
    FindFirst('couldbe.fnd',Archive, DirInfo);
    Assign(T,D.Name);
    Reset(T);

    {..........}

    Close(T);
End.

А по совести все это есть в пасовом хелпе...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Polymorph   Функция findfirst();   28.09.2003 16:34
GLuk   Re: Функция findfirst();   28.09.2003 19:41
Polymorph   Re: Функция findfirst();   29.09.2003 11:06
GLuk   Re: Функция findfirst();   29.09.2003 11:17
Roux   Re: Функция findfirst();   29.09.2003 19:28
GLuk   Re: Функция findfirst();   29.09.2003 19:57
Polymorph   Re: Функция findfirst();   30.09.2003 13:23
GLuk   Re: Функция findfirst();   30.09.2003 14:21
APAL   Re: Функция findfirst();   30.09.2003 15:10
GLuk   Re: Функция findfirst();   1.10.2003 18:51
Roux   Re: Функция findfirst();   3.10.2003 20:47
GLuk   Re: Функция findfirst();   4.10.2003 7:14
AlaRic   Re: Функция findfirst();   4.10.2003 8:41


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 26.07.2025 11:46
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"