Delphi. Работа со строками в Record

[marat-link]

Привет Всем программиcтам!
Вопрос: Значение из строки, которая хранится в записи, равно след.:

'Строка'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0

Длина строки в записи равна 30. Как из записи извлечь чистую строку:

'Строка'

Без мусора:

#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0

В запись строку кладу след. образом:

Строка := Copy(Buffer, 34, 30)

[Utkin]

А зачем Вы так ложите строку? Положите в запись полновесную строку, излишек заполните пробелами. Второй вариант - pos до первого #0. Третий вариант ручками в цикле читать все символы до первого #0

[marat-link]

У меня появился четветрый вариант (смесь второго и третьего вариантов от Utkin'а). Вот код:

 Str2:= Copy(Str, 1, Pos(#0, Str) - 1);

Проблема решена!