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

Новые темы	Объявления	Свободное общение
18:49 Несколько статей хорошо выдаются в Гугле, но отвратительно в Яндексе 18:30 С чего сейчас проще начать? 16:25 Продажа и покупка Дзен-каналов 13:08 Раскрутка форума 12:24 че по ПФ щас реально работает?? (кроме старья) 12:16 Сайт не реагирует на изменения в CSS 19:20 Тряска в Яндексе и евро-ИИ: 10.03 пока серп горит, бюрократы пилят свои нейронки	17:28 Бот Lime AI превращает текст в фото, а фото - в видео прямо в вашем мессенджере 15:03 Belurk — высокоскоростные анонимные прокси от 0,24 рублей 13:29 Вериф аккаунты АВИТО + платежи 11:15 Affiliate Top - партнерская программа нового уровня 10:03 Portfel.cc - современный помощник в Ваших финансовых операциях. 09:29 Продажа аккаунтов Bing Ads с балансом! 08:49 Swapwatch.org — Мониторинг криптовалютных обменников	21:46 Точные прогнозы на футбол 18:51 8 марта: желаю аптайма 99.9% и e-e-a-t без локов 18:16 Список обновленных тем пуст... 13:14 Добро пожаловать в цифровой мир... 19:27 Огородники 10:48 Бигтех режет мясо. ИИ заменил 6 тысяч профи за месяц 13:04 Вместо золота - RTX 5090: почему кремний стал валютой на свадьбах