Código Delphi [-] for i:=0 to Length(lista)-1 do begin if lista[i].ClassType = TEstud then edit4.text:= inttostr(lista[i].Getasignaturas); end;
for i:=0 to Length(lista)-1 do begin if lista[i].ClassType = TEstud then edit4.text:= inttostr(lista[i].Getasignaturas); end;