Einzelnen Beitrag anzeigen

quendolineDD

Registriert seit: 19. Apr 2007
Ort: Dresden
781 Beiträge
 
Turbo Delphi für Win32
 
#1

[OOP] Instanzen durchlaufen

  Alt 13. Mai 2008, 16:39
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
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...
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?
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.
  Mit Zitat antworten Zitat