Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by stiftII,
30. Sep 2011
Da fehlt nen A in der Funktion. Hatte die nur so kopiert :x
Jetzt aber:
function ExtraColumsStringsDB(firma:string; ASL: TStringlist): Boolean;
var
Temp: Array Of TColumn;
i: integer;
begin
try
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by stiftII,
30. Sep 2011
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:
procedure ExtraColumnsStringsDB(firma:string; ColumnStrings:TStringlist);
var
Temp: Array Of TColumn;
i: integer;
begin
Temp := GetExtraFields(firma);
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by stiftII,
30. Sep 2011
Kurze Frage nochmal hierzu.
Warum funktioniert das so nicht ("function ExtraColumsStringsDB" erstellt die Stringlist) ?
function ExtraColumsStringsDB(firma:string; ASL: TStringlist): Boolean;
var
Temp: Array Of TColumn;
i: integer;
begin
try
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by stiftII,
30. Sep 2011
:stupid: Macht das sinn xD?
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by stiftII,
30. Sep 2011
Vielen Dank :) .. werde es dann so machen, dass ich eine temp Variable mit übergebe und aus der Funktion mache ich dann eine Prozedur.
Dachte es gäbe vllt, wie bei Java eine Möglichkeit nicht benötigte Resourcen zu identifizieren und freizugeben.
stiftII
Forum: Algorithmen, Datenstrukturen und Klassendesign
FreePascal
by stiftII,
29. Sep 2011
Hallo,
ich habe folgende Funktion:
function ExtraColumsStringsDB(firma:string):TStringlist;
var
Temp: Array Of TColumn;
i: integer;
begin
Result := TStringList.Create;
Temp := GetExtraFields(firma);