Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Выполнение программы не до конца. 
V
    Опции темы
IamDreamer
Дата 4.3.2008, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
Код

procedure TForm1.Button1Click(Sender: TObject);
var file1: textfile;
i: integer;
begin
AssignFile(file1, 'c:\1.txt');
Rewrite(file1);
for i:=1 to FileListBox1.Count do
        Writeln(file1, ExtractFileName(FileListBox1.Items[i]));
CloseFile(file1);

end;


Программа простая: в файл 1.txt копирует имена файлов из FileListBox'a. При выполнении выдаёт ошибку "Project Project1.exe raised exception class EStringListError with message 'List index out of bound (13)'...". Я так понял, что что-то выходит за пределы дозволенного. Что именно? Файл 1.txt содержит имена файлов из папки, но не все.

Это сообщение отредактировал(а) IamDreamer - 4.3.2008, 20:37
PM MAIL WWW Jabber   Вверх
Alexeis
Дата 4.3.2008, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
  Нумерация с нуля до FileListBox1.Count - 1


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
IamDreamer
Дата 4.3.2008, 20:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
Спасибо. А FileListBox1.Count что возвращает?
PM MAIL WWW Jabber   Вверх
bems
Дата 4.3.2008, 20:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 18
Всего: 88
количество<>номер последнего


--------------------
Обижено школьников: 8
PM MAIL   Вверх
IamDreamer
Дата 4.3.2008, 20:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
Спасибо.
PM MAIL WWW Jabber   Вверх
IamDreamer
Дата 5.3.2008, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
А как можно имя .txt-файла изменитьть после того, как в него будут скопированы имена всех содержащихся в FileListBox'е файлов? Допустим, сначала просто создаётся процедурой AssignFile() файл 1.txt, а после его заполнения ему присваивается имя 'имя папки'.txt, например.




Это сообщение отредактировал(а) IamDreamer - 5.3.2008, 15:22
PM MAIL WWW Jabber   Вверх
THandle
Дата 5.3.2008, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Код

procedure TForm1.FClick(Sender: TObject);
var file1: textfile;
i: integer;
begin
AssignFile(file1, 'c:\\1.txt');
Rewrite(file1);
for i:=0 to FileListBox1.Count - 1 do
        Writeln(file1, ExtractFileName(FileListBox1.Items[i]));
CloseFile(file1);
Rename(file1, 'new file name');
end;


?

Это сообщение отредактировал(а) THandle - 5.3.2008, 16:23
PM   Вверх
IamDreamer
Дата 5.3.2008, 16:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
Как найти и удалить один символ?

Добавлено через 14 минут и 12 секунд
Или есть процедура/функция, которая запомнит последнюю папку? Например, файл прописан по адресу: C:\Inprise\vbroker\adm\impl_dir\. Результат должен быть "impl_dir".
PM MAIL WWW Jabber   Вверх
THandle
Дата 5.3.2008, 18:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
IamDreamer, функции не знаю честно говоря, хотя может быть и есть. Вот написал свою:

Код

function FileDir(const Dir : string) : string;
begin
  result := ExtractFileDir(Dir);
  delete(result, 1, LastDelimiter('\', result));
end;


Это сообщение отредактировал(а) THandle - 5.3.2008, 18:24
PM   Вверх
IamDreamer
Дата 5.3.2008, 18:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
Спасибо.
PM MAIL WWW Jabber   Вверх
Alexeis
Дата 5.3.2008, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Модератор: тема плавно уползла. Если есть новые вопросы, то нужно создавать отдельные темы.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0526 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.