Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Delphi _ Вещественные числа

Автор: Екатерина 20.04.2013 18:48

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

Автор: -123- 7.05.2013 13:43

В мемо, каждое число с новой строки?

Цитата(Екатерина @ 20.04.2013 18:48) *

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

Покажи.
А ещё покажи пример того что в Memo1

Автор: IUnknown 7.05.2013 13:59

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