TStringlist leert sich Selbst!

**danu1104**

Hallo

Ich versuche seit stunden ,eine einfache TStringlist mit einfachen Strings zu füllen, doch bereits nach dem Add() eine zeile darunter ist die Liste wieder leer , obwohl ich überhaupt nix leere.

zusammenfalten · markieren

Delphi-Quellcode:

			var

varvalue:TStringlist;

varvalueex:TStringlist;

function getvarval(str:Pchar):Pchar;

var ic:Integer;

begin

  varvalue.LoadFromFile('c:\ls.dat');

  varvalueex.DelimitedText:= varvalue.text;

  for ic:=0 to varvalueex.Count -1 do

   if VarValueex.Strings[ic] = str then Begin

    result:=Pchar(VarValueex.Strings[ic+1]);

    Break;

   end;

   showmessage(VarValueEx.Text)

end;

 VarValue:=TStringlist.Create;

 VarValueEx:=TStringlist.Create;

 VarValueEx.Delimiter:='=';

  varvalue.Add('test=hallo');

// und hier ist sie wieder leer ich weiss es nicht zuletzt weil ls.dat 0KB gross ist.

// Achja, dass Project Ist eine DLL 

  varvalue.SaveToFile('c:\ls.dat');

Ich würde mich freuen , wenn mir mal jemand in den nacken kloppt, und mir zeigt was ich falsch mache, weil ich weiß nicht mehr was logic ist.

PS: Habe einen EStringlistError mit

zusammenfalten · markieren

Delphi-Quellcode:

			 
try

 test() ....

except

  On e : EStringlistError do

     //

  Else

     //

 end;

abgefangen. weil der error meine app ewig crasht ,selbst nach aufräumen des codes, weshalb auch immer. Die listen werden allle vernüftig erstellt und wieder geschlossen von mir.

TStringlist leert sich Selbst!

TStringlist leert sich Selbst!

Forumregeln