Einzelnen Beitrag anzeigen

Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.354 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: EAccessViolation mit StringListe

  Alt 17. Mai 2017, 09:14
Delphi-Quellcode:
//Function TDMAng.CheckRV(RD:TStringList;var errlist:TStringList):boolean;
Function TDMAng.CheckRV(RD:TStringList;errlist:TStringList):boolean;
begin
  result:=true;
  if not assigned(errlist) then errlist:=TStringList.Create;
  errlist.Clear;
  
  //viele Prüfungen ...
  
  if bPasstNicht then
    errlist.Add('"215","'+'Hinweis: '+'Passt nicht!')

  //viele Prüfungen...
   
  result:= errlist.count=0;
end;
Erstmal das "var" beim Prozedurkopf für errlist rausnehmen. Das könnte das Problem schon beheben.
Ansonsten den Debugger nutzen und prüfen, wie die Inhalte sind und wo diese sich ändern und damit eine AV auslösen.

EDIT:
Den Unsinn mit dem "var" bitte ignorieren.
Peter

Geändert von Jasocul (17. Mai 2017 um 09:38 Uhr) Grund: Unsinn geschrieben
  Mit Zitat antworten Zitat