حلقه For

[Roya Rayane]

سلام.
می خوام یک inpubox را سه مرتبه اجرا اگر مقدار درست بود فرم دیگری را نشان در غیر این صورت برنامه بسته شود.
من این را می نویسم ولی مشکلی که هست کد من پس از درست بودن هم برنامه را می بند ولی اگر غلط باشد همان سه مرتبه را انجام می دهد وسپس برنامه بسته می شود.

[hossein taghi zadeh]

با سلام

از کد زیر استفاده کنید.


Login := False;
For I := 1 To 3 Do
Begin
Str := InputBox('', '', '');
If Str='password' Then
Begin
Break;
Login := True;
End;
End;

If Not Login Then Application.Terminate;

[SYNDROME]

با سلام




If Str='password' Then
Begin
Break;
Login := True;
End;
End;


فکر کنم باید اینجوری بنویسی.(چون دستور بعد از Breakاجرا نمی شود)


If Str='password' Then
Begin
Login := True;
Break;
End;
End;

موفق باشید