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]