|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Memo несколько штук
можно ли так чтоб на форме было несколько memo и по нажатию кнопки они сохраняли информацию из себя в один файл какнить красивенько ?? ) или посоветуйте ченить другое
|
#2
|
||||
|
||||
Цитата:
Цитата:
Цитата:
От корректности формулировки поставленной задачи зависят: качество, скорость и желание её реализации!
|
#3
|
||||
|
||||
Код:
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; |
#4
|
||||
|
||||
Цитата:
Не твори зла, и жизнь повернется к тебе передом |
#5
|
|||
|
|||
у меня к приверу идут 10 вопросов в столтик , ответ на каждый цирфа , как из 10 memo сохранить в один текстовик эти ответы тоже в столбик чтоб при открытии его было сразу все понятно а не додряд типа:
12345678910 а надо вот так : 1 2 3 4 5 6.. |
#6
|
||||
|
||||
Цитата:
|
#7
|
|||
|
|||
я чайник полный ) скопировал твой код ) вставил ) пару мемо и ))) и какбы мне надо очень подробнооооо я туплю какие элементы на форму где и че и как
|
#8
|
||||
|
||||
А что тут непонятного? ставишь сколько надо мемо. Мой код ставишь в обработчик события, например, кнопки. Указываешь имя файла вместо <Your filename>. И все. Код переберет все мемо на форме и запишет все их содержимое в один файл.
Еще вопросы? |
#9
|
|||
|
|||
Финнн спасбо пашет @>---
|
#10
|
||||
|
||||
Цитата:
|
#11
|
|||
|
|||
Отозвался хорошо о тебе
|
#12
|
||||
|
||||
Спасибо! Обращайся
|
#13
|
|||
|
|||
Вот еще что хотел спросить ) вот код свой опиши , типа каждая строчка что это ) что тако И и С ) и тд
|
#14
|
||||
|
||||
Код:
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; |
#15
|
|||
|
|||
Спасибо большоее
|