arbeiten mit array of stringlist

[Jan]

Hallo DP,

Ich habe leider 2 Probleme:
1.:
wie kann ich überprüfen ob array[i] noch existiert, wenn ich zuvor
array[i].free; ausgeführt habe?
Mit assigned(array[i]) erhalte ich trotzdem noch true.
array[i] ist eine stringlist.

2.: Ich übergebe in eine Prozedur einen array of tstringlist und möchte nun per setlength(übergabearray, length(übergabearray)-1) die letzte stelle abschneiden, aber ich bekomme einen error, dass es sich um inkompatible typen handelt. Wenn ich selbiges mache, bevor ich den array übergebe tritt das nicht auf.

Hoffe, dass mir da einer weiterhelfen kann.
BB
Jan

[Luckie]

Bitte pro Frage einen Thread, sonst geht das hier zu sehr durcheinander. :mahn:

Aber zu 1.: Versuch mal array[i].FreeAndNil;

[Jan]

Hallo Luckie,
entschuldige den post, wird nicht nochmal vorkommen.

Zitat:

Aber zu 1.: Versuch mal array[i].FreeAndNil;

nicht eher so?:

Code:

FreeAndNil(filterarray[i]);

allerdings gibt auch mit diesem befehl
assigned(filterarray[i]) true zurück.

Gruß
Jan

[d3g]

Wenn du die Objekte mit FreeAndNil() löschst, kannst du eine einfache Überprpfug auf nil machen:

Delphi-Quellcode:

if (array[i] = nil) then
  ObjectExists();

Irgendwie logisch, oder ?

[Jan]

Hallo d3g,

Code:

if not filtarray[i]= nil then

Fehlermeldung:
Operator ist auf diesen Operandentyp nicht anwendbar.

:[
Was mach ich falsch?
BB
Jan

[d3g]

Hi Jan,

der not-Operator hat eine sehr hohe Gewichtung. Der Ausdruck
not filtarray[i] = nil ist deshalb genau das gleiche wie
(not filtarray[i]) = nil Und weil man den not-Operator nur auf Zahlen und nicht auf Objekte anwenden kann, bekommst du eine Fehlermeldung. Es muss also heißen:

Delphi-Quellcode:

if (not (filtarray[i] = nil)) then
  ObjectExists();

MfG,
d3g

[Jan]

ok, danke, klappt jetzt alles :]

[Touchdown]

if Object <> nil then


Viel schöner