Форум: "Начинающим";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];

Вниз

все, наверное тут привыкли к подобным вопросам, но...   Найти похожие ветки 

← →
apv1989   (2006-12-17 22:50) [0]


       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;

---

← →
Dmitrij_K   (2006-12-17 22:54) [1]

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


---

← →
apv1989   (2006-12-17 22:57) [2]

sl := TStringList.Create;

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.017 c