Не работает функция на андройде

@fivern · Регистрация: 12.02.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте! Данная функция работает в widows но не работает на android. Ни каких ошибок, просто не обрабатывается.

Delphi

 function TForm2.SplitString(const S: String; Delimiters: TSysCharSet): TArrayOfString;
var len, idx1, idx2, idx: integer;
begin
     Result := nil;
     if Length(S) = 0 then Exit;
     len := Length(S);
     SetLength(Result, len);
     idx2 := 1;
     idx := 0;
     repeat
       idx1 := idx2;
       while (idx2 <= len) and not(S[idx2] in Delimiters) do inc(idx2);
       if idx1 <= idx2 then
       begin
          Result[idx] := (Copy(S, idx1, idx2-idx1));
          inc(idx);
       end;
       if (idx2 <= len) and (S[idx2] in Delimiters) then inc(idx2);
     until idx2 > len;
     SetLength(Result, idx);
end;

@HyperZen · 15.01.2017, 10:34

(c) krapotkin:

думаю, вы упускаете этот момент

http://docwiki.embarcadero.com... gs_(Delphi)

в андроид индексы в строках идут с 0, на десктопе - с 1

и, насколько я помню, все движется в сторону immutable strings, когда нельзя будет заменить конкретный символ в строке кроме как составлением новой строки

так что приводите свой алгоритм в соответствие с этими вводными

@fivern · 15.01.2017, 16:08 **[ТС]**

HyperZen, все же, не могу понять как это реализовать

Добавлено через 24 секунды
HyperZen, может гдето есть уже готовый делитель?

@krapotkin · 15.01.2017, 16:33

хороший тон - читать оф документацию
но специально для вас люди старались и писали на русском
http://asd-soft.ru/tstringhelper-delphi/
SPLIT

@fivern · 15.01.2017, 19:58 **[ТС]**

krapotkin, Спасибо вам огромное за вашу помощь!

@HyperZen 498 / 251 / 56 Регистрация: 16.06.2011 Сообщений: 904
	15.01.2017, 10:34	2
	(c) krapotkin: думаю, вы упускаете этот момент http://docwiki.embarcadero.com... gs_(Delphi) в андроид индексы в строках идут с 0, на десктопе - с 1 и, насколько я помню, все движется в сторону immutable strings, когда нельзя будет заменить конкретный символ в строке кроме как составлением новой строки так что приводите свой алгоритм в соответствие с этими вводными 0

@fivern 3 / 3 / 1 Регистрация: 12.02.2013 Сообщений: 23
	15.01.2017, 16:08 [ТС]	3
	HyperZen, все же, не могу понять как это реализовать Добавлено через 24 секунды HyperZen, может гдето есть уже готовый делитель? 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	15.01.2017, 16:33	4
	Сообщение было отмечено fivern как решение Решение хороший тон - читать оф документацию но специально для вас люди старались и писали на русском http://asd-soft.ru/tstringhelper-delphi/ SPLIT 1

@fivern 3 / 3 / 1 Регистрация: 12.02.2013 Сообщений: 23
	15.01.2017, 19:58 [ТС]	5
	krapotkin, Спасибо вам огромное за вашу помощь! 0

Не работает функция на андройде

Решение