Главная страница
    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.037 c
3-1132681869
vladik
2005-11-22 20:51
2006.01.22
сколько записей обработано запросом


1-1134549868
neat
2005-12-14 11:44
2006.01.22
Включение/отключение компонента


2-1136673586
KvORubin
2006-01-08 01:39
2006.01.22
Мастера ХЕЛП !!! Как получить список имён файлов из каталога???


11-1117927273
rofl
2005-06-05 03:21
2006.01.22
Kol Memo: strange output on Items[] if item is just one byte


2-1135430288
аматор
2005-12-24 16:18
2006.01.22
работа с FileStream





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский