Variablen sortieren

[Hawkeye219]

Hallo,

Delphi-Quellcode:

var
  countArray: Array[65..90] of Integer;  // <-- 65..90
  sortArray: Array[1..26] of Integer;
begin
  for counterSET:= 1 to 26 do            // <-- 1..26 => Crash!
   begin
    countArray[counterSET]:= 0;
   end;
:
    for counterSORT:= 1 to 26 do         // <-- 1..26
     begin
      if sortArray[counterSORT] < sortArray[counterSORT + 1] then  // <-- 26 + 1 => Crash!
       begin
        tmp:= sortArray[counterSORT];
        sortArray[counterSORT]:= sortArray[counterSORT + 1];       // <-- 26 + 1 => Crash!
        sortArray[counterSORT + 1]:= tmp;
        unSort:= true;
       end;
     end;
   end;
end;

Alles klar?

btw: vielleicht solltest du noch mal über meinen Vorschlag aus Beitrag #14 nachdenken...

Gruß Hawkeye