Delphi-Quellcode:
procedure TParameterlist.AddAtEnd(Name, DataType: string);
var param: TParameter; NewItem: PItem;
begin
param := TParameter.Create(Name,DataType);
//If list is still empty
if (FFirst = nil) then
begin
FFirst.Data := param;
FCurrently := FFirst;
end
//list just has content
else begin
SetPointerAtPosition(High);
New(NewItem);
NewItem.Data := param;
NewItem.Next := nil;
FCurrently.Next := NewItem;
end;
inc(FCount);
end;
Habe die Methode jetzt so abgeändert.
Es wird nicht mehr TParameter übergeben, sondern Name und DataType.
Es wird, denke ich
, jetzt immer wieder eine neue Instanz erstellt.
Jedoch crash es gleich bei FFirst.Data := param mit einer
AV.
Was tun?