Главная страница
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.027 c
14-1135500103
TUser
2005-12-25 11:41
2006.01.22
Давно возникло мнение


14-1135585883
ilya39
2005-12-26 11:31
2006.01.22
версия ADO


2-1135753845
Andrey235
2005-12-28 10:10
2006.01.22
Проблема с delphi 6 !!!!!!!


2-1136467704
Seraphim
2006-01-05 16:28
2006.01.22
Взаимодействие Программ


2-1136405133
lex85
2006-01-04 23:05
2006.01.22
закладки