Перевести код в Delphi

@Warrantty · Регистрация: 13.09.2014

Author24 — интернет-сервис помощи студентам

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if ((StrToInt(Edit1->Text)>=0)&&(StrToInt(Edit1->Text)<=200))
        {
        switch (Edit1->Text.Length())
                {
                case 0: ShowMessage ("Мне нечего сказать о своем возрасте");
                break;
                case 1:
                if (StrToInt(Edit1->Text)==1)
                        {
                        ShowMessage ("Мне 1 Год");
                        }
                else if ((StrToInt(Edit1->Text)>1)&&(StrToInt(Edit1->Text)<5))
                        {
                        ShowMessage ("Мне "+Edit1->Text+" Года");
                        }
                else    {
                        ShowMessage ("Мне "+Edit1->Text+" Лет");
                        }
                break;
                case 2:
                if (StrToInt(Edit1->Text.SubString(2,1))==1)
                        {
                        ShowMessage ("Мне "+Edit1->Text+" Год");
                        }
                else if ((StrToInt(Edit1->Text.SubString(2,1))>1)&&(StrToInt(Edit1->Text.SubString(2,1))<5))
                        {
                        ShowMessage ("Мне "+Edit1->Text+" Года");
                        }
                else    {
                        ShowMessage ("Мне "+Edit1->Text+" Лет");
                        }
                break;
                case 3:
                        if (StrToInt(Edit1->Text.SubString(3,1))==1)
                        {
                        ShowMessage ("Мне "+Edit1->Text+" Год");
                        }
                else if ((StrToInt(Edit1->Text.SubString(3,1))>1)&&(StrToInt(Edit1->Text.SubString(3,1))<5))
                        {
                        ShowMessage ("Мне "+Edit1->Text+" Года");
                        }
                else    {
                        ShowMessage ("Мне "+Edit1->Text+" Лет");
                        }
                break;
                }
        }
else if (StrToInt(Edit1->Text)>200)
        {
        ShowMessage ("Черт я стар... очень стар... я просто суперстар!");
        }
else ShowMessage ("Я еще не родился");
}

@chronicler · 26.05.2016, 23:57

Так это же билдер. Что там заменять?
Замените -> на .
Замените скобочки на begin/end
Замените switch на case
Замените SubString на Copy
ну и двойные кавычки на одинарные еще
И еще && на and и == на =.

@VladWH · 27.05.2016, 05:26

Warrantty,

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var Age: Integer;
begin
 Age := StrToIntDef(Edit1.Text, 0);
 case Age of
  Low(Integer)..-1: ShowMessage ('Я еще не родился');
  0: ShowMessage ('Мне нечего сказать о своем возрасте');
  200..High(Integer): ShowMessage ('Черт я стар... очень стар... я просто суперстар!');
  else
   case StrToIntDef(Edit1.Text[Length(Edit1.Text)], 0) of
    1: ShowMessage ('Мне '+IntToStr(Age)+' Год');
    2..4: ShowMessage ('Мне '+IntToStr(Age)+' Года');
    else ShowMessage ('Мне '+IntToStr(Age)+' Лет');
   end;
 end;
end;

@chronicler 52 / 39 / 29 Регистрация: 08.04.2016 Сообщений: 126
	26.05.2016, 23:57	2
	Так это же билдер. Что там заменять? Замените -> на . Замените скобочки на begin/end Замените switch на case Замените SubString на Copy ну и двойные кавычки на одинарные еще И еще && на and и == на =. 0

	27.05.2016, 05:26

Перевести код в Delphi

Решение