Suggest a feature
×

Welcome to TagMyCode

Please login or create account to add a snippet.
0
0
 
0
Language: Delphi
Posted by: tolik8 user
Added: Jun 8, 2018 6:22 AM
Modified: Jun 8, 2018 6:23 AM
Views: 5
Tags: no tags
Функция преобразования строки в массив по заданному разделителю
  1. uses
  2.   Classes, StrUtils;
  3.  
  4. function str_explode(const delim, str: string): TStringList;
  5. var offset: integer;
  6.     cur: integer;
  7.     dl: integer;
  8. begin
  9.   Result:=TStringList.Create;
  10.   dl:=Length(delim);
  11.   offset:=1;
  12.   while True do begin
  13.       cur:=PosEx(delim, str, offset);
  14.       if cur > 0 then
  15.           Result.Add(Copy(str, offset, cur - offset))
  16.       else begin
  17.           Result.Add(Copy(str, offset, Length(str) - offset + 1));
  18.           Break
  19.       end;
  20.       offset:=cur + dl;
  21.   end;
  22. end;