Array mit denselbem Wert vorbelegen

[Kroko1999]

Zitat von Corelgott:

hm...

laut delphi hilfe:

procedure FillChar(var X; Count: Integer; Value: Byte) das letzte beschreibt den value... oder?! Oo
**ich habe es bisher nur mit 0 getestet... aber von 0 bis 255 sollte doch theoretisch alles machbar sein...
**proof me wrong...

cya
Corelgott

ja bei 1 erhälts Du aber für jeden Integer-Wert $01010101 etc.

[MPirnstill]

Zitat von Tyrael Y.:

Delphi-Quellcode:

for i := 0 to Length(meinArray) - 1 do
begin
  MeinArray[i] := 1;
end;

@Tyrael Y.

Kann man nicht einfach statt "length(meinArray) - 1" dafür "high(meinArray)" benutzen. Dann braucht man nicht noch extra einen wieder abziehen. Oder ist das nicht das gleiche. Und dann auch gleich statt "0" dafür "low(meinArray)" um sicher zugehen, falls das Array woanders beginnt als bei Null.

Gruß
Micha

[ste_ett]

Bei einem dynamsichen Array kann man "0 to High()" nutzen, bei einem statischen Array muss der Index nicht bei 0 beginnen (s. Beispiel aus #1 / "array[1..4]"), dort sollte man dann "Low(Name) to High(Name)" benutzen.

[Sharky]

Oder sich für alle Arten von Arrays etwas basteln:

Delphi-Quellcode:

procedure FillArray (var aArray : Array of Integer; aValue: Cardinal); overload;
var
  ndx : integer;
begin
  for ndx := Low(aArray) to High(aArray) do
   aArray[ndx] := aValue;
end;

procedure FillArray (var aArray : Array of Char; aValue: Char); overload;
var
  ndx : integer;
begin
  for ndx := Low(aArray) to High(aArray) do
   aArray[ndx] := aValue;
end;

procedure FillArray (var aArray : Array of String; aValue: String); overload;
var
  ndx : integer;
begin
  for ndx := Low(aArray) to High(aArray) do
   aArray[ndx] := aValue;
end;

procedure TForm1.btn_TestClick(Sender: TObject);
var
  myStringArray : Array[2..10] of String;
  myIntegerArray : Array[2..10] of Integer;
  myCharArray : Array[2..10] of Char;
begin
  FillArray(mystringArray,'blubb');
  FillArray(myIntegerArray,1);
  FillArray(myCharArray,' ');
end;