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]