array of char -> string

[Valkiria]

Подскажите как можно перевести массив букв в строку (можно ли это сделать) ? И как удалить из строки лишние пробелы, есть ли такая функция или ее надо писать?

[rpy3uH]

var 

  str1:array[1..10] of char;
  str2:string;
begin
  str1[1]:='r';
  str1[2]:='2';
  str1[3]:='3';
  str1[4]:=#0;//!!!!!!!!!!!!!!!!!
  str2:=str1;

[mihali4]

Если имеются в виду пробелы в начале и в конце строки, то существуют такие стандартные фунции TrimLeft - удалить пробелы слева и TrimRight -справа.

[SERG1980]

Или просто trim удаляет со всех сторон

Для удаления пробелов внутри строки можно так поппробовать:

function DeleteChar(S:string;ch:char):string ;
begin
while Pos(ch,S)<>0 do
delete(S,Pos(ch,S),1);
Result:=S;
end;

[Yanis]

Сообщение от SERG1980

Для удаления пробелов внутри строки можно так поппробовать:…

Или воспользоваться StringReplace.

[JTG]

Подскажите как можно перевести массив букв в строку (можно ли это сделать)

var s : string;
p : array[0..30] of char;
begin
s:=StrPas (@p);
end;

Тока последний элемент массива д.б #0