create()-probs

[sancho1980]

Hello people,
as I said, I'm new to Pascal but what I'm encountering now really goes beyond my capacities. What I'm trying to do in the following snippet is simply create objects of my own TEntry class and then insert them into a TList but it seems like every time I invoke Create I get the same pointer back, so in the end I'm creating only one object!!! Have a look at this one:

var
p: Pointer;
i: Integer;
content: TStrings;
entry: TEntry;
begin
p := nil;
content := TStringList.Create();
content.LoadFromFile(FileName);
if content.Count mod 2 = 0 then
begin
i := 0;
while i < content.Count do
begin
entry := TEntry.Create();
if p = Addr(entry) then
ShowMessage('Same address!!!');
//some instruction
Inc(i);
//some instruction
Inc(i);
self.Add(Addr(entry));
p := Addr(entry);
end;
...

If you execute that in a program you always get the 'Same address!!!' message. This is not what I intend. I obviously intend to create content.Count/2 objects and have them all added to my list. What is wrong with that code??? Please help,
best,
Martin

 

[Glenn9999]

From the nature of the questions you are asking, it seems as if you are in the wrong group. You are using Delphi, not Pascal.

Please go here for your Delphi questions:

http://www.tek-tips.com/threadminder.cfm?pid=102

You will likely find more people that will be willing/able to answer your questions.