if then abfrage einfacher

[sushi-Chef]

Hallo,

ich bin neu was Delphi angeht. Und da ich noch nicht so versiert bin und mir auch sicher bin das man es besser machen kann wollte ich fragen, wie man diesen Code verbessern kann.

Delphi-Quellcode:

var
  ST,GE,KO,WE,INT,CH: integer;
...
if edAtrWST.Text = '' then
 ST := 0
  else
 ST := StrToInt(edAtrWST.Text);

if (ST = 0) or (ST = 1) then
 edAtrMST.Text := '-5';
if (ST = 2) or (ST = 3) then
 edAtrMST.Text := '-4';
if (ST = 4) or (ST = 5) then
 edAtrMST.Text := '-3';
...
 edAtrMST.Text := '+4';
if (ST = 20) or (ST = 21) then
 edAtrMST.Text := '+5';
if (ST = 21) or (ST = 22) then
 edAtrMST.Text := '+6';
if (ST = 23) or (ST = 24) then
 edAtrMST.Text := '+7';
if (ST = 25) or (ST = 26) then
 edAtrMST.Text := '+8';

Zudem würde ich es gerne irgendwie einrichten, dass das Programm das selber weiterführen könnte (also 27 oder 28 +9...), ohne das ich für jede zahl eine if-abfrage machen muss.
Vielen dank für die hilfe.

[edit=SirThornberry]Programmiersprache korrigiert - Mfg, SirThornberry[/edit]

[Dax]

Wie wärs denn mit .Text := IntToStr(-5 + (ST div 2))

[sushi-Chef]

Danke sehr, das ich auf sowas nicht selbst gekommen bin.

[dajuhsa]

wenn die zahlen nicht so gut zueinander passen würden, wäre natürlich eine case of-struktur ganz nützlich.

[Elvis]

Zitat von Dax:

Wie wärs denn mit .Text := IntToStr(-5 + (ST div 2))

Falsche Plattform! Miep := (-5 + (ST / 2)).ToString();
Integer / Integer ergibt Integer in .Net! div ist nicht nötig...

[angos]

das sieht mir nach nem rpg aus. gibts da was öffentliches wenn du fertig bist?

[sushi-Chef]

Zitat von angos:

das sieht mir nach nem rpg aus. gibts da was öffentliches wenn du fertig bist?

Soweit das ich ein kleines RPG coden kann bin ich leider noch nicht.
Das wird erstmal einfach ein Tool um schnell Dungeons & Dragons Charaktere zu erstellen.
Womöglich lässt sich das irgendwann zu einem kleinen RPG erweitern.

Wenn ich das benutze
Miep := (-5 + (ST / 2)).ToString(); bekomme ich den fehler: "record or class type required".

[Dax]

Zitat von Elvis:

Falsche Plattform!

Einen Moment bitte...

Zitat von sushi-Chef:

Wenn ich das benutze
Miep := (-5 + (ST / 2)).ToString(); bekomme ich den fehler: "record or class type required".

So, nun zu dir, Elvis Ich bin davon ausgegangen, dass der Verfasser D.32 benutzt. Anscheinend zu Recht

[Phoenix]

Zitat von Dax:

So, nun zu dir, Elvis Ich bin davon ausgegangen, dass der Verfasser D.32 benutzt. Anscheinend zu Recht

Und wieso hat er dann D.NET angegeben?

[sushi-Chef]

Wenn ich "File -> New -> other -> Delphi for .NET Projects -> VCL Forms Application" mache ist das kein D.NET ?