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

Новые темы	Объявления	Свободное общение
14:01 Стоит ли добавлять сайт в Rambler топ 100? 19:07 25.12.25 Апдейт Яндекс выдача 18:52 "Осталось 5 дн. до НГ" АПдейт Яндекс выдача 18:49 Ссылки с сайтов РБ 17:01 Gambling Craft - гемблинг по белому 15:59 SEO под нейро 15:30 С наступающим Новым годом! АП Яндекс ИКС 23.12.2025	14:49 E-currency.exchange — ваш помощник в мире обменов 17:56 PonyBit.ru - обменный пункт PonyBit.ru (Понибит.ру) 13:58 Full-Stack Developer — Сайты и Софт любой сложности \| Developer Websites and Soft of any Complexity! 08:52 Мониторинг обменников Сrypto-scout.io 08:28 TELEGRAM EXPERT — Многоцелевой комбайн по работе с Telegram 05:06 Просто $0.04/IP 9PROXY.COM Резидентные прокси Неограниченная пропускная способность Уникальная политика замены Без чёрного списка 02:15 nexgen24.io - криптовалюта и фиат в одном месте	20:45 С юмором по жизни! 23:13 Владельцы "китайцев" 3-леток, признавайтесь честно — сгнили или едут? 18:50 Стряхнуть обыденность - об Агасфере 16:23 Ням-ням! - 8 деликатесов, которые когда-то ели только бедные люди 16:13 Осторожно! Криптовалюта 12:20 Компьютерная мышь 23:08 Физические сим-карты