Problem mit SetLength

[gangs-taas]

das Problem ist ich möchte dass die Elemte die ich einsortiere zusammen bleiben

d.h. ich möchte sie auch einzelnd ansprechen könn z.b. Liste[i] ...
aber wenn ich ne StringList nutze sortiert der die alle in die selbe zeile ..

wenn ich z.b. dann Liste.text auswerte sind da nicht mehrere Zeilen sondern nur eine ...

und nein ich hatte dem keine feste größe geben das hier hab ich gemacht :

Delphi-Quellcode:

procedure TBearbeiten.Termine_Verarbeiten(TerminText: string; Datum: TDateTime; var Aktuelle_Termine: array of TStringList);
var
  pos1 : Integer ;
  TerminListe : Array of String ;  // <= keine Längenangabe
  Acht_Tage : Array of TStringlist ;

  procedure Strings_Einsortieren(var Text : String; var Liste : Array of String ) ;
  var
    Start_pos1,
    End_Pos1: integer ;
    SubString : String ;

    procedure Element_hinzufügen(Text : String; var Liste : Array of String);
    var
      y : integer ;
    begin
      y := Length(Liste);
      SetLength(Liste,y+1);
      Liste[y-1] := Text
    end;

  begin
    Repeat
      Start_Pos1 := Pos('<',Text);
      End_Pos1 := pos('>',Text);
      End_Pos1 := PosEx('>',Text,End_Pos1+1);
      SubString := Copy(Text,Start_Pos1,End_Pos1);
      Element_hinzufügen(SubString,Liste) ;
      Text := Copy(Text,End_Pos1+1);
    until Pos('<',Text) = 0 ;
  end;

begin
  pos1 := Pos('}',TerminText);
  TerminText := Copy(TerminText,Pos1 + 1);
  Strings_Einsortieren(TerminText,TerminListe);
end;