Hallo,
danke für den versuch es mir zuerklären, leider versteh ich von den selbst gemachten funtionen und prozeduren nicht viel.
Nach langem grübeln hab ich es nun selbst geschafft mit der repeat schleife.
Delphi-Quellcode:
x:=1;
g:=19;
repeat
if count >= strtoint(score[x])
then
begin
repeat //umsetztung der niedrigeren Zahlen nach unten
if g=1
then
begin
break;
end;
score[g]:=score[g-2];
score[g-1]:=score[g-3];
dec(g);
dec(g);
showmessage(inttostr(g));
showmessage(inttostr(x));
until g=x;
score[x-1]:=edit1.text;
//neuer wert an stelle eintragen
score[x]:=inttostr(count);
break;
end;
inc(x);
inc(x);
//Sprung bis zur nächsten zu überprüfenden Zahl
showmessage(inttostr(x));
until x=21;
Danke das ihr euch Zeit genommen habt mir zu helfen.
MfG