Einzelnen Beitrag anzeigen

Benutzerbild von SoD
SoD

Registriert seit: 9. Dez 2008
Ort: Oberasbach
33 Beiträge
 
Delphi 2007 Professional
 
#1

Probleme mit Umrechnung und korrekter Ausgabe

  Alt 21. Dez 2008, 12:50
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?
  Mit Zitat antworten Zitat