Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: xinyiman - Dicembre 02, 2013, 03:20:55 pm

Titolo: Domanda sull'ereditarietà
Inserito da: xinyiman - Dicembre 02, 2013, 03:20:55 pm

Voglio attraverso l'ereditarietà modificare l'oggetto TStringList nello specifico voglio modificare la chiamata Add da così:

function Add(Const S: string): integer; override;

a così

function Add(index: integer; Const S: string): integer; override;

come posso fare?

Quella che segue è una boza della classe

Codice: [Seleziona]

unit Unit_MyPickListWithIndex;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;


type
  TMyPickList = class(TStringList)
  private
  public
         function Add(Const S: string): integer; override;
  end;


implementation

{ TMyPickList }


function TMyPickList.Add(Const S: string): integer;
begin
     inherited Add(S);
end;

end.

Questo è l'errore che mi da

unit_mypicklistwithindex.pas(15,19) Error: There is no method in an ancestor class to be overridden: "TMyPickList.Add(LongInt, const AnsiString):LongInt;"

Titolo: Re:Domanda sull'ereditarietà
Inserito da: nomorelogic - Dicembre 02, 2013, 04:00:38 pm

Non devi fare l'override (che ridefinisce il metodo nel contenuto ma non la dichiarazione) ma un nuovo metodo con la direttiva overload (che affianca ad un metodo esistente un altro metodo con lo stesso nome ma con intestazione diversa).

Ho bisogno un chiarimento: parli del metodo "Add" ma poi dici che vuoi dichiararlo tipo:
function Add(index: integer; Const S: string): integer;

Non capisco il parametro "index": non è che invece di Add in realtà hai bisogno di Insert?
http://www.freepascal.org/docs-html/rtl/classes/tstringlist.insert.html (http://www.freepascal.org/docs-html/rtl/classes/tstringlist.insert.html)

Titolo: Re:Domanda sull'ereditarietà
Inserito da: xinyiman - Dicembre 02, 2013, 05:32:35 pm

L'index, non è l'indice che identifica la riga della StringList, ma è un mio indice, una chiave primaria del valore che vado ad inserire (popolato poi dal contenuto di una query). Mi serve per usare una PickList in una DBGrid ed usare non il valore selezionato, ma la chiave corrispondente. Mi fai un esempio di quello che mi hai detto? Come dovrebbe venire fuori il codice che ho postato?

Grazie  :)

Titolo: Re:Domanda sull'ereditarietà
Inserito da: nomorelogic - Dicembre 02, 2013, 07:15:58 pm

prova così:

Codice: [Seleziona]

unit Unit_MyPickListWithIndex;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;


type
  TMyPickList = class(TStringList)
  private
  public
     function Add(index: integer; Const S: string): integer; overload;
  end;


implementation

{ TMyPickList }


function TMyPickList.Add(index: integer; Const S: string): integer;
begin
   inherited Add(S);

   // giusto per fare qualcosa
   case index of
     0: result := 1;
   else
     result := -1;
   end;
end;

end.

Titolo: Re:Domanda sull'ereditarietà
Inserito da: Stilgar - Dicembre 02, 2013, 10:36:43 pm

Ciao,
 se ho capito bene vuoi togliere un parametro alla firma del metodo.
Puoi farlo in diversi modi.
Dichiari la firma del metoto e usi "overload" (sovraccarico alla c++) del nome del metodo cambiando i parametri.
Usi "reintroduce" in modo che i possibili utilizzatori / figli non vedano il metodo "vecchio" del padre e usino solo la firma come l'hai dichiarata "nuova".
Piccola digressione su override e reintroduce ;)
http://stackoverflow.com/questions/53806/reintroducing-functions-in-delphi e http://stackoverflow.com/questions/741735/what-is-the-meaning-of-the-reintroduce-and-override-directives-in-delphi.

Ripassino sulle direttive per i metodi a favore di tutti i lettori :p http://www.delphibasics.co.uk/RTL.asp?Name=Procedure

Buona lettura :D
Stilgar

Titolo: Re:Domanda sull'ereditarietà
Inserito da: xinyiman - Dicembre 03, 2013, 03:57:58 pm

Grazie 1000  ;)