Создание программы-приложения «Римские цифры», разработанная в среде визуального проектирования Delphi

end; 

procedure TForm1.Button28Click(Sender: TObject);

begin

edit2.Clear;

end; 

procedure TForm1.Button29Click(Sender: TObject);

var chislo:string;

begin

chislo:=edit2.Text;

delete(chislo,length(chislo),1);

Edit2.Text:=chislo;

end; 

procedure TForm1.BackClick(Sender: TObject);

var chislo:string;

begin

chislo:=edit1.Text;

delete(chislo,length(chislo),1);

Edit1.Text:=chislo;

end; 

procedure TForm1.Button31Click(Sender: TObject);

label metka;

var minus:string;

begin

if Edit2.text<>'' then begin

minus:=Edit2.Text;

if (minus[1]<>'-') and (minus[1]<>'+') then

begin Edit2.Text:='-'+minus; goto metka end;

if minus[1]='+' then begin delete(minus,1,1);

Edit2.Text:='-'+minus; goto metka end;

if minus[1]='-' then begin delete(minus,1,1);

Edit2.Text:='+'+minus; goto metka end; end;

metka:end; 
 

procedure TForm1.Button30Click(Sender: TObject);

begin

if Edit1.text<>'' then begin

   ch:='O';

   a:=RomanToDec(Edit1.Text);

   Edit1.Clear      end

end; 

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Рекомендуемая литература 

1) Ревич Ю. Нестандартные приемы программирования на Delphi – С.-П..: БВХ-Петербург, 2005

2) Фленов М. Delphi. Секреты программирования – С.-П.: Питер,2005.

3) Фаронов В., Программирование баз данных в Delphi 7. Учебный курс- М.: Питер, 2006.

4)Филонов Н. Delphi Справочное пособие: Язык Delphi, классы- М.: Рост, 2006г.