problem mit 'Array' und 'daynamic array'

[DeddyH]

Typisiere das Array einmal, dann sollte es funktionieren.

Delphi-Quellcode:

type TStrArray = array of string;

function Fu_Ar_Termine_Sortieren(var StrArray : TStrArray) : boolean;
    var
      Boo_Var : boolean ;
      Zwi_Array : TStrArray ;
      i : integer ;
      y : integer ;
    begin
      Boo_Var := True ;
      Zwi_Array := StrArray; // <= hier Fehler
      for i := 1 to High(Zwi_Array) - 1  do
      begin
        for y := 1 to PosEx('>',Zwi_Array[i],(Pos('>',Zwi_Array[i]))+1) do
        begin
          If Zwi_Array[i][y] > Zwi_Array[i-1][y] Then
          begin
            ArrayPlätzeTauschen(Zwi_Array,i,i+1);
            boo_Var := false ;
            break;
          end;
        end;
      end;
      if not Boo_Var{ = True *pfui*} then
      begin
        Fu_Ar_Termine_Sortieren(Zwi_array);
      end;
      StrArray := Zwi_Array;  // <= hier Fehler
    end;