[guver]

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

[march]

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

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

Можно.

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

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

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

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

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

[dr. F.I.N.]

Код:

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.]

Код:

var
  i: Integer; // счетчик
  s : TStringList; // класс такой :) почитай о нем в справке или Первое что выпало по запросу в поисковике
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]

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