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!

cya
Corelgott

[Kroko1999]

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:

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:
FillChar (Array, Length(Array)*SizeOf(Datentyp), 0);