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

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

Помогите разобраться с Memo

Giga ©   (2005-12-31 00:59:00) 

Нужно загрузить из текстового файла в мемо первые 52 строки а остольные удалить . Кол строк в текстовом файле 120

---

Anatoly Podgoretsky   (2006-01-01 23:11:00) [1]

Кефир87 ©   (31.12.05 02:13) [11]
Вопрос сложнее чем кажется.
О каких строках идет речь в Мемо или в файле, они могут не совпадать.

---

Джо   (2006-01-01 23:06:00) [2]

> [13] Khim ©   (01.01.06 18:43)
> Memo.Lines.Clear // Удаляет все строки

Класс!! Простенько и со вкусом — действительно, зачем Мемо засорять всякими строками :)

---

Khim   (2006-01-01 18:43:00) [3]

Memo.Lines.Clear // Удаляет все строки

---

Johnmen   (2005-12-31 02:19:00) [4]

>Кефир87 ©   (31.12.05 02:13) [11]

Совершенно верно. Если не надо, то и не читать.
Но возникает 2 вопроса - что  эффективнее и что короче с т.з. кода?

---

Кефир87   (2005-12-31 02:13:00) [5]

Тока я не понимаю зачем удалять лишние строки, если их можно просто не загружать 8) см. мой дубльпост 8)

---

Кефир87   (2005-12-31 02:11:00) [6]

Ну хорошо. Тогда


Memo1.Lines.LoadFromFile('filename.txt');
for i := Memo1.Lines.Count-1 downto 51 do
 Memo1.Lines.Delete(i);


Вроде так.

---

Джо   (2005-12-31 02:10:00) [7]

[7] Giga   (31.12.05 01:35)
> Memo.Lines.LoadFromFile(.тут писать номер строки?..);

"Тут" писать имя файла.

---

Германн   (2005-12-31 02:09:00) [8]

> Giga   (31.12.05 01:35) [7]
>
> споСибо всем
> а
> Memo.Lines.LoadFromFile(.тут писать номер строки?..);
> <удаляем ненужные строки>


А зачем два раза делать одно и то же?

---

Giga   (2005-12-31 01:35:00) [9]

споСибо всем
а
Memo.Lines.LoadFromFile(.тут писать номер строки?..);
<удаляем ненужные строки>

---

Johnmen   (2005-12-31 01:24:00) [10]

Memo.Lines.LoadFromFile(...);
<удаляем ненужные строки>

---

Кефир87   (2005-12-31 01:21:00) [11]

sorry 8(

---

Кефир87   (2005-12-31 01:20:00) [12]

Что-то в этом духе может?

var
 f : TextFile;
 i  : integer;
 s : string;
begin
 Memo1.Clear;
 AssignFile(f, 'filename.txt');
 Reset(f);
 for i := 0 to 51 do
 begin
   Readln(f, s);
   Memo1.Lines.Add(s);
 end;
 CloseFile(f);
end;


---

Кефир87   (2005-12-31 01:20:00) [13]

Удалено модератором

---

Giga   (2005-12-31 01:05:00) [14]

как удалить строки?

---

Johnmen   (2005-12-31 01:04:00) [15]

В чём проблема?

---

Наверх