Strings nach Länge ordnen???

[Andy Ströbel]

Hallo zusammen,

ich habe mit einem Array eine String-Variable deklariert:

DelDir: Array[1..15] of String;

Später weise ich den Variablen DelDir[1] bis DelDir[15] verschiedene Werte zu. Nun soll am Ende aber die Variable DelDir[1] den längsten String enthalten, die Variable DelDir[15] hingegen den kürzesten. Wie ist dies zu realisieren?

Herzlichen Dank!

AScomp

[Thomas Melchert]

<p>Hallo Andy,<br>
<br>
hier ein primitiver Sortieralgorithmus:<br>
<br>
<pre>
procedure ArraySort;
var i, j:Integer;
merk:String;
begin
for i:=1 to 14 do for j:=i+1 to 15 do
if (Length(DelDir[i])<Length(DelDir[j])) then
begin
merk:=DelDir[i];
DelDir[i]:=DelDir[j];
DelDir[j]:=merk;
end; // if, for
end; // ArraySort
</pre>
<br>
Gruß Thomas<br></p&gt

[Andy Ströbel]

Hallo Thomas!

Herzlichen Dank für Deine schnelle und kompetente Hilfe! Funktioniert prächtig!!!

Machs gut,

AScomp (http://www.ascomp.de.gs