| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с строками

ГореПрограммер ©   (2006-12-20 18:59:00) 

Здравствуйте. 2 вопроса:
есть ли аналог оператора copy, но чтобы он копировал с конца строки ?
есть ли аналог оператора pos, но чтобы он возвращал первое вхождение подстроки с конца строки ?

---

allrussia   (2006-12-20 23:56:00) [1]

ГореПрограммер
есть ли аналог оператора pos, но чтобы он возвращал первое вхождение

попробуй LastDelimiter

---

Loginov Dmitry   (2006-12-20 19:43:00) [2]

Загляни в модуль StrUtils. Там такого добра навалом.

---

Джо   (2006-12-20 19:14:00) [3]

> [2] Джо ©   (20.12.06 19:07)
> «Переверни» строку

Т.е., как-то так:
function InvertString (const ASource: string): string;
var
 I,
 Len: Integer;
begin
 Len := Length(ASource);
 SetLength(Result,Len);

 for I := 1 to Len do
   Result[I] := ASource[Len-I+1]
end;

И «перевернуть» обе строки, если нужно.

---

Джо   (2006-12-20 19:07:00) [4]

> есть ли аналог оператора pos, но чтобы он возвращал первое
> вхождение подстроки с конца строки ?

«Переверни» строку и используй Pos.

---

Ega23   (2006-12-20 19:02:00) [5]

for i:=Length(s1) downto 1 do s2:=s2+s1[i];

---

Наверх