Ergebnis der Suchanfrage

• Forum: FreePascal

  AW: Brauche Hilfe bei der Fehlersuche.

   
    by Beach, 26. Aug 2019
  Ich glaube das war es jetzt.
  Habe das so umgebaut und bei mehreren Tests war das Ergebnis jeweils "0 unfreed Memory Blocks"
  Und was neues gelernt habe ich dabei auch.
  
  Eine Frage noch.
  Wann nutze ich FreeAndNil() und wann .Free ?
  
  Vielen Dank an alle. Nun kann ich weiter basteln.
  Die nächsten Fragen kommen bestimmt
• Forum: FreePascal

  AW: Brauche Hilfe bei der Fehlersuche.

   
    by Beach, 26. Aug 2019
  Mit try...finally hatte ich schon probiert, ohne Erfolg.
  
  Die Funktion BuildNewFile ist, laut ausklammern, der Übeltäter.
  
  
  
  Dann habe ich da wohl ein Verständnisproblem.
  Ich dachte, das ich, wenn ich eine StringList zurückliefere, diese auch in eine StringList Übergeben muss.
• Forum: FreePascal

  AW: Brauche Hilfe bei der Fehlersuche.

   
    by Beach, 26. Aug 2019
  Ja. Die Funktion soll eine StringList zurückgeben.
  
  
  function TClassZeissCFG.BuildNewFile(CFG: TCFGValues; XStrList: TRenishawValues;
  YStrList: TRenishawValues; ZStrList: TrenishawValues;
  DataLoaded: array of boolean): TStringList;
  
  var
  i: integer;
• Forum: FreePascal

  AW: Brauche Hilfe bei der Fehlersuche.

   
    by Beach, 26. Aug 2019
  Die Zeile 321:
  strListCalc := TStringList.Create;
  
  procedure TForm1.alCalcExecute(Sender: TObject);
  var
  StrListCalc: TStringList;
  
  begin
  
  strListCalc := TStringList.Create;
• Forum: FreePascal

  Brauche Hilfe bei der Fehlersuche.

   
    by Beach, 26. Aug 2019
  Hallo zusammen,
  habe für meine Arbeit ein kleines Programm geschrieben was auch prinzipiell macht was es soll.
  Aber nach dem Aufruf einer auswertefunktion bekomme ich nach Beenden des Programms die Meldung im Anhang.
  Dort heißt es das "1 unfreed Memory Block" Übrigbleibt.
  Führe ich die Auswertung mit allen Daten durch, bleiben deutlich mehr (hatte schon 64) "unfreed Memory Blocks" über.
  ...