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

← →
ГореПрограммер (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;
И «перевернуть» обе строки, если нужно.

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

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

попробуй LastDelimiter

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