Speicher Freigeben

[DeddyH]

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?

[stiftII]

Zitat von DeddyH:

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

[DeddyH]

Rein akademisch: ich denke, wenn Du es so machen willst, musst Du SL als Var-Parameter übergeben.

[himitsu]

Zitat von DeddyH:

Rein akademisch: ich denke, wenn Du es so machen willst, musst Du SL als Var-Parameter übergeben.

Da er nichtmal prüft, ob vorher nicht schon eine Stringliste in dem Parameter übergeben wurde,
sollte er es sogar mit OUT, anstatt VAR deklarieren,
damit man gleich weiß was auf einen zukommt, wenn man diesen Funktionsheader sieht.

[DeddyH]

Das stimmt zwar, aber ich halte die gezeigte Vorgehensweise sowieso zumindest für problematisch. Schaut man sich dosomething alleine an, dann ist man doch erst einmal verwirrt.

[p80286]

Das würde ich unter tricky noch akzeptieren, ich käme hier ins Grübeln:

Delphi-Quellcode:

function ExtraColumsStringsDB(firma:string; ASL: TStringlist): Boolean;
......
    ASL := TStringList.Create;

das mag zwar gehen, aber wenn man mal die Übersicht verliert...

Gruß
K-H

[DeddyH]

Naja, eine lokale Instanzvariable, die nirgends erzeugt, aber dann freigegeben wird... Da würde ich zunächst mit einer AV rechnen.