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.