Hi,

If I pass a TStringList to a function:

function TSLFunctn(myTSL: TSltringList):integer;
var i: integer;
begin
Result:=0;
for i:=0 to myTSL.Count-1 do //<-----------fails here
begin
Result+=strtoint(myTSL.Strings[i]);
end;
end;

The function fails when I try to assign quantify myTSL.Count.

However, this works:

function TSLFunctn(myTSL: TSltringList):integer;
var i: integer;
internalTSL: TStringList;
begin
internalTSL:= TStringList.Create;
internalTSL:=myTSL;
Result:=0;
for i:=0 to internalTSL.Count-1 do //<-----------works
begin
Result+=strtoint(internalTSL.Strings[i]);
end;
internalTSL.Free;
end;

Is this a bug? Or is that the way it's supposed to behave?

En/na Dave Coventry ha escrit:

works here (without the typo)

this is:

1) a memory leak (you create a stringlist then ignore it, losing the pointer)
2) exactly the same as before (a stringlist variable, as any other class, is actually a pointer, so if you use := both are pointing at the same object, if you want to make a copy you have to use assign, provided that the class implements it correctly)

and here you are freeing the original stringlist, not the locally created one.

Bye

It's work at my computer
I used WinXP SP3 and Lazarus 0.9.26 beta
This my code... do you miss something ?

function TSLFunctn(myTSL: TStringList):integer;
var i: integer;
begin
?Result:=0;
? for i:=0 to myTSL.Count-1 do //<-----------fails here
? begin
? Result+=strtoint(myTSL.Strings[i]);
? end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
?? a:TStringList;
begin
?? a:=TStringList.Create;
?? a.Add('1');
?? a.Add('2');
?? ShowMessage(inttostr(TSLFunctn(a)));
end;

=============INTOSOFT============

ALEXIO CHAOS

Yahoo Messager

=================================

--- On Tue, 1/20/09, Luca Olivetti wrote:

Darmawan,

When I put your code into my machine, it works fine.

Odd, because it is in more than one place where I've used the same technique and they all fail at the same place.

But at least it would appear to be a problem with my coding, rather than a bug in Lazarus, and it's not too difficult to work around.

Incidently my machine is AMD64 running Ubuntu 8.10 (Intrepid) and using build v0.9.27 r17479 x86_64-linux-gtk 2 (beta)