вопрос по 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) универсальность (для других движков)

Новые темы	Объявления	Свободное общение
13:54 Dao.AD: Монетизация и покупка Push/Pops/Inpage и Video трафика! 14:50 Индексация страниц 12:36 У кого новостник, дайте пару советов плиз 13:53 AviTool - мощный инструмент для автоматизации работы с Avito 17:01 Absence в Армении 23:19 Ребята подскажите какими сервисами и прогами вы пользуетесь для SEO продвижения? 14:50 Какую выбрать тему/нишу для сайта?	16:18 swapsfera.com 14:35 garantcoin.io - быстрый и надёжный сервис обмена криптовалюты GarantCoin 13:20 GoodsMoney.io 12:50 SpaceSwap.cc - Быстрый и надежный обменник криптовалют 12:29 CactusPay.PRO \| Умная платёжная система с выводом в USDT TRC-20 12:04 Яндекс Вордстат Extension - браузерное расширение для сбора семантики 11:49 A-Parser 1.1 - продвинутый парсер поисковых систем, Suggest, PR, DMOZ, Whois, etc	22:08 Накрутка поисковых подсказок 05:04 Точные прогнозы на футбол 14:01 Union Pharm - топовая фарма-партнерка для профессионалов! 10:59 Ням-ням! - 8 деликатесов, которые когда-то ели только бедные люди 12:23 150+ хакерских поисковых систем и инструментов 17:41 Стряхнуть обыденность - об Агасфере 10:54 Добро пожаловать в цифровой мир...