Скачать: CL | DM;

Работа с строками   Найти похожие ветки 

← →
ГореПрограммер   (2006-12-20 18:59) [0]

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

---

← →
Ega23 ©   (2006-12-20 19:02) [1]

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

---

← →
Джо ©   (2006-12-20 19:07) [2]

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

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

---

← →
Джо ©   (2006-12-20 19:14) [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;

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

---

← →
Loginov Dmitry ©   (2006-12-20 19:43) [4]

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

---

← →
allrussia ©   (2006-12-20 23:56) [5]

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

попробуй LastDelimiter

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.078 c