In Function übergebenes dynamisches Array

[Chewie]

Wenn du mit Funktionen bzw. Prozeduren und dynamischen Arrays arbeitest, kannst du das Array nicht einfach so übergeben, sondern musst dir eine Art Alias-Typ erschaffen. Im Code sieht das dann so aus:

Code:

type TStringArray = Array of String;

function parsen ( var output: TStringArray; input: string; trennzeichen:char):integer;
var
i,ac:integer;
begin
ac := 1;
setlength(output,ac);
for i:=0 to length(input) do
begin
if input[i] = ' ' then
  begin
  inc(ac);
  setlength(output,ac);
end
else
  begin
  output[ac]:=output[ac]+input[i];
end;
end;
result := ac;
end;