Mahlzeit liebe DPler,
ich arbeite derzeit an einem "kleinen" textbasierten RPG, bei dem ich einen Assistenten zur Charakter-Erstellung machen möchte. Dabei stoße ich jetzt auf ein unerwartet großes Problem: Es will mir nicht gelingen die 4 verschiedenen Währungseinheiten gemäß dem mir vorliegenden Regelwerk zu implementieren. Falls es
Folgende Einheiten gibt es (wer Das Schwarze Auge kennt erzähl ich hier wenig neues
):
Kreuzer (kleinste)
Heller (klein)
Silber (Einheit vor der ausgegangen wird)
Dukaten (größte)
Das Problem an der ganzen Sache: Ich krieg es ums Verrecken nicht hin, dass mir diese vier Einheiten in vier verschiedenen Edits
korrekt angezeigt werden, wenn man ab jeweils 10 in die nächste Einheit überwechselt. Das sieht dann nämlich so aus, als hätte man 2 EUR und 161 Cent und man meint, sich was für 3 EUR nicht leisten zu können.
Mir sind die Ideen ausgegangen, wie ich das richtig coden muss.
Delphi-Quellcode:
procedure TFrame2CharCreate.GetCountMoney(Sender: TObject);
var
iSilber: Integer;
begin
// Zufallsgenerator init
Randomize;
// Vermögen auswürfteln
repeat
iSilber := Random(6)
until iSilber > 0; // Nullwert verhindern
iSilber := (iSilber + 6) * 10; // = Gewürfeltes Silber
EditSilber.Text := IntToStr(iSilber);
// Währungs-Einheiten umrechnen
if iSilber > 10 then
begin
{???}
end;
end;
Hat hier jemand ne Idee, wie man das lösen könnte?