1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function explode(s : string; ch : char; var args : tstrings): integer;
var p,i : integer;
begin
  p := 1;
  for i := 1 to length(s) do begin
    if (s[i] = ch) or (i = length(s)) then begin
      args.Add(copy(s,p,i-p));
      p := i + 1;
    end;
  end;
  result := args.count;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function explode(s : string; ch : char; var args : tstrings): integer;
var p : integer;
begin
  while length(s) > 0 do
  begin
    p := pos(ch, s);
    if p > 0 then
    begin
      args.Add(copy(s,1,p-1));
      delete(s,1,p);
    end else
    begin
      args.Add(s);
      s := '';
    end;
  end;
  result := args.count;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Var
  SL: tStringList;
Begin
  SL := tStringList.Create;

  Explode (s, ch, SL); // <- nur als Beispiel!

  SL.Free;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Var
  ZuZerlegenderString : String;
  Trennzeichen : Char;
  Liste : TStrings;

Begin
  ZuZerlegenderString := 'Ich bin ein zu zerlegender String';
  Liste := TStringList.Create;
  Trennzeichen := ' ';  //Leerzeichen zum Beispiel
  Anzahl := Explode( ZuzerlegenderString, Trennzeichen, Liste );
  Liste.Free;
End.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);

var
    TempList: TStrings;      { Liste deklarieren }
begin
    TempList := TStringList.Create;          { Listenobjekt erzeugen }
    try
      { Stringliste verwenden }
    finally
      TempList.Free;      { Listenobjekt freigeben }
    end;
end;