как обрезать переменную

← →
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);

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

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

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

:)))

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

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

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

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