Verzeichnisse in Listbox auflisten

[DataCool]

HI Lamy,

ich hab ne Funktion geschrieben, die einen TExt automatisch anhand eines Trennzeichen aufsplittet und das ERgebnis in eine STringList schreibt.

DAs sollte Dir weiter helfen :

Code:

// splittet einen bestehenden String anhand eines Trennzeichen in mehere Strings auf
Function VBSplit(Liste : TStringList; Text2Split : String; SeperatorStr : String) : Boolean;
Var Posi      : Longint;
      strTemp : String;
      strPart : String;
      bInLoop : Boolean;
      sepLen  : Longint;
begin
   result  := true;
   bInLoop := false;
   try
      //Liste leeren
      Liste.clear;
      strTemp   := Text2Split;
      sepLen    := Length(SeperatorStr);
      Posi      := Pos(SeperatorStr,strTemp);
      While Posi > 0 do begin
         bInLoop := true;
         strPart := Copy(strTemp,1,Posi-1);
         Liste.Add(strPart);
         strTemp := copy(strTemp,Posi+sepLen,Length(strTemp)-(Posi+sepLen-1));
         Posi    := Pos(SeperatorStr,strTemp);
      end;
      if (bInLoop) or (Length(strTemp)>0) then
         Liste.add(strTemp);
   except
      Result := false;
   end;
end;

GRuß Data