Kto wie nich zmieni z Delphi na C++Builder:
if InputBox('Hasło', 'Podaj hasło', '') = 'Adam' then
ShowMessage('Tak') else
Application.Terminate;
//--------------------------------------------------------------------------
procedure TForm1.TimerTimer(Sender: TObject);
var
Present : TDateTime;
Hour, Min, Sek, MSec : Word;
begin
Present := Now;
DecodeTime(Present, Hour, Min, Sek, MSec);
if (Hour = 09) and (Min = 31) and (Sek = 0) then
ShowMessage('Jest godz: 9.30'); { <- Uruchomi sie o godz. 9.31 }
end;
//------------------------------------------------------------------------------
var
I : Integer = 30;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := 'Do zakończenia programu pozostało: ' + IntToStr(I);
Dec(i);
If I = 0 then Close;
end;
//-------------------------------------------------------------------------
Albo proszę podać adres stronki na której znajdę konwerter z Delphi na C++Builder.
/* Stosuj tagi!! */