FillChar mit dynamischen Char Array

[Popov]

Ich hab gerade einen Knoten im Kopf. Wieso klappt das eine und das andere nicht?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: array[0..9] of Char;
begin
  FillChar(s, SizeOf(s), Ord('A'));
  ShowMessage(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  s: array of Char;
begin
  SetLength(s, 10);
  FillChar(s, SizeOf(s), Ord('A')); //auch nicht mit dem Wert 10
  ShowMessage(String(s));
end;

[DeddyH]

Lass Dir doch in beiden Fällen mal den Rückgabewert von SizeOf ausgeben.

[SMO]

Zitat von Popov:

Ich hab gerade einen Knoten im Kopf. Wieso klappt das eine und das andere nicht?

Weil dynamische Array-Variablen genau wie String-Variablen nur Pointer/Referenzen auf den reservierten Speicherbereich sind.

Delphi-Quellcode:

// das funktioniert mit statischen und dynamischen Arrays,
// auch wenn es nicht besonders schön ist
FillChar(s[Low(s)], SizeOf(s[Low(s)]) * Length(s), 0);