void __fastcall TCForm::Sread(TObject *Sender, TCustomWinSocket *Socket)
{
AnsiString* result = Split("Яндекс, Рамблер, Гугл", ", ");
ShowMessage(result[0]); /* Ничего не выводит */
}
AnsiString* Split(AnsiString input, AnsiString sep)
{
AnsiString output[256];
int pos=1, size=0;
while(true)
{
pos = AnsiPos(sep, input);
if (pos == 0)
{
output[size] = input;
break;
}
else
output[size++] = input.SubString(0, pos-1);
input.Delete(1, pos-1+sep.Length());
if (pos == 0) break;
}
ShowMessage(output[0]); /* выводит Яндекс */
return output;
} |