Работа с Memo

[Оль4ик]

Будьте добры, уважаемые специалисты, подскажите, существует ли способ сложения содержимого всех строк компонента Memo, если строк очень много ? И в какой компонент можно (или лучше) это сложить?
Хочу использовать Edit.

[Stilet]

Что значит сложения содержимого?
Вообще самый быстрой список строк это TStringList. Если же будешь обрабатывать в Мемо то учти одну мелочь: Из-за отрисовки в него добавление может тормозить, поэтому перед многочисленными операциями добавления (например наполнения мемо в цикле) используются маркеры отключения перерисовки:

Memo.Lines.BeginUpdate; //Отключаем прорисовку
Тут туева куча операторов внесения (удаления или изменения) записей
Memo.Lines.EndUpdate; //Включам назад

Имей это ввиду.

[raxp]

...зачем их складывать, уже есть Memo.Lines/

Какова ваша конечная цель?

[Оль4ик]

Какова ваша конечная цель?

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

Memo.Lines.BeginUpdate; //Отключаем прорисовку
Тут туева куча операторов внесения (удаления или изменения) записей
Memo.Lines.EndUpdate; //Включам назад

над которым я сейчас усиленно размышляю...

[Stilet]

как выдернуть из Memo двести чисел

Выкинь Мемо и используй TStringList.
Или еще лучше - строковый массив.

получается некое огромное число

Если не секрет зачем?

[Оль4ик]

Конечно же не секрет. Я сейчас работаю над последним пунктом своей лабы, который называется проверка на стохастичность Генератора Вещественных Чисел. Мне самой наверно сложно будет объяснить что это из себя предствляет, поэтому хочу показать методичку. Но там не так понятно как нам объясняли на лекции.

[Stilet]

Жуть......

[Serge_Bliznykov]

Сообщение от Stilet

Жуть......

методичку не открывал, Виталию верю на слово!

тем не менее.

Хочу пояснить: у меня есть 200 сгенерированных вещ. чисел (от 0 до 1), выведенных в Memo1. Все числа имеют 8 знаков после запятой.
С ними я должна сделать следующее: у каждого отбросить целую часть (т. е ноль), а дробные части склеить. Таким образом получается некое огромное число из 1600 символов

склеить дробные части вместе - проблем вообще никаких!

var s : string;
...
 s := '';
 for i:=0 to Memo1.Lines.Count-1 do 
   if Pos('.', Memo1.Lines[i])>0 then s := s + Copy(Memo1.Lines[i], Pos('.', Memo1.Lines[i])+1, 8);

после этого в s ваше длинное число! Делайте с ним всё, что захотите!

[Stilet]

Слегка добавлю безопасности:

var s,k : string;j:integer;
...
 s := '';
 for i:=0 to Memo1.Lines.Count-1 do begin
   k:=StringReplace(Memo1.Lines[i],',','.',[]);
   j:=Pos('.', k);
   if j>0 then s := s + Copy(k, j+1,Length(k));
end;

[Оль4ик]

Простите, не ожидала что для меня будут ещё пожелания, только сейчас их случайно увидела. Должна сказать, что к этому моменту я уже столько всяких вариантов перепробовала с проверкой на стохастичность, что страшно сказать. Прямо сейчас уже просто физически не в состоянии применить вышеуказанные советы, т.к. пальцы уже онемели+нервный тик. Завтра обязательно постараюсь доделать эту работу.
Кстати, эта строчка

for i:=0 to Memo1.Lines.Count-1 do begin

мне уже где-то попадалась на форуме, я кажется поняла как и где её применить.