Hallo,
bei einfachen Lookup-Funktionen (String -> Integer) ist eine eigene Klassendefinition nicht notwendig:
Delphi-Quellcode:
// generisch: PK in Feld0, DisplayString in Feld1
procedure LoadItems(s: TStrings; ds: TDataSet);
begin
s.BeginUpdate;
try
s.Clear;
ds.First;
while not ds.Eof do
begin
s.AddObject(ds.Fields[1].AsString, Pointer(ds.Fields[0].AsInteger));
ds.Next;
end;
finally
s.EndUpdate;
end;
end;
// getippt und nicht getestet.
Wenn die Klasse TMandant keinen deutlichen Mehrwert generiert, dann besser weglassen.
Freundliche Grüße