Was ist an meinem code Falsch?
Delphi-Quellcode:
var
x : integer;
newitem : array of Tmenuitem;
begin
plugin := tstringlist.create;
lade := tstringlist.create;
for x:= 0 to plugin.count - 1 do
begin
newitem[x] := tmenuitem.Create(self);
lade.LoadFromFile(plugin.strings[x]);
newitem[x].caption:= 'jo';
newitem[x].OnClick := holeinfos;
popupmenu1.items.add(newitem[x]);
end;
end;
synonym