Ancora problemi con Tlist e puntatori

[Narciso]

Ho iniziato male usando le tlist che mi sembravano più comode, ma non riesco a gestirle..
Spiego qual è il problema:

ho una tlist che contiene dei puntatori ad un record chiamato tlezione

 Listalezioni: Tlist;   
type
   ptlezione=^tlezione;
   tlezione=record
      compresenza:boolean;
      nomecompresenza:string[255];
      num:integer;
      materia:tmateria;
      classe:tclasse;
      durata:integer;
      docente:tdocente;
      peso:integer;
      quadrovincoli:tquadro;
      attiva:boolean;
      end;

sto cercando di duplicare gli elementi della tlist che visualizzo in una listview (allegato 1)
(chissà come mai non riesco ad inserire immagini nel messaggio...MHA)
attivo la procedura da un popupmenu (allegato 2)
la procedura è questa:
#
procedure TFormdatilezione.MenuItem2Click(Sender: TObject);
var tot,max,x:integer;
    newl:ptlezione;
begin
 new(newl);
for x:= 0 to listview1.Items.Count-1 do begin
 if listview1.items

• .Selected then  begin

 newl:=listalezioni.items

• ;

 newl^.num:=listalezioni.count;
 listalezioni.Add(newl);
 end;

end;
mostralista;
tot:=contaorelezionitotali;
max:=(listaclassi.Count)*o.giorniasettimana*o.maxorealgiorno;
if tot>max then showmessage('Hai inserito troppe ore di lezione');
end;

Il problema è che modifico anche gli item che ho preso da copiare e non solo i nuovi. (allegato 3)
Se fate caso hanno gli stessi numeri di ordine.

Avete mica un'idea su come fare a duplicare gli item delle tlist senza modificare gli item di origine?

[Narciso]

avrete capito che non sono riuscito nemmeno a postare il codice.... leggibile...
Non capisco come fate a inserire il codice... ho provato a inserire l'hasctag, ma non ha funzionato... Bho

[SB]

Provo a risponderti anche se il codice è risultato poco chiaro.
Devi tenere presente che i puntatori puntano ad un'area di memoria e quando copi un puntatore semplicemente ne copi il valore (indirizzo) e non l'area di memoria puntata.
Se il puntatore si riferisce ad una struttura con membri allocati dinamicamente (stringhe, ecc) di questi copi il valore del riferimento, non l'elemento puntato.
Quindi quando vai a modificare la "copia" in realtà stai accedendo ancora all'originale.
La soluzione è fare una copia delle strutture membro a membro (o almeno di quei membri ad allocazione dinamica lasciando i rimanenti alla copia di default)

[nomorelogic]

avrete capito che non sono riuscito nemmeno a postare il codice.... leggibile...
Non capisco come fate a inserire il codice... ho provato a inserire l'hasctag, ma non ha funzionato... Bho

il bottoncino con l'hashtag (o cancelletto) non fa altro che inserire all'interno del memo in cui scrivi il tuo post una coppia di tag "code" aperto/chiuso per l'inserimento del codice.

fai questa prova:

1) clicca con il mouse all'interno dell'area di scrittura
2) clicca sul bottoncino col cancelletto
3) posiziona il cursore tra la le 2 parentesi "][" che separano il tag di apertura da quello di chiusura e scrivi del codice
4) clicca su anteprima

[Narciso]

Nomerologic.... io ci sto provando... ma cliccando sul pulsante con l'hashtag... non appare nulla nell'area di scrittura...
nessun simbolo .. a dir la verita', non funziona nessun pulsante...

[Narciso]

Codice: [Seleziona]

 
var tot,max,x:integer;
    oldl,newl:ptlezione;
    lez1,lez2:tlezione;
    listaselezionate:tstringlist;
begin
listaselezionate:=tstringlist.Create;

for x:= 0 to listview1.Items.Count-1 do
 if listview1.items[x].Selected then  listaselezionate.Add(listview1.Items[x].Caption);


for x:=0 to listaselezionate.count-1 do begin
lezioneattiva:=strtoint(listaselezionate.strings[x]);
mostradatilezioneattiva(lezioneattiva);

bitbtn4.click;
                                       end;
listaselezionate.free;


mostralista;
end;                      

L'ho poi risolta cosi'....la procedura...
e per l'Inserimento dei tag... ho cambiato browser... edge non va.. firefox si'

[Stilgar]

L'ho poi risolta cosi'....la procedura...
e per l'Inserimento dei tag... ho cambiato browser... edge non va.. firefox si'

Codice: [Seleziona]

[ code ]
Il tuo codice
[/code ]

[nomorelogic]

e per l'Inserimento dei tag... ho cambiato browser... edge non va.. firefox si'

edge non va?
non me lo sarei mai aspettato... come godo