Как установить длинну строки в Delphi?!

[Npwas]

Какие ф-ции использовать можно, что бы установить новую длинну так, что бы она была равна длинне введенной пользователем строки?!
Пример десйтвия алгоритма:

1)s:array[1..n] of string;
2)Пользователь ввел: s[i]=qwerf;
3)Length(s)=s[i]-1;

[whatever]

1)s:array[1..n] of string;
2)Пользователь ввел: s[i]=qwerf;
3)Length(s)=s[i]-1;

Ты тут присваиваешь массиву длинну строки.
Тип string изначально имеет длинну в 255 символов, но Length возвращает длинну записаных символов. Если тебе нужна строка длинной, например, 15 символов, то нужно в сделать вот так:

type
  str=string[15];
  s=array of str;

Для потомков: если кто-то будет потом читать эту тему, игнорируйте сообщение, бред написал.

[Пепел Феникса]

Тип string изначально имеет длинну в 255 символов

нет не имеет.
а так SetLength, только смысл пустой строки?

[whatever]

Ага, походу засыпаю уже. Я в первом сообщении SetLength и прочитал :$

[Npwas]

А как именно в самом теле программы менять строку?! Мож привести пример как пишется функциия, а то в книге тольк и нашел, что "SetLength(var S: string; NewLength: Integer) — устанавливает для строки S новую длину NewLength". А как правильно записать чет не пойму, и можноли в теле самой проги?!

[whatever]

var
  s:string;
begin
  //бла бла бла
  SetLength(s,15); //устанавили длину строки в 15 символов
  //бла бла бла
end.

[Npwas]

А именно чтобы оно задоло строке длинну кол-ва букв в слове! Как?! Прост у меня там в проге видел наверн походу, что слова могут быть любой длинны и кол-во их ограничено только возможностями дельфи!!!

[whatever]

Я не совсем понмаю, зачем тебе это, но можно написать так:

SetLength(S,length(a[i]));

где S - строка, a[i] - одно из твоих слов

[Npwas]

Так то оно как-то все равно будет иметь излишние пробелы!!!

[Arigato]

Длинна строки автоматически устанавливается при присваивании стринговой переменной значения или ввода строки через Read.