Главная страница
    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
4-1113661645
IronMan
2005-04-16 18:27
2005.06.06
Запуск программы из сервиса


14-1116316875
stone
2005-05-17 12:01
2005.06.06
«Велик могучим русский языка!»


4-1113402764
_Okey_
2005-04-13 18:32
2005.06.06
Как изменить свойства обекта по ходу выполнения проги


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


1-1116587490
Phoenix9000
2005-05-20 15:11
2005.06.06
переменная string. Поменять местами некоторые данные





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский