VPF::Автоматическое открытие текстовых файлов.

Vladimir_K

Дата 17.4.2007, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

Подскажите, как, указав папку, реализовать программное открытие находящихся в ней текстовых файлов?
Количество и имена файлов заранее неизвестны.
Порядок такой:
1) указать конкретную папку;
2) нажать кнопку Пуск;
3) содержимое первого по-порядку файла загружается в окно RichEdit;
4) обработка файла;
5) сохранение файла;
6) открытие следующего файла;
7) и т.д.
8) остановка, когда все файлы из папки обработаны.

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Snowy

Дата 17.4.2007, 17:22 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

FindFirst + F1

ama_kid

Дата 17.4.2007, 17:22 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 9
Всего: 95

FindFirst/FindNext

--------------------

самурай без меча подобен самураю с мечом, но только без меча

Vladimir_K

Дата 17.4.2007, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

Что-то я не очень понял...
Как это сделать-то? smile

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

z-END

Дата 17.4.2007, 18:30 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: нет
Всего: 102

Цитата(Vladimir_K @ 17.4.2007, 19:25

)

Как это сделать-то?

дык.. руками или деньгами smile

вызываем диалог обзора папок (или пишем свой)
выполнем поиск всех текстовых файлов, заносим их в массив
потом крутим цикл по всем элементам полученного массива (окртываем, редактируем,сохраняем)

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Vladimir_K

Дата 17.4.2007, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

Как вызвать диалог обзора папок? Чтобы выбрать можно было именно папку а не конкретный файл в ней?

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Vladimir_K

Дата 17.4.2007, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

Код


procedure TForm1.Button1Click(Sender: TObject);
var F:TSearchRec;
    ires:integer;
    sdirtxt:string;
begin
 ires:=FindFirst(sdirtxt,faAnyFile,F);
 while ires=0 do
  begin
   RichEdit1.Lines.LoadFromFile(F.Name);//Отобразить содержимое файла
   .
   .
   ires:=FindNext(F);
  end;

end;

Как-то так...
А как задать каталог в переменную sdirtxt?

Это сообщение отредактировал(а) Vladimir_K - 17.4.2007, 19:55

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

z-END

Дата 18.4.2007, 09:23 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: нет
Всего: 102

Цитата(Vladimir_K @ 17.4.2007, 20:45

)

А как задать каталог в переменную sdirtxt?

может вам инструкцию по пользованию поиском распечатать? smile

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Akella

Дата 18.4.2007, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Цитата(z-END @ 17.4.2007, 18:30

)

или деньгамиsmile

наглёш

Добавлено @ 11:01

Код


Procedure TfmUpdateInfo.GetArchivesToUpload(Dir:String);
Var
 SearchRec:TSearchRec;
begin
 try
   if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir);
   if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
     repeat
       if (SearchRec.name='.') or (SearchRec.name='..') then continue;
       if ((SearchRec.Attr and faDirectory)<>0) then
         GetArchivesToUpload(Dir+SearchRec.name) //we found Directory: "Dir+SearchRec.name"
       else  begin

             if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.RTF' then   EditFile(Dir+SearchRec.name);

       end;//else
     until FindNext(SearchRec)<>0;
   FindClose(SearchRec);

 finally
   //
 end;
end;

а в EditFile() уже извращаешься как хочешь, открываешь, редактируешь, закрываешь ну и т.д.

Это сообщение отредактировал(а) Akella - 18.4.2007, 11:03

z-END

Дата 18.4.2007, 11:04 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: нет
Всего: 102

Цитата(Akella @ 18.4.2007, 11:58

)

наглёш

оффтоп

все можно сделать или самому или за вознаграждение smile

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Akella

Дата 18.4.2007, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

На Винграде советы дают и оказывают помощь бесплатно, за иск. той ветки, где явно подразумевается вознаграждения за помошь. smile

Добавлено через 25 секунд
а ты намекаешь ему.... вместо помощи....

Добавлено через 2 минуты и 2 секунды

Цитата(z-END @ 18.4.2007, 11:04

)

все можно сделать или самому или за вознаграждение

или обратиться к нам на форум smile

z-END

Дата 18.4.2007, 11:16 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: нет
Всего: 102

Цитата(Akella @ 18.4.2007, 12:09

)

или обратиться к нам на форум

к вам на форум и обратились.. так что пиши код smile

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Vladimir_K

Дата 18.4.2007, 15:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

