TStringlist leert sich Selbst!

[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.

[danu1104]

Zitat von 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.

System Festplate ist I:\ , c:\ ist meine backup platte

[Bernhard Geyer]

Zitat von danu1104:

System Festplate ist I:\ , c:\ ist meine backup platte

Und wie hast du das hin bekommen?
Ab Vista sorgt doch der Installer von Windows dafür das für Windows die Systemplatte immer C:\ ist egal welche Partition/Platte es physikalisch ist

[danu1104]

Zitat von Bernhard Geyer:

Zitat von danu1104:

System Festplate ist I:\ , c:\ ist meine backup platte

Und wie hast du das hin bekommen?
Ab Vista sorgt doch der Installer von Windows dafür das für Windows die Systemplatte immer C:\ ist egal welche Partition/Platte es physikalisch ist

Habe Windows XP drauf, und hatte vorher Ubuntu auf der 80er Platte, die 80er habe ich formatiert und die 500GB natürlich nicht, seit dem ist System Laufwerk bei mir I:\ weil die 500GB bei der Installation bereits als C:\ angezeigt wurde , daher hat er auf I:\ gemacht (nicht zuletzt weil ich Card Reader laufwerke habe)

[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

[jaenicke]

Zitat von Klaus01:

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

Aber sinnvoller wäre das nicht als var-Parameter zu machen. Schließlich übergibst du dann einen Pointer auf einen Pointer, da die TStringList ja schon selbst ein Pointer auf das Objekt ist.

[himitsu]

Zitat von Klaus01:

.. wo kommt denn diese Funktion zum Einsatz?

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

function getvarval(var myStringList: TStringList;str:Pchar):Pchar;

Es geht um eine DLL-Funktion.

Solange er nicht mit Laufzeitpackages kompiliert, würde ich davon eher abraten, Objekte über RTTI-Grenzen hinweg zu übergeben.