Jeg er prøver at lave et lille program der kan konvertere arabertal til romertal og omvendt, men se lige den her LATTERLIGE kode jeg roder med.
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit2.Text='' then
begin
if Edit1.Text = '1' then
begin
Edit2.Text:='I'
end;
if Edit1.Text = '2' then
begin
Edit2.Text:='II'
end;
if Edit1.Text = '3' then
begin
Edit2.Text:='III'
end;
if Edit1.Text = '4' then
begin
Edit2.Text:='IV'
end;
end;
end;
end.
Hvordan kan jeg undgå denne ekstremt besværlige omvej?