[OOP] Instanzen durchlaufen

**quendolineDD**

Hallo Community. Suche nun schon eine weile und grübel über mein Problem nach, wie ich dies früher gelöst habe.
Ich habe eine Klasse

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TKunde = class(TObject)

  private

    fKID        : Integer;

    fName       : String;

    fVorname    : String;

    fAnschrift  : TAnschrift;

    fGebdatum   : TDate;

  public

    constructor create (const kunden_id: integer);

    destructor destroy;

    function getid: integer;

    function find_customer_by_name(s: string): integer;

    property Name       : String      read fName        write fName;

    property Vorname    : string      read fVorname     write fVorname;

    property Anschrift  : TAnschrift  read fAnschrift   write fAnschrift;

    property Gebdatum   : TDate       read fGebdatum    write fGebdatum;

  end;

Im Programm übergebe ich den Namen eines Kunden, welchen ich schon bei der Instanzierung gleichzeitig in die ComboBox eingeschrieben habe an die Funktion.
SQL.Add(format(SQL_SELECT_CALLCOUNT_YEAR_AT_WEEKEND, [k.find_customer_by_name(ComboBox1.Items[ComboBox1.ItemIndex])])); Nun möchte ich in meiner Funktion alle einzelnen Instanzen der Klasse durchlaufen um die jeweiligen Namen mit dem zu vergleichen und die ID zurückzugeben...

zusammenfalten · markieren

Delphi-Quellcode:

			function TKunde.find_customer_by_name(s: string): integer;

var

s1: string;

i : integer;

begin

result := 0;

  s1 := copy(s, 0, pos(',',s)-2);

  delete(s, 1, pos(',',s));

    if (fName=s1) and (fVorname=s) then

      result := fKID;

end;

Hier fehlt dann mein weiteres Verständnis für OOP ... Wie kann ich die einzelnen Instanzen in einer Schleife o.ä. durchlaufen und mit den Werten vergleichen?

[OOP] Instanzen durchlaufen

[OOP] Instanzen durchlaufen

Forumregeln