| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вырезание из строки
ТехникПТО © (2005-02-03 14:20:00)Есть строка http://img.rambler.ru/main/w11.gif
нужно получить w11
Как это сделать?? просто со строками не работал :(
Almaz (2005-02-03 14:54:00) [1]А еще можно так:
S := ' http://img.rambler.ru/main/w11.gif';
...
S := Copy(S, LastDelimiter('/', S) + 1, 65535);
Удачи.
SergP (2005-02-03 14:52:00) [2]
> [3] Alx2 © (03.02.05 14:47)
> >SergP © (03.02.05 14:41) [2]
>
> Так тормозной софт и получается. Зачем тут квадратичная
> сложность?
В вопросе про скорость ничего не было сказано... :-)))
Alx2 (2005-02-03 14:47:00) [3]> SergP © (03.02.05 14:41) [2]
Так тормозной софт и получается. Зачем тут квадратичная сложность?
SergP (2005-02-03 14:41:00) [4]myvar:=ChangeFileExt(myvar,'');
while pos('/',myvar)>0 do delete (myvar,1,pos('/',myvar));
Александр Иванов (2005-02-03 14:28:00) [5]Этот код тебе вырежет все от первой справа точки, до первого справа слеша:
i:=Length(Str);
Flag:=False;
Res:='';
while (i>0) and (Str[i]<>'/') do
begin
if Str[i] = '.' then
Flag:=True;
if Flag then
Res:=Str[i]+Res;
dec(i);
end;
| |
