Главная страница
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.031 c
14-1116490035
Piter
2005-05-19 12:07
2005.06.06
Трубы из металлопластика, 15 мм


4-1113549534
старый маразматикЪ
2005-04-15 11:18
2005.06.06
Работаю с файлом при помощи ф-ций FileOpen FileRead FileWrite


1-1116511273
alex-drob
2005-05-19 18:01
2005.06.06
Средняя кнопка мыши


1-1116847165
alex-drob
2005-05-23 15:19
2005.06.06
Запуск файла из памяти


6-1111330702
Евгений2
2005-03-20 17:58
2005.06.06
С помощью чего в Delphi это можно реализовать?