Thema: FreePascal Speicher Freigeben

Einzelnen Beitrag anzeigen

stiftII

Registriert seit: 2. Sep 2009
Ort: Cuxhaven
122 Beiträge
 
#16

AW: Speicher Freigeben

  Alt 30. Sep 2011, 14:20
Weil der Stringlisten-Parameter const deklariert ist? Aber das ist die merkwürdigste Variante, die ich hier bislang gesehen habe, ist das nur zum Herumprobieren, oder willst Du das tatsächlich produktiv so einsetzen?
Ups, der ist nicht konstant, ich hatte nur das Beispiel von angos kopiert/editiert. Hab das mal rauseditiert.

Ja, ich würde das gerne "produktiv einsetzen" . Meine Funktion/Prozedur sieht so aus:

Delphi-Quellcode:
procedure ExtraColumnsStringsDB(firma:string; ColumnStrings:TStringlist);
var
  Temp: Array Of TColumn;
  i: integer;
begin
     Temp := GetExtraFields(firma);
     for i:=0 to high(Temp) do
     begin
       ColumnStrings.Add(Temp[i].FieldName );
     end;
     //Free all columns
     for i:=0 to high(Temp) do
     begin
       Temp[i].Free;
     end;
end;
Das geht so auch, mich würde nur interessieren, warum die andere Variante nicht funktioniert (Access Violation).

Grüße
stiftII
  Mit Zitat antworten Zitat