Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

Помогите разобраться с Memo   Найти похожие ветки 

 
Giga   (2005-12-31 00:59) [0]

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


 
Johnmen ©   (2005-12-31 01:04) [1]

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


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

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


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

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

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) [4]

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


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

sorry 8(


 
Johnmen ©   (2005-12-31 01:24) [6]

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


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

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


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


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


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


 
Джо ©   (2005-12-31 02:10) [9]

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

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


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

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


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


Вроде так.


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

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


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

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

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


 
Khim ©   (2006-01-01 18:43) [13]

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


 
Джо ©   (2006-01-01 23:06) [14]


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

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


 
Anatoly Podgoretsky ©   (2006-01-01 23:11) [15]

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



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

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.026 c
14-1135778984
Kerk
2005-12-28 17:09
2006.01.22
Google Zeitgeist 2005


14-1135615175
Mystic
2005-12-26 19:39
2006.01.22
Небольшой вопросик по Delphi


8-1122625550
Billi332
2005-07-29 12:25
2006.01.22
Скопировать в буфер обмена 32bit Bitmap


14-1135511601
Greh
2005-12-25 14:53
2006.01.22
Новый Год!


2-1135804455
aleyna
2005-12-29 00:14
2006.01.22
Font Size selector