IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Вещественные числа, Переброс чисел из Memo в Edit
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 24
Пол: Женский
Реальное имя: Екатерина

Репутация: -  0  +


Здравствуйте! Пишу программу Генератор вещественных чисел
Никак не могу сообразить с проверкой на стохастичность Генератора Вещественных Чисел.
Подскажите, как должен выглядеть цикл приклеивания разных комбинаций символов (т.е. чисел) друг к другу в компоненте Edit. Про работу со строками я в курсе – операция сцепления “+”, но тут их 200, и я растерялась.
Хочу пояснить: у меня есть 200 сгенерированных вещ. чисел (от 0 до 1), выведенных в Memo1. Все числа имеют 8 знаков после запятой.
С ними я должна сделать следующее: у каждого отбросить целую часть (т. е ноль), а дробные части склеить. Таким образом получается некое огромное число из 1600 символов, с которыми я должна буду основательно поработать. Первое что пришло в голову - загнать это число в Edit и работать там с ним как со строкой.
Но вот по поводу того как выдернуть из Memo двести чисел и всем им сделать обрезание, пока ничего в голову не приходит.
Могу показать свою программу
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






В мемо, каждое число с новой строки?
Цитата(Екатерина @ 20.04.2013 18:48) *

Могу показать свою программу

Покажи.
А ещё покажи пример того что в Memo1
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Разработчик
Free Pascal: Разработчик

Репутация: -  627  +


Цитата(Екатерина @ 20.04.2013 18:48) *
Но вот по поводу того как выдернуть из Memo двести чисел
Не надо ничего выдергивать. Если каждое число - на отдельной строке, то:
var s : string;
// ...
s := StringReplace(sLineBreak + Memo1.Text, sLineBreak + '0.', '', [rfReplaceAll]);
, и в s будет строка, состоящая из склеенных дробных частей всех чисел.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 25.02.2018 18:19
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"