rij := EdtRomeins.text; < deze regel werkt uiteraard niet maar zo zou ik het wel willen hebben. Weet iemand hoe je de letters uit een editbox in een array zet? BvD!!
Code:
procedure TMainForm.EdtRomeinsChange(Sender: TObject);
var uitkomst,i,AantalLetters : integer;
rij : array of Char;
begin
Uitkomst := 0;
Aantalletters := Length(EdtDecimaal.text);
Setlength (rij,AantalLetters);
rij := EdtRomeins.text;
for i := 1 to AantalLetters do
begin
If rij[i] = 'M' then Uitkomst := Uitkomst + 1000;
If rij[i] = 'D' then Uitkomst := Uitkomst + 500;
If rij[i] = 'C' then Uitkomst := Uitkomst + 100;
If rij[i] = 'L' then Uitkomst := Uitkomst + 50;
If rij[i] = 'X' then Uitkomst := Uitkomst + 10;
If rij[i] = 'V' then Uitkomst := Uitkomst + 5;
If rij[i] = 'I' then Uitkomst := Uitkomst + 1;
EdtDecimaal.text := IntToStr(Uitkomst);
end;
end;
Bookmarks