Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 23.10.2010, 23:39   #1
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию вывести количество строчек в Label

Как вывести количество строчек в Label из *.txt?

Последний раз редактировалось mihali4; 23.10.2010 в 23:45.
foxes вне форума
Старый 23.10.2010, 23:45   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

1. Прочитать *.txt в ListBox.
2. Label.Caption:=IntToStr(ListBox.Cou nt);
mihali4 вне форума
Старый 24.10.2010, 00:01   #3
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию

большое спасибо!!!
foxes вне форума
Старый 26.10.2010, 10:42   #4
Johnson
кривокодер ;)
Форумчанин
 
Аватар для Johnson
 
Регистрация: 20.06.2008
Сообщений: 707
По умолчанию

Код:
var
T:TstringList;
begin
T:=TstringList.Create;
T.LoadFromFile('sdgfsdg.txt');
Label1.Caption:=IntToStr(T.Count);
T.Free;
end;
СтрингЛист работает побыстрее ЛистБокса...
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид}
Johnson вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С# вывести количество слов начинающихся гласной TRAY Помощь студентам 6 15.06.2010 18:51
Доработка программы. Вывести количество итераций vitaly38 Помощь студентам 6 19.05.2010 21:47
Доработка программы. Вывести количество итераций vitaly38 Общие вопросы Delphi 2 19.05.2010 17:17
Delphi. Не получается вывести текст в Label murmuno Помощь студентам 4 26.03.2010 10:50
Вывести версию файла в Label artemavd Общие вопросы Delphi 20 11.01.2010 15:33