| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

все, наверное тут привыкли к подобным вопросам, но... [D7]

apv1989 ©   (2006-12-17 22:50:00) 


       for i := 0 to Files.Items.Count-1 do
       begin
       application.ProcessMessages;
//        Memo2.Text:=Memo1.Text;
       Memo2.Lines.LoadFromFile(Files.Items.Strings[i]);
       Memo1.Lines.Add(ExtractFileName(Files.Items.Strings[i]));
       Memo1.Lines.Add(Memo2.Text);
CODE>
КАК ЭТО СДЕЛАТЬ НЕ ИСПОЛЬЗУЯ дополнительную Memo2?

и как это сделать не создавая на форме ненужных списков
 ScanDir(ExtractFileDir(temp)+'\img, '', LocalUsers.Items);
 for i := 0 to LocalUsers.Items.Count-1 do
 begin
   ScanDir(ExtractFileDir(LocalUsers.Items.Strings[i]),'',Folders.Items);
 end;
 for i := 0 to Folders.Items.Count-1 do
 begin
   ScanFile(ExtractFileDir(Folders.Items.Strings[i]),'*.bmp',Files.Items);
 end;

---

apv1989   (2006-12-17 22:57:00) [1]

sl := TStringList.Create;

ну, точно!!!! это же так записывается

---

Dmitrij_K   (2006-12-17 22:54:00) [2]

Создай временный TStringList
var sl : TStringList;
begin
 sl := TStringList.Create;
 ...
 sl.Text := 'text';
 sl.LoadFromFile('file.txt');
 sl.Add('lalala');
 sl.Add('lalala');
 ...
 sl.Free;
end;


---

Наверх