Werte an Array übergeben?

[Khabarakh]

Zitat von Khabarakh:

Es ist auch mit nicht konstanten Werten Möglich, und zwar per Template: [...]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  sArray: StringArray;
  i: Integer;
  s: string;
begin
  Randomize;
  s := StringOfChar(Chr(Ord('A') + Random(Ord('Z') - Ord('A') + 1)), Random(20));

  sArray := FillArray(['*blubb*', 'Hello', 'World', '*blubb*', s]);
  for i := 0 to High(sArray) do
    ShowMessage(sArray[i]);
end;

Funktioniert ebenfalls.

[edit]Bei der Konstante von Net7 hast du natürlich Recht. [/edit]