Gode råd fundet her på eksperten

Lidt læse stof:

http://www.delphibasics.co.uk/Article.asp?Name=Interface
http://www.delphibasics.co.uk/Article.asp?Name=Exceptions
http://www.delphibasics.co.uk/Article.asp?Name=Inherit

Det lyder som noget jeg kunne have fundet på at skrive :-)

Om man skal bruge interfaces eller arbejde med "klassisk" objektorientering, kræver lidt baggrundsviden som her mest går på abstrakte klasser. Et eksempel på en abstrakt klasse er TStrings hvorfra bl.a. TStringList nedarver. Her er defineret abstrakte metoder; de er KUN defineret, ikke lavet endnu. Det er opgaven for de klasser der nedarver.

Fordelen er at man kan definere en GemIDatabase i baseklassen, som den kan bruge i andre metoder defineret i klassen. Baseklassen behøver altså ikke vide hvad der sker i metoden. Den skal bare være oprettet af klasserne der nedarver.

Eksempel: En adresseklasse skal lave en GemIDatabase funktion som gemmer adresse, postnr og kommunekode, mens en personklasse skal gemme navn og cpr-nummer.
På den kan kode der ellers skulle kopieres mellem klasserne, flyttes til baseklassen. Det er en stor fordel at man kun retter fejl ét sted.

Men - man kan godt nedarve fra en abstrakt klasse uden at programmere alle de abstrakte metoder der ligger heri. Der kommer kun en advarsel - først når man kører programmet vil det fejle.

Interfaces definerer også funktioner og - med god vilje - gør lidt det samme som abstrakte klasser. To vigtige fordele er, at alle metoderne SKAL programmeres og at man kan lave noget der ligner multipel nedarving, eksempelvis implementere et data og et liste-interface i samme klasse. Det er besværligt at gøre pænt med traditionel OOP.

----------- o -----------

Try-finally sikrer at systemet nulstiller en operation, også selvom den fejler. I nedenstående stump kode bliver cursoren sat tilbage selvom metoden fejlede.

Screen.Cursor := crHourGlass;
try
  MetodeDerFejlerMedEnException;
finally
  Screen.Cursor := crDefault;
end;

Et andet eksempel her:

StringList := TStrinList.Create;
try
  MetodeDerFejlerMedEnException;
finally
  StringList.Free;
end;

Her frigives objektet altid og du har ikke hukommelseslækager.

Med try-except sikrer du at fejl håndteres. Det mest klassiske eksempel er nok dette:

Database.BeginTrans;
try
  DatabaseOperationDerKanFejle;
  Database.CommitTrans;
except
  Database.Rollback;
  raise;
end

Hvis noget går galt blive der absolut intet skrevet i databasen. Dette sikrer konsistente data.

Endelig kan du kombinere de to:

Query := TADOQuery.Create(nil);
try
  Query.Connection.BeginTrans;
  try
    DatabaseOperationDerKanFejle;
    Query.Connection.CommitTrans;
  except
    Query.Connection.TollbackTrans;
    raise; // Send exceptionen videre i systemet
  end;
finally
  Query.Free;
end;

----------- o -----------

Hvad OOP angår så vil jeg henvise til første afsnit, men ellers kigge på Arnes links

Ulemperne med Interfaces er:

1. Man kan ikke definere attributter (variable). Man kan ikke lave property Attribut : integer read fAttribut write fAttribut. Man bliver nødt til at lave SetAttribut, GetAttribut funktioner og lade implementøren oprette fAttribut.

2. Generelt synes jeg de er ret besværlige at bruge

Hej.

@hrc
Det var faktisk dine egne råd, som jeg fandt, da jeg søgte lidt rundt på gamle spørgsmål her i gruppen. Der var flere råd i posen, men der var lige de ovenstående 3, som jeg kunne bruge lidt uddybning til.

Ud fra besvarelserne er jeg lidt ked af, at jeg ikke har lvoet flere points, da det ikke bare er en "en-linies" besvarelse, der blev givet.

@Arne v og hrc
Ud fra de 30 points, der er udlovet, synes jeg, at en fordeling 10 (arne v) / 20 (hrc) vil være mest fair

Nu har jeg kun snakket om metoder der er "virtual; abstract;". Man kan sagtens have virtuelle metoder i baseklassen som derved kaldes før koden i de nedarvede klasser.

Jeg har en "procedure FillListItem(aListItem: TListItem); virtual;" der fylder en linje i et TListView. I baseklassen sættes følgende.

begin
  aListItem.SubItems.ClearM
  aListItem.Data := self;
  aListItem.ImageIndex := -1;
end;

mens jeg i den nedarvede klasse kun skal skrive:

begin
  inherited; // Kalder baseklassens metode.

  aListItem.Caption := fNavn
  aListItem.SubItems.Add(fAdresse);
  aListItem.Checked := fChecked;
end;

svar fra mig

Hvad er de andre råd? (Link søges :P)