Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-1116736940
Никита
2005-05-22 08:42
2005.06.06
Как узнать длину строки в пикселях


14-1116563040
_Nobody_
2005-05-20 08:24
2005.06.06
О чувствах...


1-1116714031
Destroyer
2005-05-22 02:20
2005.06.06
Вопрос по обработке ошибок


1-1116676673
antol
2005-05-21 15:57
2005.06.06
как ввести логическое выражение


1-1116631879
Masta Hookah
2005-05-21 03:31
2005.06.06
Canvas





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский