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.