ich hab da mal ein problem
denn ich schreibe ein konsolenprogramm mit lazarus...
also da kommt da nämlich diese komische fehlermeldung,
wenn ich das programm öffne :
An unhandled exception occurred at $00401C7D :
ERangeErrorr : Range check error
$00401C7D main, line 165 of project.lpr
Die Tabellen X und Y sind max. 1000 Zeilen lang
Code: Alles auswählen
var
X : array of integer;
Y : array of integer;
Xa : int64;
Ya : int64;
Xb : int64;
Yb : int64;
D1 : int64;
D2 : int64;
Wert1 : int64;
Wert2 : int64;
i : integer;
a : integer;
FOR i := 0 to Zeilenanzahl do begin
FOR a := 0 to Zeilenanzahl do begin
if a <> i then begin
writeln(' ');
Xa := X[i];
Ya := Y[i];
Xb := X[a]; //Zeile 165
Yb := Y[a];
writeln(Xa);
writeln(Ya);
writeln(Xb);
writeln(Yb);
D1 :=Xa-Xb;
D2 :=Ya-Yb;
writeln(D1);
writeln(D2);
Wert1:=D1*(D1);
Wert2:=D2*(D2);
writeln(Wert1);
writeln(Wert2);
Verein
Links
Suche