Извлечение имени каталога из любого места указанного пути

[antarey]

Есть TEdit   в нем записан какой-то путь

При клике по имени каталога в любом месте пути необходимо получить имя самого каталога и левую часть пути.

По аналогии , как в адресной строке проводника вынь 7 и выше - кликнул по имени каталога - получил список подкаталогов.

Дабы не изобретать велик - может есть стандартная функция получения подстроки заключенную в разделители?

Если нет - то как получить позицию каретки в TEdit?

 

[AngryOwl]

Ваш основной вопрос, как мне кажется, немного неуместен по отношению к FMX )

А на счет "получить позицию каретки" - у TEdit есть свойство CaretPosition, которое и возвращает требуемое Вам значение.

[antarey]

AlexG , немного да, уже разобрался.

Ето вводный вопрос к моей основной задачей - хочу реализовать адресную строку как в проводнике вин 7

[estra]

Может это вам чем нибудь поможет.
 

 

Программный класс для вывода пути в стиле Vista/Windows 7. Оригинальный контрол, используемый в данных ОС представляет из тебя стандартный ToolbarWindow32 отрисованный с применением стилей, поэтому пришлось писать с нуля, т.к. такую отрисовку будет достаточно проблематично отобразить на ХР и ниже. Исходный код показывает принципы написания составных компонентов. В частности данный компонент может работать как в режиме графического отображения, так и в режимах EDIT и COMBOBOX.

 

Правда он для VCL, но может он вас на какие нибудь интересные идеи наведет.

[antarey]

вот его я и хочу реализовать но для FMX

[estra]

Может есть стандартная функция получения подстроки заключенную в разделители?

 

Не уверен, что правильно понял вопрос... Вы не это имели ввиду?

procedure TForm1.Button1Click(Sender: TObject);
const
  Path = 'c:\temt\1.txt';
var
  st: TStrings;
  s: string;
begin
   st := TStringList.Create;
   st.Delimiter := '\';
   st.DelimitedText := Path;
   for s in st do
      ShowMessage( s );
   st.Free;
end;

[antarey]

estra c этим вопросом разобрался

[Brovin Yaroslav]

Убедительная просьба к авторам вопросов, если вы нашли ответ, то не поленитесь дать ответ, чтобы ваши знания могли пригодиться и помочь другим. Спасибо