SigSev bei Adresse 4 ? TStringlist

[Reinhard]

Hallo, habe ein kleines Problem mit TStringlist.

Folgendes :

Ich deklariere eine Variable namens "Test" vom Typ "TStrings" (Test=TStrings)

Danach wird die variable als Stringliste erzeugt.

Code: Alles auswählen

Test:=TStringlist.create;

Danach wieder zerstört mit

Code: Alles auswählen

Test.Free;

funktioniert soweit auch korrekt, jedoch kommt nun folgendes :

Übergebe ich nun den Inhalt eines SynMemos an die variable "Test" - was auch korrekt funktioniert

Code: Alles auswählen

test:=SynEdi1.Memo.lines

kann ich die Variable "Test" nicht mehr zerstören.

( Test.Free bringt einen SigSev error an Adresse 4 ??? )

Der Fehler kommt nur wenn ich etwas in das SynMemo eingebe, erfolgt keine Eingabe in das SynMemo,kann ich die Variable "Test" trotz Zuweisung zerstören.

Das ganze sieht so aus :

Code: Alles auswählen

Var 
  Test:TStrings;
 
 
Begin
Test:=TStringlist.create;
test:=SynMemo1.lines;
Test.Free;
End.

[theo]

Übergebe ich nun den Inhalt eines SynMemos an die variable "Test" - was auch korrekt funktioniert

(test:=SynEdi1.Memo.lines)

Tust du nicht, du hängst den Zeiger um. Was du willst ginge so:

Code: Alles auswählen

sl:=TStringList.Create;
sl.Assign(SynMemo1.Lines);
ODER
sl.Text:=SynMemo1.Text;
sl.free;

[Reinhard]

Übergebe ich nun den Inhalt eines SynMemos an die variable "Test" - was auch korrekt funktioniert

(test:=SynEdi1.Memo.lines)

Tust du nicht, du hängst den Zeiger um. Was du willst ginge so:

Code: Alles auswählen

sl:=TStringList.Create;
sl.Assign(SynMemo1.Lines);
ODER
sl.Text:=SynMemo1.Text;
sl.free;

Ahhh super so funktioniert es !

Danke