[guver]

можно ли так чтоб на форме было несколько memo и по нажатию кнопки они сохраняли информацию из себя в один файл какнить красивенько ?? ) или посоветуйте ченить другое

[march]

Сообщение от guver, спрашивающего

можно ли так чтоб на форме было несколько memo и по нажатию кнопки они сохраняли информацию из себя в один файл какнить красивенько ?

Можно.

Сообщение от guver, спращивающего

посоветуйте ченить другое

Сообщение от guver, отвечающего в своем же вопросе

на форме несколько memo и по нажатию кнопки они сохраняли информацию из себя в один файл красивенько ?

Может по-русски что хочем и для каких целей? Телепатов здесь не много, а те что и есть работают за деньги и дорого.

[dr. F.I.N.]

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var   i: Integer;   s : TStringList; begin   if Form1.ControlCount = 0 then Exit;   s := TStringList.Create;   for i := 0 to Form1.ControlCount - 1 do   if Form1.Controls[i] is TMemo then   s.AddStrings(TMemo(Form1.Controls[i]).Lines);   s.SaveToFile('<Your filename>');   s.Free; end;

Должно работать (писал на коленке).

[Bars1992]

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

какнить красивенько ?? )

Это типо со стразиками или как?

[guver]

у меня к приверу идут 10 вопросов в столтик , ответ на каждый цирфа , как из 10 memo сохранить в один текстовик эти ответы тоже в столбик чтоб при открытии его было сразу все понятно а не додряд типа:
12345678910

а надо вот так :
1
2
3
4
5
6..

[dr. F.I.N.]

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

у меня к приверу идут 10 вопросов в столтик , ответ на каждый цирфа , как из 10 memo сохранить в один текстовик эти ответы тоже в столбик чтоб при открытии его было сразу все понятно а не додряд типа:
12345678910

а надо вот так :
1
2
3
4
5
6..

Мой вариант не работает или как?

[guver]

я чайник полный ) скопировал твой код ) вставил ) пару мемо и ))) и какбы мне надо очень подробнооооо я туплю какие элементы на форму где и че и как

[dr. F.I.N.]

А что тут непонятного? ставишь сколько надо мемо. Мой код ставишь в обработчик события, например, кнопки. Указываешь имя файла вместо <Your filename>. И все. Код переберет все мемо на форме и запишет все их содержимое в один файл.
Еще вопросы?

[guver]

Финнн спасбо пашет @>---

[dr. F.I.N.]

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

Финнн спасбо пашет @>---

И почему никому в голову не приходит репутацию поднять?

[guver]

Отозвался хорошо о тебе

[dr. F.I.N.]

Спасибо! Обращайся

[guver]

Вот еще что хотел спросить ) вот код свой опиши , типа каждая строчка что это ) что тако И и С ) и тд

[dr. F.I.N.]

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var   i: Integer; // счетчик   s : TStringList; // класс такой :) почитай о нем в справке или <a rel="nofollow" href="http://www.delphibasics.ru/TStringList.php" target="_blank">Первое что выпало по запросу в поисковике</a> begin   if Form1.ControlCount = 0 then Exit; // в Form1.ControlCount хранится количество контролов на Form1. Вот и проверяем, если контролов 0, то выходим из процедуры.   s := TStringList.Create; // создаем тот самы StringList   for i := 0 to Form1.ControlCount - 1 do // теперь в цикле перебираем все контролы расположенные на Form1   if Form1.Controls[i] is TMemo then // Если контрол TMemo, то обрабатываем его   s.AddStrings(TMemo(Form1.Controls[i]).Lines); // а точнее добавляем его содержимое в конец s (который TStringList)   s.SaveToFile('<Your filename>'); // а потом сохраняем содержимое s в файл   s.Free; // ну и подчищаем за собой. Т.е. удаляем созданный нами StringList end;

[guver]

Спасибо большоее