array of String - als Type geht nicht

[Mathias]

Wieso sollte Ausgabe2 inkompatibel sein ?
Ist doch genau dasselbe.

Code: Alles auswählen

procedure Ausgabe1(sa: array of string);
var
  i: integer;
begin
  for i := 0 to Length(sa) - 1 do begin
    WriteLn(sa[i]);
  end;
end;
 
type
  Tsa = array of string;
 
procedure Ausgabe2(sa: Tsa);
var
  i: integer;
begin
  for i := 0 to Length(sa) - 1 do begin
    WriteLn(sa[i]);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Ausgabe1([s1, s2]);
  Ausgabe2([s1, s2]);  // Error: Incompatible type for arg no. 1: Got "Array Of Const/Constant Open Array of Constant String", expected "Tsa"
end;   

[Socke]

Das ist nicht dasselbe.

Auf der einen Seite hast du einen dynamischen Array http://www.freepascal.org/docs-html/ref ... 460003.3.1.
Auf der anderen Seite hast du einen open array Parameter http://www.freepascal.org/docs-html/ref ... 700014.4.5.