Array mit denselbem Wert vorbelegen

[Praktikant]

eigentlich was ganz simples:
Wie belege ich einen array mit denselbem Wert vor

Habe einen array[1..4] of integer

Nun soll der array jeweils mit '1' vorbelegt werden, geht doch sicher in einem Rutsch?!
Meine Versuche ohne explizite Zuweisung ergaben immer einen syntax fehler :(

[Tyrael Y.]

Delphi-Quellcode:

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

Gruß

[Praktikant]

danke für die schnelle antwort :)

Dachte dass man evtl. doch ohne Schleife auskommt.
Weshalb eigentlich lengtharray-1 :?:

Da fällt mir doch beim schreiben grad ein dass das letzte zeichen eines arrays ja immer ein Steuerzeichen enthält, welches nicht überschrieben werden darf, nicht wahr?!

Also nochma thx!

[Sourcemaker]

Length-1 wenn das Array null relativ ist !

Gruß

Frank

[MyRealName]

Versuch doch mal FillChar :)

begin
FillChar(Pointer(MyArray[0])^, Length(MyArray) * SizeOf(DatenTyp), 0); // füllt das Array mit Nullen auf
end;


MyRealName

[Corelgott]

@Fillchar

thx nice one! :thumb:

cya
Corelgott

[Kroko1999]

Zitat:

Zitat von MyRealName

Versuch doch mal FillChar :)

begin
FillChar(Pointer(MyArray[0])^, Length(MyArray) * SizeOf(DatenTyp), 0); // füllt das Array mit Nullen auf
end;


MyRealName

geht aber nur mit 0 zu füllen :!:

[shmia]

Delphi-Quellcode:

type
   TxxxArray : array[1..4] of integer;

const
   defaultArray = ( 1, 2, 3, 4  );

var
   array1 : TxxxArray;

begin
   array1 := defaultArray;   // Array mit default Werten vorbelegen

[Corelgott]

hm...

laut delphi hilfe:

Delphi-Quellcode:

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

[DirectFromHell]

Ja das sollte eigentlich gehen. Aber bei mir war es so, dass ich so wie oben beschrieben eine Access Violation hatte. Bei mir geht nur folgendes:

Delphi-Quellcode:

FillChar (Array, Length(Array)*SizeOf(Datentyp), 0);

[Kroko1999]

Zitat:

Zitat von Corelgott

hm...

laut delphi hilfe:

Delphi-Quellcode:

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:

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;