Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа со строками

Olya © (2005-05-19 09:49:00)
Помогите пожалуйста очень надо, а я не знаю как

Подскажите пожалуйста, как скопировать определенное количество символов из строки S в строку S1, начиная с последнего символа строки S.
То есть имеется строка S не фиксированной длины, но известно что необходимо использовать символы стоящие в конце строки.
Например,
S = 100001 Фамилия Имя Отчество 249.00 0.00 249.00 0.00
Необходимо, чтобы S1=0.00
При этом длина S всегда

ANB (2005-05-19 11:31:00) [1]

> -=XP=- © (19.05.05 11:27) [14]
- по сабжу - просила отрезать последние символы. В принципе - RightStr - таже Copy, только с одним параметром.

-=XP=- (2005-05-19 11:27:00) [2]
ANB © (19.05.05 11:05) [9]

Я так думаю, у автора возникла проблема иммено с тем, как найти этот "последний пробел", отделяющий последнее слово. Кстати, перед тем как описанное выполнять, неплохо бы еще и S := TrimRight(S) сделать. Но это уже зависит от постановки задачи.

-=XP=- (2005-05-19 11:25:00) [3]
Йо... # $20

Olya (2005-05-19 11:25:00) [4]
Всем огромное спасибо

VMcL (2005-05-19 11:19:00) [5]
>> heady (19.05.05 11:08) [10]

Код пробела 32 или 20h.

heady (2005-05-19 11:08:00) [6]
Johnmen
#20 - код пробела можно было написать
"while (i > 0) and (S[i] <> ' ') do"

ANB (2005-05-19 11:05:00) [7]
uses StrUtils

function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString;

юзать S := RightStr('Бла1-бла2-бла3-бла4', 4); Вернет 'бла4'.

P.N.P. (2005-05-19 11:02:00) [8]
>Olya © (19.05.05 11:00) [7]
RightStr - это тоже самое что у
КиТаЯц © (19.05.05 09:55) [3]

Olya (2005-05-19 11:00:00) [9]
не подскажешь как RightStr пользоваться?

ANB (2005-05-19 10:28:00) [10]
RightStr

Johnmen (2005-05-19 10:27:00) [11]
>-=XP=- © (19.05.05 09:57) [4]

Что за #20 ?
:)

-=XP=- (2005-05-19 09:57:00) [12]
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;

КиТаЯц (2005-05-19 09:55:00) [13]
Думаю что-то вроде этого
S1:= copy(S, length(s)-нужное количество симоволов, нужное количество симоволов);

P.N.P. (2005-05-19 09:54:00) [14]
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;

Reindeer Moss Eater (2005-05-19 09:53:00) [15]
Copy

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »