вопрос по Delphi

Сообщений: 646 Регистрация: Дек 2010

29 Июня 2012 17:15

Здравствуйте!
У меня есть готовая программа, которая из файла берет 1 строчку и проверяет (сравнивает) ее. Если совпадает то выводит в Edit если нет по переходит к другой. (и все это работает в фоновом режиме)
Скажите как сделать так, чтобы отображалось на экране (чтобы было видно) какую строчку сейчас проверяет и сколько проверило и сколько прошло
т.е. мне нужно чтобы в режиме реального времени отображало процесс работы!
Как такое сделать?

За ранее спасибо!!!

900 руб/сут на блоге с ТИЦ80 и 4000стр

6400руб/мес(7150стр, тиц30,пр2)

Продвинул ВЧ запрос в ТОП10 за 3 меc

Jawakharlal

Сообщений: 27 Регистрация: Фев 2012

29 Июня 2012 18:23

вот в коде, где берет из файла строку - сделай вывод на окно..

Александр

Сообщений: 646 Регистрация: Дек 2010

29 Июня 2012 19:42

дело в том, когда я вывожу результат на лабел или едит, то пишет ошибку:
Incompatible types: 'TEdit' and 'String'

Richard Kibler

Сообщений: 160 Регистрация: Дек 2011

29 Июня 2012 19:45

http://programmersforum.ru/ тут вам 100% помогут.

Александр

Сообщений: 646 Регистрация: Дек 2010

29 Июня 2012 19:52

Richard Kibler, спасибо за сайт!

Я сделал чтобы оно выводило или через совмессадже или через ЕДИт.
чтоб через едит выводило нужно было прописать:
Edit1.Text:=
а вот в лабел как правильно прописать?
Label1.что здесь прописать?:=

Антон

Сообщений: 124 Регистрация: Июн 2010

29 Июня 2012 19:58

Александр, если еще актуально, то могу помочь. Напишите мне в ЛС.

У нас Вы всегда найдете по самым низким ценам батареи для ноутбуков. Доставка по Украине бесплатно!

Maikl

Сообщений: 132 Регистрация: Сен 2010

29 Июня 2012 19:59

Вроде label1.caption:=
Эх, давно это было smile:confused:

Полезные скрипты для сайтов
Хостинг за 99 рублей

Александр

Сообщений: 646 Регистрация: Дек 2010

29 Июня 2012 20:02

Maikl, спасибо.
Точно же .Caption это же аналог .Text

Александр

Сообщений: 646 Регистрация: Дек 2010

29 Июня 2012 20:05

Спасибо это сделал.
А теперь как еще сделать так, чтобы еще считало в процентах допустим
выполнено 12/50 текущее YYYYY

Вот с текущим уже все ОК. а вот с 1 частью? какие есть у кого соображения?

Антон

Сообщений: 124 Регистрация: Июн 2010

#10

29 Июня 2012 20:12

Цитата
Александр пишет: Спасибо это сделал. А теперь как еще сделать так, чтобы еще считало в процентах допустим выполнено 12/50 текущее YYYYY Вот с текущим уже все ОК. а вот с 1 частью? какие есть у кого соображения?

Код
var str:String; value,sum:integer; ... value := 12; sum := 50; str := FloatToStrF( value/sum*100 ,ffFixed,4,2)+'%';

Изменено: Антон - 29 Июня 2012 20:15

Александр

Сообщений: 646 Регистрация: Дек 2010

#11

29 Июня 2012 20:17

Антон, проблема заключается в том, что пользователь может подключить к программе любой файл.
а в файле может и 10 строчек быть а может и 200.
Сложность в том, что нужно сначала посчитать количество строчек наверное

Александр Сообщений: 646 Регистрация: Дек 2010	#12 29 Июня 2012 22:10 Всем большое спасибо за ответы! Все сделал и все заработало. Осталось сделать только 2 задачи: 1) многопоточность 2) универсальность (для других движков)

Новые темы	Объявления	Свободное общение
21:22 Webvork - международная товарная СРА сеть с сертифицированными офферами на Европу. 16:18 Adtrafico - Правильная партнёрская сеть под бурж трафик 12:26 Bropush - твой бро в монетизации сайта push-уведомлениями 17:06 Perfect.Studio: InstAccountsManager — лучший инструмент для автоматизации заработка в Instagram 16:04 VKAccountsManager — лучший инструмент для продвижения и заработка Вконтакте 13:26 DreamCash.tl - заработок на онлайн-видео. До 95% отчислений, отличный конверт! 11:46 Dao.AD: Монетизация и покупка Push/Pops/Inpage и Video трафика!	06:49 Transit-Bit.com - Обмен USDT на IDR, THB, RUB и наличные 13:32 Coin Click.cc - Быстрый и надежный обмен электронных валют в два клика 11:17 Просто $0.04/IP 9PROXY.COM Резидентные прокси Неограниченная пропускная способность Уникальная политика замены Без чёрного списка 22:21 ProxyWins.com - 15% по промо-коду "venividivici" 17:00 Burzh.top\|Партнерская программа под любой вид трафика (email, спам, УБТ) 16:07 Ural-obmen.ru — выгодный сервис обмена 15:57 Obama.ru - безопасный обмен криптовалют и электронных денежных средств	11:02 Видимо, похороны СУПРа уже прошли как-то по-тихому 22:18 Добро пожаловать в цифровой мир... 23:41 Точные прогнозы на футбол 12:04 Как получить рефералов и посетителей на сайт бесплатно. 12:48 Каспкрски ОС 11:21 Ням-ням! - 8 деликатесов, которые когда-то ели только бедные люди 14:41 Бесплатный мини-аудит юзабилити и конверсии + технический SEO-аудит в подарок