TurboPL Referenz

StrSort Prozedur

Syntax

StrSort(List: String[]; Index: Integer): Integer

Kategorie

Basisfunktion

Erklärung

Bei der Liste muss es sich um ein eindimensionales String-Array handeln. Dieses wird bis zum durch die Zahl festgelegten Index alphabetisch sortiert. Die möglichen Resultate der Funktion sind:

0                alles in Ordnung

99                Speichermangel

Beispiel

Eine Textdatei wird zeilenweise gelesen, sortiert und dann wieder zurückgeschrieben.

vardef Zeilen: String[1000]
vardef i, t, n: Integer;
if t := Reset("EXTERN.TXT")
       i := 0
       while not Eot(t)
               Zeilen[i] := ReadLn(t)
               i := i+1
       end
       Close(t)
       n := i - 1
       StrSort(Zeilen,n)
       t := Rewrite("EXTERN.TXT")
       nLoop(i, n, WriteLn(t, Zeilen[i]))
       Close(t)
end

Siehe auch

InArray