IMHO.WS - Преобразование массива в строку В Pascal

IMHO.WS (http://www.imho.ws/index.php)

- Программирование (http://www.imho.ws/forumdisplay.php?f=40)

- - Преобразование массива в строку В Pascal (http://www.imho.ws/showthread.php?t=103285)

eXploiD

04.05.2006 15:57

Преобразование массива в строку В Pascal

Нужно в Turbo pascal преобразовать массив, состаящий из слов, в одну строку.
Вроде примитив, а сделать не получается.
Помогите пожалуйста.

Naked

04.05.2006 16:58

ну так делаешь цикл
for i:=1 to n do begin
str := str + mass[i];
end;
Я точно не помню - в Паскале строки можно складывать или нет... Возможно вместо + там . или |, но вроде + :yees:

Ghost

04.05.2006 17:06

The_naked
Плюс там юзается. Немножко дополню, как бы я это делал:

Код:

function arr2str (inp: array of string): string;

var

  i: integer;

  s: string;

begin

  s := '';

  for i := 1 to sizeof (inp) div sizeof (string) do begin

    if s <> '' then s := s + ' ';

    s := s + inp[i - 1];

  end;

  arr2str := s;

end;



var

  str: array [1..3] of string;



begin

  str[1] := 'qwerty';

  str[2] := 'asdf';

  str[3] := 'zx';

  writeln (arr2str (str));

end.

Можно отсюда выковырнуть функцию arr2str и юзать, где надо. ;)

eXploiD

04.05.2006 18:42

Не знаю почему, но вариантThe_naked
я пробовал сам, не работало.
А вот Ghost подкинул полностью удовлетворяющую меня функцию, хотя алгорит впринципе один и тот же.
Спасибо! Проблему решил!

Часовой пояс GMT +4, время: 00:01.