|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.11.2007, 23:01 | #1 |
Пользователь
Регистрация: 17.03.2007
Сообщений: 39
|
проблема с массивом
у меня допустим в listbox1 есть пути к файлам txt, я их хочу загрузить по очереди в memo, т.е. загрузить их содержимое. как это сделать?
Проблема в том что путей в listbox много, и если указать listbox1.Items[1] то загрузится только один файл txt в memo а мне надо чтобы загрузились все файлы txt указаные в listbox, как так можно сделать? через масивы или как? чтобы по очереди сам автоматически переберал все пути и загружал по ним txt файлы в memo. procedure TForm2.Button1Click(Sender: TObject); var i: string; begin Memo1.lines.loadfromfile('listbox1. Items[i]); end; |
06.11.2007, 23:23 | #2 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
Всё проще чем думаете
[CODE]
procedure TForm1.Button2Click(Sender: TObject); Var I :Integer; Lst :TStrings; begin Memo1.Lines.Clear; Lst := TStringList.Create; try For I:=0 To ListBox1.Items.Count-1 Do begin Lst.Clear; Lst.LoadFromFile( ListBox1.Items.Strings[I] ); Memo1.Lines.AddStrings( Lst ); end; finally Lst.Free; end; end; [CODE] |
06.11.2007, 23:56 | #3 |
Пользователь
Регистрация: 17.03.2007
Сообщений: 39
|
Спасибо! работает
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
проблема с массивом | kommunist | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 27.05.2010 19:00 |
Проблема с динамическим массивом | dee_lv | Помощь студентам | 7 | 09.06.2008 16:58 |
проблема с массивом | kommunist | Помощь студентам | 6 | 14.11.2007 18:36 |
проблема с динамическим массивом | kommunist | Помощь студентам | 6 | 11.11.2007 21:18 |
проблема с массивом | kommunist | Помощь студентам | 4 | 31.10.2007 17:11 |