Правда ли, что на мобильных платформах Delphi работает с 0-основными строками?

[antarey]

Есть задача преобразовать строку 

Thu, 20 Mar 2014 09:00:07 +0200

до нормального вида 

20.03.2014 09:00:07

Вот код 

//---------------------------------------------------------------------------
String TForm1::GetDt(UnicodeString str)
{
UnicodeString month[12]={"Jan", "Feb", L"Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov","Dec"};
UnicodeString dd,mm,yy,ch;


str=str.Delete(1,str.Pos(","));
str=str.Trim();
str=str.Delete(str.Pos("+"),str.Length());
str=str.Trim();
dd=str.SubString(1,str.Pos(" ")).Trim();
str.Delete(1,str.Pos(" ")).Trim();
mm=str.SubString(1,str.Pos(" ")).Trim();
str.Delete(1,str.Pos(" ")).Trim();
for (int i = 0; i < 12; i++)if (month[i]==mm)mm=i+1;
yy=str.SubString(1,str.Pos(" ")).Trim();
str.Delete(1,str.Pos(" ")).Trim();
ch=str.Trim();


if(dd.Length()==1)dd="0"+dd;
if(mm.Length()==1)mm="0"+mm;


return dd+"."+mm+"."+yy+" "+ch;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Lines->Add("---------------------------------");
Memo1->Lines->Add(GetDt("Thu, 20 Mar 2014 09:00:07 +0200"));
Memo1->Lines->Add("---------------------------------");


}
//---------------------------------------------------------------------------

Для винды возвращается 20.03.2014 09:00:07 а для андроида 20.Mar T2014 09:00:07

В чем прикол? андроид что не так со строками работает???

[Brovin Yaroslav]

Прикол в том, что на мобильных платформах строки 0-основные. А вы работает с 1-основной.

 

0-основная - индексация строки начинается с 0, а не с 1.

 

Документация

Страница: UnicodeString

Note: To be compatible with Delphi desktop compilers, UnicodeString indexing is 1-based. If you are using Delphi mobile compilers, UnicodeString indexing is 0-based; for more information, see Migrating Delphi Code to Mobile from Desktop.

 

P.S. На будущее, потрудитесь оформить код согласно стандартам. Читать не возможно.