Zmiana kody z Delphi na C++Buider

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!! */

Czyżby pan gibon jeszcze raz zawitał?

No jak by ktos wiedzial na odwrót to też mógłby napisać !!!!!!!!!!!!!

ad.1

if (InputBox("Hasło", "Podaj hasło", "") == "Adam")
         ShowMessage('Tak')
 else
      Application->Terminate();

ad.3

  
int I = 30;

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   Label1->Caption = "Do zakończenia programu pozostało: " + IntToStr(I);
   Dec(i);
   if (I = 0) 
 Close();
}

Powinno działać:-)

ad.1

if (!strcmp(InputBox("Hasło", "Podaj hasło", ""),"Adam"))ShowMessage('Tak');
  else  Application->Terminate();

ad.3

  
int I = 30;

void __fastcall TForm1::Timer1Timer(TObject *Sender){
   Label1->Caption = "Do zakończenia programu pozostało: " + IntToStr(I);
   Dec(i);
   if (!I)Close();
}

// Mcbury porównanie ciagów to strcmp(), porownanie to '==', nie '=' poza tym porownanie do 0 ... !I ;p, chyba , że inputbox zwraca stringa :]

Flabra: co do 1. to wersja mcburego jest nie tylko poprawna, ale i bardziej przejrzysta, bo InputBox zwraca typ AnsiString. [chyba, że się mylę, bo nie mam pod ręką ani kompilatora ni helpa żadnego]

Ja mam tylko 1 małą uwagę w ShowMessage powinny być podwójne cudzywsłowia (") a nie pojedyńcze (') :)

// :-) brawo za spostrzegawczość [mf]