Funktion geht mit Array aus @MoveListToArr nicht richtig!

Hallo!

Ich habe mir eine Funktion zum Löschen aller doppelten Einträge in einem dynamischen String-Array programmiert. Funktioniert auch (wenn auch sehr, sehr langsam... ). Aber wenn ich nun ein Array aus der Funktion @MoveListToArr damit bearbeite und wieder mit @MoveArrToList zurückschreibe (vorher ClearList), dann wird der 1. Eintrag der Liste nicht berücksichtigt !!! Da ist der drin!!!

Der Code der Aussortier-Funktion:

Proc DeleteDoubleString
  Parameters Array$[], Groß_Kleinschreibung%
  Declare Num%, NichtLeereEinträge%, Temp$
  WhileLoop @SizeOf(Array$[]) - 1
    Num% = &loop
    WhileLoop Num% + 1, @SizeOf(Array$[]) - 1, 1
      IF Array$[Num%] = Array$[&loop]
        Array$[&loop] = ""
      ELSEIF (Upper$(Array$[Num%]) = Upper$(Array$[&loop])) AND (Groß_Kleinschreibung% = 0)
        Array$[&loop] = ""
      ENDIF
    EndWhile
  EndWhile
  NichtLeereEinträge% = 0
  WhileLoop @SizeOf(Array$[]) - 1
    Case Array$[&loop] <> "": NichtLeereEinträge% = NichtLeereEinträge% + 1
  EndWhile
  WhileLoop 1, @SizeOf(Array$[]) - 1, 1
    Num% = &loop
    IF Array$[Num%] = ""
      WhileLoop @SizeOf(Array$[]) - 1, Num% + 1, -1
        IF Array$[&loop] <> ""
          Array$[Num%] = Array$[&loop]
          Break
        ENDIF
      EndWhile
    ENDIF
  EndWhile
  SetSize Array$[], NichtLeereEinträge% + 1
  Return Array$[]
EndProc

Array$[]: Das Array, das bearbeitet werden soll.
Groß_Kleischreibung%: 1: Groß/Kleinschreibung beachten, 0: ... nicht beachten.

Jetzt der Code, der die Funktion aufruft:

Proc DeleteDoubleList
  Parameters N%
  Declare Temp$[], Temp2$[]
  @MoveListToArr(Temp$[])
  Temp2$[] = @DeleteDoubleString(Temp$[], N%)
  ClearList
  @MoveArrToList(Temp2$[])
EndProc

N%: 1: Groß/Kleinschreibung beachten, 0: ... nicht beachten.

Ich hoffe mal, ihr seid da nicht so ratlos wie ich (bin auch ganz neu bei XProfan )...

Danke schon mal!

(Ich verwende XProfan 11.2 Free auf Windows 7 Home Premium 32bit)

[Bangkok]

probiere mal

WhileLoop 0,SizeOf(Array$[]) - 1

Die Funktion geht aber, wenn ich ein selbsterstelltes Array benutze.
Da wird dann der 1. Eintrag nicht ausgelassen.

-Grübel-

Kann es sein, dass @MoveListToArray auch Index 0 benutzt
Aber es funktioniert bei einer anderen Funktion auch, ohne dass ich einen Eintrag 0 benutze (Liste sortieren...).
Bitte mal erklären !

(Danke für die schnelle Antwort!)

[RGH]

Zitat von Unregistriert

Kann es sein, dass @MoveListToArray auch Index 0 benutzt

Ja natürlich. Jedes Array beginnt mit dem Index 0.

Gruß
Roland

Ach so.

Das ist mir noch nicht aufgefallen, weil ich bis jetzt immer mir selbsterstellten dynamischen Arrays gearbeitet habe, bei denen ich immer Eintrag 0 ausgelassen habe...
Bin ja auch Anfänger.
Danke !

[AHT]

Du hast da noch zwei Fehler drin:

    IF Array$[Num%] = ""
      WhileLoop @SizeOf(Array$[]) - 1, Num% + 1, -1
        IF Array$[&loop] <> ""
          Array$[Num%] = Array$[&loop]
          Break
        ENDIF
      EndWhile
    ENDIF

Das geht so nicht. Du fügst immer den selben Eintrag ein.
Probiere das:

Proc DeleteDoubleString
  Parameters Array$[], Groß_Kleinschreibung%
  Declare Num%, NichtLeereEinträge%, Temp$, Start&
  WhileLoop 0,@SizeOf(Array$[]) - 2,1
    Num% = &loop
    WhileLoop Num% + 1, @SizeOf(Array$[]) - 1, 1
      IF Array$[Num%] = Array$[&loop]
        Array$[&loop] = ""
      ELSEIF (Upper$(Array$[Num%]) = Upper$(Array$[&loop])) AND (Groß_Kleinschreibung% = 0)
        Array$[&loop] = ""
      ENDIF
    EndWhile
  EndWhile
  NichtLeereEinträge% = 0
  WhileLoop 0,@SizeOf(Array$[]) - 1
    Case Array$[&loop] <> "": NichtLeereEinträge% = NichtLeereEinträge% + 1
    Print Array$[&loop]
  EndWhile
  Start& = @SizeOf(Array$[]) -1
  WhileLoop 0, @SizeOf(Array$[]) - 1
    Num% = &loop
    IF Array$[Num%] = ""
      WhileLoop Start&, Num% + 1, -1
        IF Array$[&loop] <> ""
          Array$[Num%] = Array$[&loop]
          Start& = &loop -1
          Break
        ENDIF
      EndWhile
    ENDIF
  EndWhile
  SetSize Array$[], NichtLeereEinträge%
  Return Array$[]
EndProc

Desweiteren berechnest du die resultierende Arraygröße Nicht richtig -> LeereEinträge% falsch.

Ja, das hab ich jetzt auch bemerkt.

Danke !

[Frabbing]

Ist für einen Anfänger manchmal verwirrend, dass Computer bei 0 anfangen zu zählen. Ging mir auch mal so. Das bekommst du schon noch rein.