Einzelnen Beitrag anzeigen

Benutzerbild von ibp
ibp

Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
 
Delphi 7 Architect
 
#12

Re: Rotierendes Array

  Alt 14. Jul 2004, 16:30
Zitat von neolithos:
Also eins versteh ich auch nicht!

Warum bewegt ihr die Daten im Array???

0,1,2,3,4,5,6,7,8,9,10,12

Würde ich so immer beibehalten. Nur einen Zeiger definieren der mir zeigt, welches Element derzeit das erste ist. Von diesem Element würde ich dann immer die Daten darstellen.

==> Wesentlich schneller als das Array umzukopieren!!!
... das ist doch die eleganteste lösung, du brauchst nix mit dem array zu machen

also:

Code:
 (schematisch)
...
anfang=1
anzeigen(anfang)
..
proceure anzeigen(anfang)
  if anfang<0 then anfang=2
  if anfang>2 then anfang=0
  anzahl=2
  y=anfang
  for n=1 to anzahl do
  begin
    zeige(array(y))
    inc(y)
    if y>2 then y=0
  end
end

Anzeige:

Array  Arrayindex-Y

4|5|6   1
7|8|9   2

hochrücken:

..
dec(anfang)
anzeigen(anfang)
..

anzeige

1|2|3   0
4|5|6   1

... so sollte der ablauf funktionieren ...
  Mit Zitat antworten Zitat