Как убрать нулевые символы?

← →
kull © (2002-10-24 16:42) [0]

Привет народ!
У меня есть строка:

S = "string"#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 ......

т.е. длина ее = 64, а реально полезных символов 6.

Как убрать нулевые символы? Я сделал так

S := PChar(S);

Может еще как можно?

← →
Polevi © (2002-10-24 16:45) [1]

лучше никак

← →
Song © (2002-10-24 16:55) [2]

StrLCopy+StrLen

← →
kull © (2002-10-24 16:56) [3]

Дело в том что эта строка является декриптованным паролем.
И при передаче пароля с нулевыми символами в компонент программа виснет.
А если убрать их то все нормально работает.

Просто у меня вопрос: есть ли еще способы, кроме мною приведенного, убрать нулевые символы на конце строки?

← →
DN © (2002-10-24 16:57) [4]

Если это 6 первых полезных, то можно приблизительно так:
... S:=Delete(S,7,Length(S)) ...

← →
kull © (2002-10-24 16:58) [5]

Да, может я забыл сказать, что тип строки - string.

← →
Anatoly Podgoretsky © (2002-10-24 16:59) [6]

kull © (24.10.02 16:42)
Это лучший метод, если в конце ничего кроме нулей

Не играет роли, первый встретившийся символ 0 является ограничителем строки, сколько бы она физически памяти не занимала, сами строки при присаоении автоматически управляют памятью

PChar(S) вернет все до нуля
S := а это перераспределит память под строку

Спасибо.

Как убрать нулевые символы? Найти похожие ветки