Hallo,
ich bekomme bei folgender Funktion einen StackOverflow:
Delphi-Quellcode:
function kunde_nach_nummer(kunden : tKunden;max_index : integer; pkundennummer : string): integer;
var i : integer;
begin
i := 0;
repeat
inc(i);
until ((kunden[i].kundennummer = pkundennummer) or (i >= max_index));
if kunden[i].kundennummer = pkundennummer then
result := i
else
result := 0;
end;
nach dem StackOverflow steht der Cursor auf dem "begin", aber warum?
der Aufruf der Funktion sieht folgendermaßen aus:
index := kunde_nach_nummer(kunden,max_index,kundennummer);
was vielleicht auch noch wissenswert wäre:
Delphi-Quellcode:
type tKunde = record
kundennummer : string[50];
anrede : string[50];
name1 : string[50];
name2 : string[50];
strasse : string[50];
plz : string[50];
ort : string[50];
wochentag : string[2];
end;
tKunden = array[1..10000] of tKunde;
Wäre nett wenn mir jemand sagen könnte warum diese Fehlermeldung kommt und warum der Cursor gerade bei dem "begin" stehen bleibt.
Danke schonmal im Vorraus!!!
MfG Marc