Спасибо, конечно за помощь, но я думал это будет попроще сделать, типа использования OpenDialog...
Как работать с этой процедурой: procedure TfmUpdateInfo.GetArchivesToUpload(Dir:String); я вообще понятия не имею. Ну нет у меня таких знаний.
Попробую разобраться, что там к чему, а нет, так использую другой путь.
Но все равно всем спасибо за помощь. Или почти всем...

А поиск по запросу "диалог обзора папок" ничего не дал.

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

z-END

Дата 18.4.2007, 15:16 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: нет
Всего: 102

Цитата(Vladimir_K @ 18.4.2007, 16:04

)

А поиск по запросу "диалог обзора папок" ничего не дал.

а синонимы проверить сил конечно же нет...
обзор папок/выбор папки/обзор директории/ выбрать директорию/выбрать каталог/
самому не догадаться?

Цитата(Vladimir_K @ 18.4.2007, 16:04

)

Как работать с этой процедурой: procedure TfmUpdateInfo.GetArchivesToUpload(Dir:String); я вообще понятия не имею. Ну нет у меня таких знаний.

может сначала мат.часть почитать? smile

тебе дали готовый кусок кода. который нужно вставить тебе в форму и вызывать по нажатию на твой "ПУСК"

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Akella

Дата 19.4.2007, 08:34 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Код


Procedure ScanFilder(Dir:String);
Var
 SearchRec:TSearchRec;
begin
 try
   if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir);
   if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then//если что-то нашли
     repeat
       if (SearchRec.name='.') or (SearchRec.name='..') then continue;//если это не каталоги и не файлы, то пропускаем
       if ((SearchRec.Attr and faDirectory)<>0) then//
         ScanFilder(Dir+SearchRec.name) //нашли папку и вызываем опять саму себя - рукурсия называется
       else  begin//если попалась не папка, а файл, то вот он родной, нужно узнать расширение
             
           if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.RTF' then   EditFile(Dir+SearchRec.name);//если расширение "наше", то вызываем функцию EditFile(), а вот уже эту функцию пиши сам, никто не знает точно что ты в ней будешь делать!!!
       end;//else
     until FindNext(SearchRec)<>0;
   FindClose(SearchRec);//заканчиваем поиск
 finally
   //
 end;
end;

Vladimir_K

Дата 19.4.2007, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

Я использовал вот какой код:

Код


uses ShellAPI, ShlObj; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
 TitleName : string;   
 lpItemID : PItemIDList;   
 BrowseInfo : TBrowseInfo;   
 DisplayName : array[0..MAX_PATH] of char;   
 TempPath : array[0..MAX_PATH] of char;  
  
begin 
 FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);   
 BrowseInfo.hwndOwner := Form1.Handle;   
 BrowseInfo.pszDisplayName := @DisplayName;   
 TitleName := 'Please specify a directory';   
 BrowseInfo.lpszTitle := PChar(TitleName);   
 BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;   
 lpItemID := SHBrowseForFolder(BrowseInfo);   
 if lpItemId <> nil then begin    
 SHGetPathFromIDList(lpItemID, TempPath);   
 ShowMessage(TempPath);   
 GlobalFreePtr(lpItemID);    
 end;    
end;

В теме, в которой я его нашел, сказано следующее:

Цитата

Код работает , но мне нужно чтобы запоминался путь к последней выбранной папке и при повторном выборе папки предлагался бы выбор с ранее выбранной папки.
А в даном коде выбор папки всегда начинается с "Мой компьютер".
Как выбрать папку , с возможностью запоминания ранее выбраной папки?(Чтобы вводить несколько папок с одного места на диске последовательно)

После этого:

Цитата

Извените , что поспешил задать вопрос ,нашел решение сам:
В JEDI есть компонента JvSelectDirectory,она решила мою проблему.

И больше никаких подробностей. Но мне этого мало.

Подскажите, как использовать эту компоненту: JvSelectDirectory?

Это сообщение отредактировал(а) Vladimir_K - 19.4.2007, 17:52

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Vladimir_K

Дата 19.4.2007, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

И почему-то для правильной работы моей программы, она должна находиться в той же папке, где и текстовые файлы... Иначе - не работает. Поэтому, наверное, и со вложенными папками ничего не получается?
В принципе, мне запоминание последней открытой папки не нужно, если программа сможет открывать файлы из папки, которую я укажу и из вложенных в нее папок!

Это сообщение отредактировал(а) Vladimir_K - 19.4.2007, 22:17

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Vladimir_K

Дата 22.4.2007, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

