So ich wende mich an euch nach langen Versuchen^^ Leider hat bisher nichts geklappt bzw. das was ich habe Funktioniert nur sehr schlecht /mangelhaft.
Hier mal mein Quelltext:
Leider kann ich Zahlen wie ix (also 9) nicht ausrechnen lassen, weil dann immer 11 als ergebnis angezeigt wird. Wär cool wenn mir da wer heflen kann.
Hier mal mein Quelltext:
procedure TForm1.BitBtn1Click(Sender: TObject);
var ZKette:String;
DZahl,j:Integer;
begin
DZahl:=0;
ZKette:=Edit1.Text;
for j:=1 to Length(ZKette) do
begin
Case (ZKette[j]) of
'a' : DZahl:=DZahl +5000;
'm' : DZahl:=DZahl +1000;
'd' : DZahl:=DZahl +500;
'c' : DZahl:=DZahl +100;
'l' : DZahl:=DZahl +50;
'x' : DZahl:=DZahl +10;
'v' : DZahl:=DZahl +5;
'i' : DZahl:=DZahl +1;
end;
Edit2.Text:=FloatToStr(DZahl);
end;
end;
Leider kann ich Zahlen wie ix (also 9) nicht ausrechnen lassen, weil dann immer 11 als ergebnis angezeigt wird. Wär cool wenn mir da wer heflen kann.