, 26 2020 . 16:09
+
!
Delphi 10.2. Form1 Button.
.
var
Form1: TForm1;
k:integer=3;
implementation
{$R *.dfm}
uses unit2;
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string ;
begin
a:='admin';
b:='123';
if (edit1.Text<> a) or (edit2.Text<> b) then
begin
k:=k-1;
showmessage (' '+#13# ...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83727
: 1
