Главная страница
    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.47 MB
Время: 0.031 c
1-1134505284
Styx_
2005-12-13 23:21
2006.01.22
Алгоритм сортировки


2-1135845650
azl
2005-12-29 11:40
2006.01.22
Корректное завершение работы программы при выключении ПК


2-1135686772
vasa
2005-12-27 15:32
2006.01.22
Как запустить программу на серверее вроде PHP?


14-1135465488
Bakset
2005-12-25 02:04
2006.01.22
Вопрос про сервисы для гуру...


2-1136573999
frezz
2006-01-06 21:59
2006.01.22
чтение файла





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