Функция результат которой массив

[Geddar]

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

function stm (s:string;n:integer):array [1..n] of integer;// уже в этой строке ошибка
var
i:integer;
begin
for i:=1 to n do
stm[i]:=ord(S[i]);

end;

[Arigato]

function stm (s:string;n:integer):array [1..n] of integer;// уже в этой строке ошибка

Необходимо предварительно объявить тип:

type tmass=array [1..n] of integer;
function stm (s:string;n:integer):tmass;

[Geddar]

Пропускает если задать длинну массива, а если поставить n то не пропускает, проблема в том что n заранее не известное число равное длинне строки которая передаеться функции, есть решение данной проблемы?

[goblinyara]

Динамические массивы - вот решение.
Вот 1 ссылка
вот вторая ссылка
Вот 3 ссылка

[Kotofff]

задай заведомо большое число ,например, 6000
и заведи внешнюю переменную в которой будет реальная длинна обрабатываемой строки и пусть функция stm(s:string;n:integer):tmass; "знает" с каким именно количеством символов работать ...

[Geddar]

Спасибо за помощь

[Fr_DWARF]

Есть 2 модуля Unit1 и projects

Листинг Unit1

type
 project=array of record
   name:string[50];
   en,me,el:byte;
   op:string[100];
   end;
 n_a=project;

procedure Rozdil(nomer:string); 
begin
 SetLength(n_a,n1);
 n_a:=na();
end;

Листинг модуля projects

unit projects;

interface

const
 n1=7;

type
 project=array of record
   name:string[50];
   en,me,el:byte;
   op:string[100];
   end;

 n_a=project;

 function na():n_a;

implementation

uses Unit1, Dialogs, SysUtils;

function na():n_a; 
var i:byte;
begin
try
 SetLength(Result,n1);
 for i:=0 to n1-1 do result[i].en:=i;
except
 ShowMessage('Ошибка в блоке');
 Abort;
 end;
end;

end.

В строке SetLength(n_a,n1); "ошибка "(" expected but "," found"
Почему?

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

у вас же нет переменной типа project
а у вас псевдоним типа задан.

[Fr_DWARF]

Если в Unit1 добавить var n_aroject;
вместо type n_a=project;
то в строке n_a:=na(); возникает ошибка "Incopatible types"

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

 function na():project;

var n_a:project;

намек ясен?