Akella, спасибо за выложенные коды, я пытался разобраться в них, но так как я очень слаб в Delphi, я не смог применить Ваш код (исправить "ошибки", которые вывалила моя Delphi7 на Ваш код), сколько я с ним не бился smile

Вот мой код:

Код


//------------------------------------------------------------------------------
// Указать папку
//------------------------------------------------------------------------------
procedure TForm1.BOpenDirClick(Sender: TObject);
var 
 TitleName : string;   
 lpItemID : PItemIDList;   
 BrowseInfo : TBrowseInfo;   
 DisplayName : array[0..MAX_PATH] of char;   
 TempPath : array[0..MAX_PATH] of char;    //Адрес папки
 F:TSearchRec;
 ires:integer;
 i,ns:integer;
 z:string;

begin 
 FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);   
 BrowseInfo.hwndOwner := Form1.Handle;   
 BrowseInfo.pszDisplayName := @DisplayName;
 TitleName := 'Please specify a directory';
 BrowseInfo.lpszTitle := PChar(TitleName);
 BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
 lpItemID := SHBrowseForFolder(BrowseInfo);
 if lpItemId <> nil
  then begin
   SHGetPathFromIDList(lpItemID, TempPath);
   GlobalFreePtr(lpItemID);
  end;

 ires:=FindFirst(TempPath+'\*.txt',faAnyFile,F); //Найти первый txt файл
 while ires=0 do                                                 //Найти и изменить все файлы из папки (и из вложенных папок - если есть)
  begin
   RichEdit1.Lines.LoadFromFile(F.Name);         //Отобразить содержимое файла

// Здесь идет просмотр файла, изменение его (если нужно), и т.д.
// Код я написал сам, приводить его здесь нет смысла - вряд ли он кого-то заинтересует...

   RichEdit1.Lines.SaveToFile(F.Name);             //Сохранение файла
   RichEdit1.Clear;


   ires:=FindNext(F);                    //Найти следующий txt файл
  end;
 FindClose(F);                         //Завершение поиска
end;

Проблема такая: моя программа может открыть txt файлы только из папки, в которой находится сама программа. Из других папок файлы не открываются.
DRKB3 Full скачал (за 2.5 часа smile

) ищу ответ там, но что-то никак не найду...
Может быть, кто-то из вас, о, Великие и Мудрые снизойдет до решения моей задачи?

Это сообщение отредактировал(а) Vladimir_K - 22.4.2007, 13:32

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

VladBD

Дата 22.4.2007, 19:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 19.11.2006

Репутация: нет
Всего: 5

Хочешь просто - бери OpenDialog, кидай на форму. При старте программы можешь начальный путь указать или расширение по умолчанию - но это не обязательно. Главное укажи мультиселект - чтобы несколько файлов можно было выделять...
Потом в обработчике Button1 пишешь

Код


  if opendialog1.execute=false then Exit;
  for i:=0 to opendialog.files.count do
  begin
     здесь обрабатывай текущий файл
     opendialog.files[i] - это имя I-того выбранного файла 
  end;

Vladimir_K

Дата 23.4.2007, 08:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

Нет, OpenDialog здесь не поможет. smile

Мне нужно указывать не отдельные файлы, а папку целиком (в которой находятся вложенные папки, а в них *.txt файлы - и прога должна уметь их все находить, и открывать).

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Akella

Дата 23.4.2007, 08:40 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Цитата(Vladimir_K @ 22.4.2007, 13:30

)

я не смог применить Ваш код (исправить "ошибки", которые вывалила моя Delphi7 на Ваш код), сколько я с ним не бился

какие именно ошибки?

наверное тебе так нужно сделать:
в верху юнита, есть раздел private

объяви там процедуру, и обрати внимание на TForm1 - замени на свою форму

Код


  private
    { Private declarations }
     Procedure ScanFilder(Dir:String);
...
...
  public
    { Public declarations }
...

implementation

{$R *.dfm}


Procedure TForm1.ScanFilder(Dir:String);
Var
 SearchRec:TSearchRec;
begin
 try
   if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir);
   if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then//если что-то нашли
     repeat
       if (SearchRec.name='.') or (SearchRec.name='..') then continue;//если это не каталоги и не файлы, то пропускаем
       if ((SearchRec.Attr and faDirectory)<>0) then//
         ScanFilder(Dir+SearchRec.name) //нашли папку и вызываем опять саму себя - рукурсия называется
       else  begin//если попалась не папка, а файл, то вот он родной, нужно узнать расширение
             
           if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.RTF' then   EditFile(Dir+SearchRec.name);//если расширение "наше", то вызываем функцию EditFile(), а вот уже эту функцию пиши сам, никто не знает точно что ты в ней будешь делать!!!
       end;//else
     until FindNext(SearchRec)<>0;
   FindClose(SearchRec);//заканчиваем поиск
 finally
   //
 end;
