Форум: "Основная";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];
ВнизРабота со строками Найти похожие ветки
← →
Olya © (2005-05-19 09:49) [0]Помогите пожалуйста очень надо, а я не знаю как
Подскажите пожалуйста, как скопировать определенное количество символов из строки S в строку S1, начиная с последнего символа строки S.
То есть имеется строка S не фиксированной длины, но известно что необходимо использовать символы стоящие в конце строки.
Например,
S = 100001 Фамилия Имя Отчество 249.00 0.00 249.00 0.00
Необходимо, чтобы S1=0.00
При этом длина S всегда
← →
Reindeer Moss Eater © (2005-05-19 09:53) [1]Copy
← →
P.N.P. © (2005-05-19 09:54) [2]function CPLast(s:string):string;
var
i:integer
begin
i:=Length(S);
while (i>0) and (S[i]<>" ") do
begin
result:=s[i]+result;
Dec(i);
end;
end;
← →
КиТаЯц © (2005-05-19 09:55) [3]Думаю что-то вроде этого
S1:= copy(S, length(s)-нужное количество симоволов, нужное количество симоволов);
← →
-=XP=- © (2005-05-19 09:57) [4]function LastWord(const S: string): string;
var
i: integer;
begin
i := Length(S);
while (i > 0) and (S[i] <> #20) do
i := i - 1;
Result := Copy(S, i + 1, Length(S) - i);
end;
← →
Johnmen © (2005-05-19 10:27) [5]>-=XP=- © (19.05.05 09:57) [4]
Что за #20 ?
:)
← →
ANB © (2005-05-19 10:28) [6]RightStr
← →
Olya © (2005-05-19 11:00) [7]не подскажешь как RightStr пользоваться?
← →
P.N.P. © (2005-05-19 11:02) [8]>Olya © (19.05.05 11:00) [7]
RightStr - это тоже самое что у
КиТаЯц © (19.05.05 09:55) [3]
← →
ANB © (2005-05-19 11:05) [9]uses StrUtils
function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString;
юзать S := RightStr("Бла1-бла2-бла3-бла4", 4); Вернет "бла4".
← →
heady (2005-05-19 11:08) [10]Johnmen
#20 - код пробела можно было написать
"while (i > 0) and (S[i] <> " ") do"
← →
VMcL © (2005-05-19 11:19) [11]>>heady (19.05.05 11:08) [10]
Код пробела 32 или 20h.
← →
-=XP=- © (2005-05-19 11:25) [12]Йо... #$20
← →
Olya © (2005-05-19 11:25) [13]Всем огромное спасибо
← →
-=XP=- © (2005-05-19 11:27) [14]ANB © (19.05.05 11:05) [9]
Я так думаю, у автора возникла проблема иммено с тем, как найти этот "последний пробел", отделяющий последнее слово. Кстати, перед тем как описанное выполнять, неплохо бы еще и S := TrimRight(S) сделать. Но это уже зависит от постановки задачи.
← →
ANB © (2005-05-19 11:31) [15]
> -=XP=- © (19.05.05 11:27) [14]
- по сабжу - просила отрезать последние символы. В принципе - RightStr - таже Copy, только с одним параметром.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.013 c