Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: String zerlegen; Trenner

    Delphi
    by quendolineDD, 23. Okt 2007
  function cuttext(AString: string; delimiter: Char):array of string
  var i: integer;
  begin
  setlength(result, 0);
  i := 0;
  while (pos(delimiter, astring) <> 0)then
  begin
  setlength(result, i+1);
  result := copy(astring, 0, pos(delimiter, astring)-1);
  delete(astring, 1, pos(delimiter, astring));