Guten Morgen,
ich möchte ein Programm schreiben, das durch Eingabe einer Zahl (Integer-Zahl) alle Teiler errechnet, die keinen Rest haben und in eine ListBox schreibt.
So sieht mein Quelltext aus:
Delphi-Quellcode:
procedure TForm1.Button_PruefenClick(Sender: TObject);
var
Zahl, ErrorCode, i: Integer;
Teiler: Array of Integer;
begin
Val(Edit_Zahl.Text, Zahl, ErrorCode);
if (ErrorCode = 0) and (Zahl >= 2) then
begin
for i := 1 to Zahl -1 do
begin
Teiler[i+1] := Zahl mod i; //Zeile1
if Teiler[1] = 0 then ListBox_Teiler.Items.Add(IntToStr(i)) //Zeile2
end;
end
end;
Wenn ich nun eine Zahl eingebe, und die Teiler wissen möchte, bekomme ich eine Warnung mit folgendem Inhalt:
"Acces Violation at address 0045B8C5 in module 'Vollkommen.exe' (Mein Projektname)
. Write of address 00000008."
Es muss an dem Array liegen, denn ohne die Zeile1 und 2 (gekennzeichnit im Quelltext) kommt die Meldung nicht.
Ich bitte um schnelle Hilfe und
danke schonmal im Vorraus
Mysterio08