Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.06;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.062 c
1-1116609134
ancot
2005-05-20 21:12
2005.06.06
Количество элементов Set свойства


8-1108654118
Sun
2005-02-17 18:28
2005.06.06
DXImageList


1-1116912661
tomas
2005-05-24 09:31
2005.06.06
Использование TcxDBLookupComboBox (Express DBEditors 4)


1-1116872231
чяс
2005-05-23 22:17
2005.06.06
Как в run-time создать форму с кнопочками


14-1116578066
lexer
2005-05-20 12:34
2005.06.06
html - cтраница вместо 404 Error "The page cannot be found"