Delphi ( перевод из рим. в араб. систему счисления)

[Artur1992]

...
var
  Form1: TForm1;
  k:1..9;
  RomeNum : array[1..9] of string[4] =('I' ,'II','III','IV','V','VI','VII','VIII','IX');
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=StrToInt(Edit1.Text);
Edit1.Text:=RomeNum[k];
end;
...

Как мне сделать так, чтобы переводило нетолько из арабской в римскую, но и наоборот, в компонент Edit1.
Заранее спасибо.

[Don Karleone]

а вам что надо, перевод одной цифры в римскую и наоборот? или перевод числа в римскую систему счисления?
суде по этой строке
RomeNum : array[1..9] of string[4] =('I' ,'II','III','IV','V','VI','VII','VI II','IX');
вы хотите переводить лишь одну цифру.

[Artur1992]

Одной цифры

[Don Karleone]

st:=Edit2.Text;
for i:=1 to 9 do
  if st = RomeNum[i] then n:=i;
Edit1.Text:=IntToStr(n);

[Artur1992]

Да, спасибо.
Но мне надо, чтоб я ввёл в edit1 "1", потом после нажатия кнопки, в edit1 появляется "I", а после второго нажатия снова должна появиться "1".

[Don Karleone]

используйте глобальную переменную.

var
  FLAG: boolean;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  st: string;
begin
  if not FLAG
    then
        begin
           k:=StrToInt(Edit1.Text);
           Edit1.Text:=RomeNum[k];
        end
    else
       begin
           st:=Edit1.Text;
           for i:=1 to 9 do
             if st = RomeNum[i] then k:=i;
           Edit1.Text:=IntToStr(k);
       end;
  FLAG:=not FLAG;
end;

[Artur1992]

Большое спасибо!