Отбросить часть текста

[and1733]

Здравствуйте! Нужна помощь знающих людей...

Есть текст в Edit1 "7/706572"
Нужно извлечь в Edit2 значение до "/", т. е. "7"
А в Edit3 значение после "/", т. е. "706572"

[FataLL]

TStringList* sl = new TStringList;
try
{
  sl->Delimiter = '/';
  sl->DelimitedText = Edit1->Text;
  Edit2->Text = sl->Strings[0];
  Edit3->Text = sl->Strings[1];
}
__finally
{
  delete sl;
}

[and1733]

FataLL, спасибо, то что нужно!