Команды для Button

[viks1]

Блин... не работает.

[BDA]

Объясните подробно куда какой edit должен сохраняться.
Т.е., за что отвечает каждый едит, и что вы хотите получить в конечном итоге.

[viks1]

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

Объясните подробно куда какой edit должен сохраняться.
Т.е., за что отвечает каждый едит, и что вы хотите получить в конечном итоге.

procedure TForm2.Button3Click(Sender: TObject);
begin
Form3.Memo1.Lines.append(Edit1.Text);{Первый Edit отвечает за Логин}


if Edit2.text=Edit3.Text then
Form3.Memo1.Lines.append(Edit2.text) else  {этот Edit отвечает за пароль}
Label16.Caption:='Пароли не совпадают';


end;

Свойственно после этого, в мемо1 должны появится данные... но там появляется только Edit2
в конечном итоге я должен выполнить вход

procedure TForm1.Button1Click(Sender: TObject);
begin

for i:=1 to Form3.Memo1.Lines.count do begin
if (i mod 2=1) and (Form3.Memo1.Lines.Strings[i]=Edit1.Text) then
S:=Form3.Memo1.Lines.Strings[i];                                                 {Login}
if (i mod 2=0) and (Form3.Memo1.Lines.Strings[i]=Edit2.Text) then
S1:=Form3.Memo1.Lines.Strings[i];                                                {Password}
end;
if (S=Edit1.Text) and (S1=Edit2.Text)then
begin
label6.Caption:='Данные верны';
 Application.CreateForm(TForm4, Form4);
 Form4.show;


 end else begin
label6.Caption:='Данные не верны';
end;

end;

Эта схема работает так!
В Мемо добавляется сначала логин, потом пароль...
При регистрации логин оказывается на нечетной строке а пароль на четной.
При проверке, этот алгоритм выполняется!