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

Вниз

как обрезать переменную   Найти похожие ветки 

 
Mr.Ice ©   (2003-01-03 21:58) [0]

Есть переменная (string) и надо отрезать от нее несколько последних символов!!!
Кто нибудь знает как это сделать?


 
Феликс ©   (2003-01-03 21:59) [1]

pos(), copy(), delete()


 
Mr.Ice ©   (2003-01-03 22:02) [2]

а если серьезно


 
Anatoly Podgoretsky ©   (2003-01-03 22:53) [3]

SetLength


 
Mr.Ice ©   (2003-01-03 22:55) [4]

спасибо а можно примерчик


 
Вадим ©   (2003-01-03 23:04) [5]

SetLength(s)


 
Neox ©   (2003-01-03 23:04) [6]

procedure SetLength(var S; NewLength: Integer);


 
Вадим ©   (2003-01-03 23:04) [7]

Ээ, в смысле setlength(s, 3)


 
Mihey   (2003-01-03 23:06) [8]

Можно очень просто. Следующий пример возвращает n последних символов у строки Str:

n := 2;
str := "I Love Delphi!";
For i := Length(str) downto (Length(str) - n) do
begin
Rez := str[i] + Rez;
end;
ShowMessage(Rez);

Если ты имел ввиду всё же "отрезает", то используй SetLength. Ведь строка - это массив символов, а потому проходит такой фокус:

SetLength(str, Length(str)-n);


 
Mr.Ice ©   (2003-01-03 23:10) [9]

Mihey большое СПАСИБО теперь все работает :)


 
drpass ©   (2003-01-03 23:38) [10]

А программисты, иногда читающие доки, вместо
For i := Length(str) downto (Length(str) - n) do
begin
Rez := str[i] + Rez;
end;

используют функцию RightStr(str,n)

:)))


 
blackman ©   (2003-01-04 00:05) [11]

Это просто праздник какой-то !
Особенно хорош drpass
Непонятно только, что у него (Mr.Ice) не работало ?
Надо в FAQ занести...


 
Vad ©   (2003-01-04 02:37) [12]

>А программисты, иногда читающие доки, вместо
...
>используют функцию RightStr(str,n)

Еще, неплохо бы, программистам, которые используют функцию
RightStr(str,n) не забывать - в каких модулях она находится...



Страницы: 1 вся ветка

Текущий архив: 2003.01.20;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.018 c
3-62434
KonuhovSegey
2002-12-26 07:08
2003.01.20
Автоинкрементные поля в Paradox по сети.


7-62860
Andy BitOff
2002-11-05 20:02
2003.01.20
Состояние принтера


3-62353
Леший
2002-12-23 15:14
2003.01.20
Добрый день уважаемые мастера, подскажите пожалуйста


4-62923
Uncle Archi
2002-12-03 21:25
2003.01.20
Win API


7-62879
Diamond Cat
2002-11-07 16:20
2003.01.20
И.К. порт