Memo и Edit (Delphi)

[CAMOBAP]

Вот проблема. Есть 6 строк Edit и Memo.В первую строку выводит мемо выводит, а в последующие нет. Как поправить.

procedure TForm1.sEdit1Change(Sender: TObject);
begin
Memo1.Lines.Strings[0]:=Edit1.Text;
end;

procedure TForm1.sEdit2Change(Sender: TObject);
begin
Memo1.Lines.Strings[1]:=Edit2.Text;
end;

procedure TForm1.sEdit3Change(Sender: TObject);
begin
Memo1.Lines.Strings[2]:=Edit3.Text;
end;

procedure TForm1.sEdit4Change(Sender: TObject);
begin
Memo1.Lines.Strings[3]:=Edit4.Text;
end;

procedure TForm1.sEdit5Change(Sender: TObject);
begin
Memo1.Lines.Strings[4]:=Edit5.Text;
end;

procedure TForm1.sEdit6Change(Sender: TObject);
begin
Memo1.Lines.Strings[5]:=Edit6.Text;
end;

[MyLastHit]

Вообще, строке в мемо, можно присваивать значение тогда и только тогда, когда она существует.
Сделай где нибудь(в онкриэйт формы):

for i:=1 to 5 do
memo1.lines.add('');

или в инспекторе в свойстве Text у Memo сделай ентером 6 пустых строк

Ну а код твой в общем верный. Хотя проще бы было массив Edit'ов задать.

[CAMOBAP]

совсем забыл) спасибо большое)
Массивы не совсем знаю и понимаю. Потому сделал так.

[evg_m]

один обработчик Onchange на все Edit's
(в Inspector Object указать/выбрать одну и туже процедуру).
и

memo.lines.text:=edit1.text + #13#10 + edit2.text + .... + #13#10 + edit6.Text;

[Serge_Bliznykov]

evg_m, брависсимо, коллега.
Отличный вариант решения!
Одобрям-с!

[CAMOBAP]

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

один обработчик Onchange на все Edit's
(в Inspector Object указать/выбрать одну и туже процедуру).
и

memo.lines.text:=edit1.text + #13#10 + edit2.text + .... + #13#10 + edit6.Text;

очень интересно ,но можно пожалуйста объяснить как работает.

[evg_m]

чень интересно ,но можно пожалуйста объяснить как работает.

один обработчик Onchange на все Edit's

будет срабатывать при изменении в любом из перечисленных Edit (edit1,...,Edit6)

edit1.text + #13#10 + edit2.text + .... + #13#10 + edit6.Text;

собираем все тексты(их строковые значения Edit2.Text) в одну строку расставляя между ними перевод строки (#13) и возврат каретки( #10)

Memo1.Lines.Text:=

полученную строку записываем в Memo с очисткой.

[uberchel]

[QUOTE=CAMOBAP;707277]очень интересно ,но можно пожалуйста объяснить как работает.[/QUOT]
Принцип работы очень прост:

memo.lines.text:= добавляется текст с едитов разделенных спец символоми #13#10 - которые выполняют перенос строки на 1 пункт ниже, то есть получается, что с каждого нового содержимого edit-а выводится в новой строке. Так же можно все это вделать в цикл если надо использовать много едитов.

[CAMOBAP]

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

memo.lines.text:= добавляется текст с едитов разделенных спец символоми #13#10 - которые выполняют перенос строки на 1 пункт ниже, то есть получается, что с каждого нового содержимого edit-а выводится в новой строке. Так же можно все это вделать в цикл если надо использовать много едитов.

Спасибо) особенно про #13#10 было интересно, так как еще в одном месте в моей программе можно его применить.

[CAMOBAP]

А вот еще один вопрос .Скажем есть все те же Edit'ы и кнопка. Как прописать что бы с каждым нажатием оно добавляло строки из едитов в конец мемо, а не заменяло предыдущие?
По схеме такой

Из Edit1
Из Edit2
Из Edit3
Из Edit4
и т.д а потом опять
Из Edit1
Из Edit2
и так далее.