MagistrAnatol
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем, спасибо, но немного не то
ExtractStrings
или
TStrings *list = new TStringList();
String delim,PathLeft,CurentFolder;
#if defined(_Windows)
delim="\\";
list->Delimiter='\\';
#endif
#if defined(__ANDROID__)
delim="/";
list->Delimiter='/';
#endif
list->DelimitedText=Edit1->Text;
Memo1->Lines->Assign(list);
мне будут нужны, но они не дадут имя текущего каталога, пришлось изобрести трахтер 
int CaretPos=Edit1->CaretPosition;
int FirstDelimPos=CaretPos;
int LastDelimPos=CaretPos;
while (Edit1->Text.SubString(FirstDelimPos,1)!=delim && FirstDelimPos>=0 )FirstDelimPos--;
while (Edit1->Text.SubString(LastDelimPos,1)!=delim && LastDelimPos<=Edit1->Text.Length())LastDelimPos++;
PathLeft=Edit1->Text.SubString(0,LastDelimPos-1);
CurentFolder=Edit1->Text.SubString(FirstDelimPos+1,LastDelimPos-FirstDelimPos-1);
Memo1->Lines->Add(PathLeft);
Memo1->Lines->Add(CurentFolder);
|
