Kalde procedure ved hjælp af navn

Jeg ville ofre lidt tid på at lave det OOP :-)

Lav en Execute klasse som Kurt og Gert arver fra, så lægger du bare en instans af Kurt + Gert i Objects på combo'en og kører ExecuteKlasse.XXXX og så funker det :-)

Den forstod jeg ikke - har du evt. et eksempel på hvordan det kan se ud?

Type
  Moder = class
  public
    procedure Run; virtual;
  end;

  Kurt = class
  public
    procedure Run; override;
  end;

  Gert = class
  public
    procedure Run; override;
  end;


VAR
  Cnt : Integer;
  List : TStringlist;
Begin

  List := TStringlist.create;
  List.AddObject('Kurt',Kurt.Create);
  List.AddObject('Gert',Gert.Create);

  Moder(List.Objects[0]).Run; // kører Kurt
  Moder(List.Objects[1]).Run; // kører Gert
end;


Håber det hjælper lidt på vej :-)

Måske - jeg skal lige se om ikke jeg kan få tid til at lave et forsøg i morgen hvis det er OK.

Du er med på at jeg ikke har lavet alt koden ikk'

Du skal selv lave Kurt og Gert færdig, og så er det fuldstændig utestet :-)

Jeg kan ikke få noget som helst fornuftigt ud af det her desværre

Nå !
Det er ellers standart OOP og langt mere lige til end det link du har.

Har du lavet implementeringen af Kurt og Gert ?

Hugo, du skal lige tilføje (moder) i typerne :

type
  Kurt = class (moder)
  public
    procedure Run; override;
  end;

  Gert = class (moder)
  public
    procedure Run; override;
  end;

Martin, tak for et fint lille eksempel

Jeg fik det til syneladende til at fungere efter hensigten nu :-)

Mit testmodul ser nu sådan ud og jeg kan få det til at virke som det skal - tror jeg.

Og angående OOP, så er jeg ikke så meget inde i de dybere begreber i den verden. Jeg er nok også blevet for gammel til at lære det. Da jeg skrev mit første computerprogram var der kun sekventiel programudførelse muligt. Det var på en ZX 81.

unit U_ProcedureCall;

interface

{$M+}

type
  Moder = class
  public
    procedure Run(const aEmployer: string; const aDate: TDate); virtual;
  end;

  Kurt = class(Moder)
  public
    procedure Run(const aEmployer: string; const aDate: TDate); override;
  end;

  Gert = class(Moder)
  public
    procedure Run(const aEmployer: string; const aDate: TDate); override;
  end;

implementation

uses
  Dialogs, SysUtils;

procedure Moder.Run;
begin
end;

procedure Kurt.Run(const aEmployer: string; const aDate: TDate);
begin
  ShowMessage('Kører Kurt' + #13#10 +
              aEmployer + #13#10 +
              DatetimeToStr(aDate));
end;

procedure Gert.Run(const aEmployer: string; const aDate: TDate);
begin
  ShowMessage('Kører Gert' + #13#10 +
              aEmployer  + #13#10 +
              DatetimeToStr(aDate));
end;


end.

Så jeg skal da lige have et svar så du kan få dine point.

Smukt :-)

PS. Har lige set den nye Delphi, - 64 bit + mac + andriod + iphone osv. :-)

OK - det må så være XE2 eller hvad?

(jeg er nu fint tilfreds med min XE med DevExpress på)

Har dog opdaget at jeg ikke bare sådan lige kan flytte funktionen til mit projekt da jeg der har et rapportnavn som en streng på min Employer klasse (Employer.Report)  Den kan jeg ikke lige se hvordan jeg laver om. Men det kan nok gøres på en måde.

Når jeg hiver data ud af den famøse combox så gør jeg det som her

EmployerData := cboEmployerData.Items.Objects[cboEmployerData.ItemIndex] as TEmployerData;

Min TEmployerData ser sådan her ud
type
  TEmployerData = class
  private
    fGUID: string;
    fName: string;
    fHeader: string;
    fReport: string;
  public
    property GUID: string read fGUID;
    property Name: string read fName;
    property Header: string read fHeader;
    property Report: string read fReport;
    constructor Create(const aGUID, aName, aHeader, aReport: string);
  end;

Det kan faktisk laves baade OO og proceduralt.

Eksempel:

program FPtr;

uses
  Classes, Contnrs;

Type
  P = class
  public
    procedure M; virtual; abstract;
  end;
  C1 = class(P)
  public
    procedure M; override;
  end;
  C2 = class(P)
  public
    procedure M; override;
  end;
  VFP = procedure;

procedure C1.M;

begin
  writeln('C1.M');
end;

procedure C2.M;

begin
  writeln('C2.M');
end;

procedure M1;

begin
  writeln('M1');
end;

procedure M2;

begin
  writeln('M2');
end;

var
  lst : TObjectList;
  pp : pointer;
  fa : array[0..1] of VFP;
  f : VFP;

begin
  (* The OO way *)
  lst := TObjectList.Create(true);
  lst.Add(C1.Create);
  lst.Add(C2.Create);
  for pp in lst do begin
    P(pp).M;
  end;
  lst.Free;
  (* The old way *)
  fa[0] := @M1;
  fa[1] := @M2;
  for f in fa do begin
    f;
  end;
end.

arne_v ->

Din (* The old way *) løsning virker sålænge at man direkte skriver @M1. Mit 'problem' er at procedurenavnet ligger i en variabel og det vil den ikke acceptere at kalde.
Endvidere kan jeg ikke føre parametre med over i kaldet.
Det kan jeg så bare løse ved at hæfte nogle propertie på min Reports class og overføre dem den vej. Så det er det mindste problem.
Men det store issue er at jeg skal kalde en procedure som jeg har i en streng variabel.

Baade lookup by name og kald med parametre er mulige med den gammeldags maade.

Eksempel:

program FPtr21;

uses
  Classes, Contnrs, SysUtils;

Type
  P = class
  public
    procedure M(s : string); virtual; abstract;
  end;
  C1 = class(P)
  public
    procedure M(s : string); override;
  end;
  C2 = class(P)
  public
    procedure M(s : string); override;
  end;
  VFP = procedure(s : string);
  Key2VFP = record
    Key : string;
    F : VFP;
  end;

procedure C1.M(s : string);

begin
  writeln('C1.M : ' + s);
end;

procedure C2.M(s : string);

begin
  writeln('C2.M : ' + s);
end;

procedure M1(s : string);

begin
  writeln('M1 : ' + s);
end;

procedure M2(s : string);

begin
  writeln('M2 : ' + s);
end;

function MFind(a : array of Key2VFP; key : string) : Key2VFP;

label
  fin;

var
  res : Key2VFP;

begin
  for res in a do begin
    if res.Key = key then begin
      MFind := res;
      goto fin;
    end;
  end;
  raise Exception.Create('Ooops');
fin:
end;

var
  map : TFPHashObjectList; (* Lazaruz/FPC - use TObjectDictionary for Delphi *)
  fa : array[0..1] of Key2VFP;

begin
  (* The OO way *)
  map := TFPHashObjectList.Create(true);
  map.Add('#1', C1.Create);
  map.Add('#2', C2.Create);
  P(map.Find('#1')).M('foo');
  P(map.Find('#2')).M('bar');
  map.Free;
  (* The old way *)
  fa[0].Key := '#1';
  fa[0].F := @M1;
  fa[1].Key := '#2';
  fa[1].F := @M2;
  MFind(fa, '#1').F('foo');
  MFind(fa, '#2').F('bar');
end.