[epic]

Delphi'de split adinda bir metodun olmamasi buyuk eksiklik:

procedure Split(Input: String; const Delimiter: Char; const Strings: TStrings) ;
begin
   Assert(Assigned(Strings)) ;

   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

procedure UseSplit;
var
  s: TStringList;
begin
  s := TStringList.Create;

  try
    Split(BolunecekMetin, '|', s);
  
    // burada bir seyler yapiliyor...
  finally
    s.Free;
  end;
end;