Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];

Вниз

Помогите разобраться с 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.053 c
2-1136286456
Стелс
2006-01-03 14:07
2006.01.22
Пожалуйста помогите


1-1134721882
Alex_KV
2005-12-16 11:31
2006.01.22
Перевод заголовочного файла С


4-1131958325
Чапаев
2005-11-14 11:52
2006.01.22
Отловить момент запуска приложений


14-1135803242
Igorioha
2005-12-28 23:54
2006.01.22
Firebird


14-1135757123
Чапаев
2005-12-28 11:05
2006.01.22
Flash





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский