[miksint]

Как мне сделать так что бы текст введенный в несколько эдитов вводился в столбцы valuelisteditor`а, а потом можно было сохранить его. Допустим у меня есть 4 едита и 4 столбца valuelisteditor`а, и при нажатии кнопки, или нескольких, весь текст записывался из определенного эдита в определенный столбец.

[poli-smen]

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

Как мне сделать так что бы текст введенный в несколько эдитов вводился в столбцы valuelisteditor`а, а потом можно было сохранить его. Допустим у меня есть 4 едита и 4 столбца valuelisteditor`а, и при нажатии кнопки, или нескольких, весь текст записывался из определенного эдита в определенный столбец.

Разве в TValueListEditor может быть больше двух столбцов?

[Страдалецъ]

Можно делать двумя путями. Можно как вы и хотите по нажатию кнопки:

Код:

procedure TForm17.Button1Click(Sender: TObject);
begin
 ValueListEditor1.Values['Key1'] := Edit1.Text;
 ValueListEditor1.Values['Key2'] := Edit2.Text;
 ValueListEditor1.Values['Key3'] := Edit3.Text;
 ValueListEditor1.Values['Key4'] := Edit4.Text;
end;

а можно, при изменении текста в любом из едитов писать сразу и в ValueListEditor:

Код:

procedure TForm17.Edit1Change(Sender: TObject);
begin
 if TEdit(Sender).Name = 'Edit1' then ValueListEditor1.Values['Key1'] := Edit1.Text;
 if TEdit(Sender).Name = 'Edit2' then ValueListEditor1.Values['Key2'] := Edit2.Text;
 if TEdit(Sender).Name = 'Edit3' then ValueListEditor1.Values['Key3'] := Edit3.Text;
 if TEdit(Sender).Name = 'Edit4' then ValueListEditor1.Values['Key4'] := Edit4.Text;
end;

[miksint]

Спасибо тут возник еще один вопрос: как при повторном нажатии кнопки текст не заменялся, а переходил на новую строку? А также при закрытии программы текст сохранялся. Просто запелил себе генератор паролей, а сохранять я не знаю как ведь их так просто не запомнишь.