Syntax-Frage: Einem Array mehrere Werte "aufeinmal" zuweisen

[Neutral General]

Hi bernau

Ich glaube den Code kann man noch extrem vereinfachen:

Delphi-Quellcode:

procedure FillArray(var Dest: Array of String; Source: Array of String);
begin
  Move(Source[Low(Source)],Dest[Low(Dest)],Length(Dest)*4);
end;


var arr: Array[3..7] of String;
begin
  FillArray(arr,['Hallo','Welt','!','DelphiPraxis','!']);
end;

Aber gute Idee!
Auf die Idee wäre ich nicht gekommen. Mich ärgert das z.T. auch

Gruß
Neutral General