end;

Vladimir_K

Дата 23.4.2007, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

Так, это сделал:

Код


private
    { Private declarations }
     Procedure ScanFilder(Dir:String);

Теперь набросок того, что по-моему должно быть:

Код


//==============================================================================
procedure TForm1.Button1Click(Sender: TObject);//По нажатию этой кнопки открывается папка (со вложенными папками с файлами), файлы обрабатываются, и сохраняются.
begin
 ScanFilder(Dir);
end;

procedure EditFile(Dir+SearchRec.name);
begin
 RichEdit1.Lines.LoadFromFile(F.Name);         //Отобразить содержимое файла

//Здесь мой код обработки файла...

 RichEdit2.Lines.SaveToFile(F.Name);           //Сохранение файла
end;

Procedure ScanFilder(Dir:String);
Var
 SearchRec:TSearchRec;
begin
 try
  if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir);
  if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then//если что-то нашли
   repeat
    if (SearchRec.name='.') or (SearchRec.name='..') then continue;//если это не каталоги и не файлы, то пропускаем
    if ((SearchRec.Attr and faDirectory)<>0) then//
         ScanFilder(Dir+SearchRec.name) //нашли папку и вызываем опять саму себя - рукурсия называется
     else
      begin//если попалась не папка, а файл, то вот он родной, нужно узнать расширение
       if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.TXT' then EditFile(Dir+SearchRec.name);//если расширение "наше", то вызываем функцию EditFile(), а вот уже эту функцию пиши сам, никто не знает точно что ты в ней будешь делать!!!
      end;//else
   until FindNext(SearchRec)<>0;
  FindClose(SearchRec);//заканчиваем поиск
 finally
   //
 end;
end;
//==============================================================================

Как правильно написать обработчик Button1Click?
EditFile(Dir+SearchRec.name), наверное надо написать процедурой, а не функцией?

Это сообщение отредактировал(а) Vladimir_K - 23.4.2007, 14:21

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Akella

Дата 24.4.2007, 08:08 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Код



private
    { Private declarations }
     Procedure ScanFolder(Dir:String);
     procedure EditFile(FileName:string);
......


implementation

....
procedure TfmMain.EditFile(FileName:string);
begin
 RichEdit1.Lines.LoadFromFile(FileName);         //ЗАГРУЗИТЬ содержимое файла

//Здесь мой код обработки файла...

 RichEdit2.Lines.SaveToFile(FileName);           //Сохранение файла
end

Procedure TfmMain.ScanFolder(Dir:String);
Var
 SearchRec:TSearchRec;
begin
 try
  if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir);
  if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then//если что-то нашли
   repeat
    if (SearchRec.name='.') or (SearchRec.name='..') then continue;//если это не каталоги и не файлы, то пропускаем
    if ((SearchRec.Attr and faDirectory)<>0) then//
         ScanFilder(Dir+SearchRec.name) //нашли папку и вызываем опять саму себя - рукурсия называется
     else
      begin//если попалась не папка, а файл, то вот он родной, нужно узнать расширение

       if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.TXT' then EditFile(Dir+SearchRec.name);

      end;//else
   until FindNext(SearchRec)<>0;
  FindClose(SearchRec);//заканчиваем поиск
 finally
   //
 end;
end;

Добавлено через 2 минуты и 26 секунд
Но я бы на твоём месте не делал так в цикле, а в цикле (FindeFolder(....) ) загрузил бы в список все найденные файлы, и показал бы пользователю список. Пусть сам выбирает.

Vladimir_K

Дата 24.4.2007, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: нет
Всего: 1

Ура, заработало! smile

Спасибо, Akella, огромное!
А пользователь у этой программы один будет - я, так что все путём! smile

P.S. Совсем забыл спросить: как в DRKB искать фразу целиком? А то я ввожу фразу для поиска, а оно мне винегрет из отдельных слов находит...

Это сообщение отредактировал(а) Vladimir_K - 24.4.2007, 19:01

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

Martisha

Дата 25.11.2008, 09:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1

e у ня похожаяситуация, только у меня папка уже известна из которой текстовые файлы берутся, это папка каждый час обновляется..что мне поменять нужно в этом коде? т.е. задача загрузить из известной папки текстовые файлы в эдит, ну и обработать их потом..

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »