Команды для Button

[viks1]

Здравствуйте!
У меня вопрос:
Процедура на кнопке сколько может действий выполнять?...

procedure TForm2.Button2Click(Sender: TObject);
begin
Form3.Memo1.Lines.add(Edit1.Text);
Form3.Memo2.Lines.Add(Edit4.text);
Form3.Memo2.Lines.Add(Edit5.text);
Form3.Memo3.Lines.Add(Edit6.text);
Form3.Memo1.Lines.SaveToFile('d:\passvord.txt');
Form3.Memo2.Lines.SaveToFile('d:\myProfil.txt');

end;

Может я что то не так пишу...
но в Мемо добавляет только первую команду(

[BDA]

Достаточно много

procedure TForm2.Button2Click(Sender: TObject);
begin
Form3.Memo1.Lines.append(Edit1.Text);
Form3.Memo2.Lines.append(Edit4.text);
Form3.Memo2.Lines.append(Edit5.text);
Form3.Memo3.Lines.append(Edit6.text);
Form3.Memo1.Lines.SaveToFile('passvord1.txt');
Form3.Memo2.Lines.SaveToFile('myProfil.txt');
Form3.Memo3.Lines.SaveToFile('passvord2.txt');
end;

[Аватар]

Суть вопроса не понятна. Ну бросаете в два мемо по одной строке, в одно - две. Выгружаете в два файла, забивая выгрузкой из мемо3 выгрузку из мемо1

[viks1]

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

Достаточно много

procedure TForm2.Button2Click(Sender: TObject);
begin
Form3.Memo1.Lines.append(Edit1.Text);
Form3.Memo2.Lines.append(Edit4.text);
Form3.Memo2.Lines.append(Edit5.text);
Form3.Memo3.Lines.append(Edit6.text);
Form3.Memo1.Lines.SaveToFile('passvord1.txt');
Form3.Memo2.Lines.SaveToFile('myProfil.txt');
Form3.Memo3.Lines.SaveToFile('passvord2.txt');
end;

А в чем разница между Add и Append?

[BDA]

Add(const S: string) - Добавляет новую строку к списку
Append(const S: string) - Добавляет строку к списку, но в отличие от Add не возвращает результат операции

И, как указал Аватар,

забивая выгрузкой из мемо3 выгрузку из мемо1

[viks1]

Сообщение от Аватар

Суть вопроса не понятна. Ну бросаете в два мемо по одной строке, в одно - две. Выгружаете в два файла, забивая выгрузкой из мемо3 выгрузку из мемо1

т.е мемо 1 и мемо2 как переменные будут?... а мемо 3 финальный результат загрузки 2-х мем?

[BDA]

Нет, вы два мемо в один файл пишите, поэтому в файле будет только последний мемо.

[viks1]

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

Add(const S: string) - Добавляет новую строку к списку
Append(const S: string) - Добавляет строку к списку, но в отличие от Add не возвращает результат операции

И, как указал Аватар,

Ну вот например...

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

Нет, вы два мемо в один файл пишите, поэтому в файле будет только последний мемо.

Вот как на настоящий момент выглядит код

procedure TForm2.Button3Click(Sender: TObject);
begin
Form3.Memo1.Lines.append(Edit1.Text);

if Edit2.text=Edit3.Text then
Form3.Memo1.Lines.append(Edit2.text) else
Label16.Caption:='Пароли не совпадают';
Form3.Memo2.Lines.Add(Edit4.text);
Form3.Memo2.Lines.append(Edit5.text);
Form3.Memo3.Lines.append(Edit6.text);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin


Form3.Memo1.Lines.SaveToFile('d:\passvord.txt');
Form3.Memo2.Lines.SaveToFile('d:\myProfil.txt');

end;

[Аватар]

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

т.е мемо 1 и мемо2 как переменные будут?... а мемо 3 финальный результат загрузки 2-х мем?

Это вы о чем? C чего бы мемо3 будет зависить от ммемо1 и мемо2? Гляньте что туда пишете - совершенно не зависимые строки

[viks1]

Сообщение от Аватар

Это вы о чем? C чего бы мемо3 будет зависить от ммемо1 и мемо2? Гляньте что туда пишете - совершенно не зависимые строки

Наверное я вас не так понял...