Arraywert in einen anderen Array??? Wie?

[mosquito]

also wenn ich diese zeile:
Kxa[b]:=Kxa[a];
eingebe und das prog ausführe, dann kommt eine message:

Im Projekt Project1.exe ist eine Exception der Klasse EAccenessViolation aufgetreten. MEldung:
"Zugriffsverletztung bei Adresse 00... usw. im Modul Project1.exe". Lese Adresse 00.. usw.. Prozess
wurde angehalten...

mehr weis ich nicht

[Sharky]

Hai mosquito,

zeige doch mal wie dein Array deklariert ist. Und dann den gesamten Code in dem Du die Werte kopieren möchtest.
Alles andere ist ein versuch im trüben zu fischen.

[Neutral General]

Was für eine Art von Array ist das überhaupt und ist dein Array überhaupt (min) b groß ?

[hanselmansel]

Du musst bei Arrays aufpassen, dass du nicht auf eine Zelle zugreifst, die nicht existiert. Wenn das Array statisch nur als

Delphi-Quellcode:

Array[0..9] of TMyType

deklariert ist, dann kannst du mies auf Zelle 35 zugreifen, da diese in diesem Fall nicht existiert. Da musst du beachten, wenn du mit a und b rumspielst. :thumb:

[mosquito]

also ich hab...

Kxa,Kya,Kxb,Kyb: array of integer;

....

setlength(Kxa, 10);
setlength(Kya, 10);
setlength(Kxb, 10);
setlength(Kyb, 10);


....

a:=0;
b:=2;

....

Kxa[b]:=Kxa[a];//hier
Kxb[b]:=Kxa[a]+10;//und hier gehts nicht weiter...
image1.canvas.brush.Color:=clgreen;
image1.Canvas.rectangle(Kxa[b],Kya[b],Kxb[b],Kyb[b]);

[hanselmansel]

Hat nichts mit derLösung deines momentanen Problems zu tun, aber wenn du die Größe der Arrays nicht zur Laufzeit verändern willst, dann benutze

Delphi-Quellcode:

Kxa,Kya,Kxb,Kyb :Array[0..9] of integer;

das ist weniger Schreibarbeit und sieht einfach besser aus. :)

[mosquito]

es kann sein, dass ich haber 100 oder so brauche und daher muss ich ein dynamisches verwenden

[Sharky]

Ich kann in dem was Du zeigst keinen Fehler erkennen.

Hier mein DemoCode:

Delphi-Quellcode:

var
  Kxa, Kya, Kxb, Kyb: array of integer;

procedure TDemoForm.FormCreate(Sender: TObject);
begin
  setlength(Kxa, 10);
  setlength(Kya, 10);
  setlength(Kxb, 10);
  setlength(Kyb, 10);
end;

procedure TDemoForm.btn_CopyArrayClick(Sender: TObject);
var
  a: integer;
  b: integer;
begin
  a := 0;
  b := 2;
  Kxa[b] := Kxa[a];
  Kxb[b] := Kxa[a] + 10;
end;

[mosquito]

aber leider genau an der stelle
Kxa[b] := Kxa[a];
hat er das problem,
also ich kann es komilieren, aber der Fehler kommt erst, wenn das prog zu genau dieser Stelle kommt, dann springt Delphi dahin, zeigts mir an und die Fehlermeldung kommt...
heul

[hanselmansel]

Du könntest einen Breakpoint in die Zeile vor dem Crach setzten, das Progrämmchen laufen lassen, und gucken welche Werte die einzelnen Variablen an der entsprechenden Stelle haben. Vieleicht hast du ja ausversehns a oder b erhöht oder das Array gelöscht. Weiß der Kuckuck. Damit solltest du den Fehler normalerweise finden...