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.

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

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.

[Uwe Raabe]

Zitat von danu1104:

PS: Habe einen EStringlistError mit

Delphi-Quellcode:

 
try
 test() ....
except
  On e : EStringlistError do

     //

  Else

     //


 end;

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

Das ist ja wohl seit mit das Dümmste, was ich je gehört habe! Der Fehler ruft dir sozusagen zu Hier bin ich! und du hörst nicht hin...

[danu1104]

Zitat von Uwe Raabe:

Zitat von danu1104:

PS: Habe einen EStringlistError mit

Delphi-Quellcode:

 
try
 test() ....
except
  On e : EStringlistError do

     //

  Else

     //


 end;

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

Das ist ja wohl seit mit das Dümmste, was ich je gehört habe! Der Fehler ruft dir sozusagen zu Hier bin ich! und du hörst nicht hin...

Ich habe den fehler hoch und runter gesucht , ich habe ihn nicht gefunden auch nach hilfe im web (http://www.umnicom.de/Software/Delph...xceptions.html) nicht.

Zitat:

EStringListError

EStringListError ist die Exception-Klasse für ungültige Referenzen auf Listenfelder.

Unit: classes

Beschreibung

EStringListError wird ausgelöst, wenn eine Anwendung versucht, mit einem ungültigen Index auf ein Listenfeld zuzugreifen, um beispielsweise einen Eintrag hinzuzufügen.

Und der code ist nicht gross. Also habe ich ihn unterdrückt damit das Programm wieder läuft

[Keldorn]

Hallo

Delphi-Quellcode:

  for ic:=0 to varvalueex.Count -1 do
    if VarValueex.Strings[ic] = str then Begin
     result:=Pchar(VarValueex.Strings[ic+1]);  //***

//***--> kann beim letzten Element durch das +1 nicht gutgehen

Gruß Frank

[haentschman]

Hallo... ist der Quelltext aus #1 alles ? Zeige mal ein wenig mehr... Der Ausschnitt sagt gar nix.

[himitsu]

Ja, Fehlermeldungen sollte man gefälligst beachten.
Wenn man die einfach so mutwillig/fahrlässig misachtet, dann soll man sich auch nicht Wundern, wenn es irgendwo knallt.

Was saggt denn der Debugger?
Ich empfehle auch einen Blick in das Menü "Start" und dort in Parameter.

Delphi-Quellcode:

function getvarval(str:Pchar):Pchar;
begin

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

end;

Und ich empfehle dir ganz dringend ein Tutorial über Pointer.

Daß es bei der TStringList nicht sofort knallt, ist ein Zufall und auf Grund der internen Speicherverwaltung der TStringList begründet.
Aber eigentlich sollte man besser keinen Pointer auf etwas zurückgeben, was nach der Funktion nicht mehr existieren könnte, wie z.B. eine Stringvariable.


Anhand des bissl veröffentlichten Codes (man soll ja schließlich alles Wichtige zeigen, also kann da nichts Wichtiges uns Unbekanntes mehr existieren), wird VarValue und damit auch VarValueEx zu Beginn der Funktion jedesmal neu geladen.
Wozu sind das dann globale Variablen, obwohl sie doch offenbar nur eine lokale Funktion ausüben?

[Sir Rufo]

Evtl. ist der Delimiter ungeschickt gewählt, weil sich das mit dem NameValueSeparator beißt.

Versuch es mal mit dieser Änderung - die function lasse ich jetzt mal untouched:

Delphi-Quellcode:

var
varvalue:TStringlist;
varvalueex:TStringlist;

...

  VarValue:=TStringlist.Create;

  VarValueEx:=TStringlist.Create;
  // VarValueEx.Delimiter:='=';

  varvalue.Values['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');

[danu1104]

Ich habe jetzt

Delphi-Quellcode:

try
 test() ....
except
  On e : EStringlistError do
 end;

entfernt , und das Resultat ist das die listen jetzt voll bleiben (juhuu) , doch habe ich den EStringlistError der mir die App immer crasht.

unter var deklariere ich die stringlisten create sie dort wo sie gebraucht werden und schliesse sie am ende der Function wieder. Deswegen kann ich den fehler nicht nachvollziehen. Ich habe nur diese 2 - 3 Stringlisten, und ich habe noch nie diesen fehler gehabt, seit ich mit delphi arbeite ....

[Bernhard Geyer]

Böses böses Speichern unter C:\.

Win Vista/7 wird das verhindern (Keine Schreibzugriff) bzw. in den Virtuellen Store Umschieben so das du deine Änderungen im Windows Explorer unter C:\ nicht sieht.

[Klaus01]

.. wo kommt denn diese Funktion zum Einsatz?

Delphi-Quellcode:

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;

Ich würde die StringList auch als Parameter übergeben.

Delphi-Quellcode:

function getvarval(var myStringList: TStringList;str:Pchar):Pchar;
 var ic:Integer;
 sl : TStringList;
begin
  if assigned(myStringList) then
    begin
      sl := TStringList.create;
      try
         sl.LoadFromFile('c:\ls.dat');
         myStringList.DelimitedText:= sl.Ttext;
         for ic:=0 to myStringList.Count -2 do
           if myStringList.Strings[ic] = str then 
             Begin
               result:=Pchar(myStringList.Strings[ic+1]);
               Break;
             end;
          showmessage(myStringList.Text)
      finally
        sl.free; 
      end;
    end;
end;

Grüße
Klaus