Чтение строковой переменной.

[JUDAS]

У меня есть код, который читает строковую переменную до знака слэша и записывает результат в другую строковую переменную: 
Код:
 это не код
Однако, он читает строку начиная с начала, а мне бы надо с конца. Как бы это провернуть?

p :=  Pos('/', TestString);
if p>0 then S:= Copy(TestString,p+1, Length(TestString)-p);

[Поллукс]

Сообщение от JUDAS

У меня есть код, который читает строковую переменную до знака слэша и записывает результат в другую строковую переменную: 
Код:
 это не код
Однако, он читает строку начиная с начала, а мне бы надо с конца. Как бы это провернуть?

p :=  Pos('/', TestString);
if p>0 then S:= Copy(TestString,p+1, Length(TestString)-p);

Неплохо, но получается все равно, не финальный файл, лежащий после последнего слэша, а весь остаток пути, типа: Windows/FolderName/File.txt

[Поллукс]

Сообщение от Serge_Bliznykov

ну и кто мешает найти позицию последнего слеша?!
Да хоть тем же перебором:

I := Length(TestString);
while (i>0) and (TestString[I]<>'/') do Dec(I);
S := Copy(TestString,1, I-1);

всё.

Это еще хуже. Тут мне выдается полный путь до файла, за исключением самомо файла.
[QUOTE=Smitt&Wesson;1542743]

Сообщение от Serge_Bliznykov

Поллукс, Вам уже спецы ответили. Вброс? Братва, таких нужно банить - немедля. Выставлять оценки за посещаемост - запрещено.

"Спецы", мне ничего еще не ответили. Пока что, все приведенные коды, непригодны.

[Аватар]

Это еще хуже.

Если чуть-чуть напрячь извилину, заметь - только одну, над строкой

S := Copy(TestString,1, I-1);

и немного поменять все будет как надо

[northener]

Сообщение от Поллукс

Неплохо, но получается все равно, не финальный файл, лежащий после последнего слэша, а весь остаток пути, типа: Windows/FolderName/File.txt

Если речь идет об именах файлов, то ExtractFileName и не морочь взрослым дядям голову!

[Поллукс]

Короче попробовал я эту вашу ExtractFileName. Полное фуфло: результат тот же самый что и с предыдущими кодами. Функция возвращает полный путь к файлу, за исключением старта - диска C:/

[Аватар]

Функция возвращает полный путь к файлу

Гы, у тебя особенный ExtractFileName

[Stilet]

Функция возвращает полный путь к файлу, за исключением старта - диска C:/

Такого быть не может. Приводи код в студию.

[northener]

Сообщение от Поллукс

Короче попробовал я эту вашу ExtractFileName. Полное фуфло: результат тот же самый что и с предыдущими кодами. Функция возвращает полный путь к файлу, за исключением старта - диска C:/

Похоже у вас неисправна одна прокладка и её нужно заменить.

P.S. Интересно у Кастора тоже такие проблемы с программированием? Если да, то это наследственная генетическая ошибка.

[Поллукс]

Привожу свой код:

S := ExtractFileExt(TestString);