Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c