Текущий архив: 2007.01.14;
Скачать: 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 вся ветка
Текущий архив: 2007.01.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.047 c
