TStringlist leert sich Selbst!

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

[TiGü]

Zitat von danu1104:

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

Wenn man Beiträge dreimal Lesen muss, damit man etwas versteht, fehlt es an allen grundlegenen Kenntnissen der deutschen Rechtschreibung!

Die Lösung wurde im vierten Post in diesen Thread genannt.