Witam mam mały problemik w tym kodzie:
procedure TForm1.BitBtn1Click(Sender: TObject);
var haslo:string[15];
begin
haslo:='haselko';
if maskedit1.text=haslo then
memo1.Visible:=true and label2.visible=true;
else ShowMessage('Złe hasło');
end;
end.
Wszystko gra po wyrzuceniu linijki "label2.visible=true", jak w takim razie łączyć to żeby nastąpiło to razem?
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Haslo: string[15];
begin
Haslo := 'haselko';
if MaskEdit1.Text = Haslo then
begin
Memo1.Visible := True;
Label2.Visible := True;
end
else
ShowMessage('Złe hasło');
end;
Przy okazji: jak hasło ma być stałe, to może lepiej zadeklarować je w stałej? (proszę crackerów/znawców asm o nie bluzganie mnie :) , nie mam pojęcia o crackingu, a autor nie napisał że to zabezpieczenie musi być bezpieczne :) )
// EDITED:
Znowu się spóźniłem :( :)