Hallo,
wenn du die eingelesene Name-Value-Liste nur für die Initialisierung deiner dependancy-Objekte verwendest, dann kannst du auch so vorgehen:
Delphi-Quellcode:
procedure TStandardValuesController.readDependancies();
var list : TStringList;
i : integer;
dependancy : TKTipDependancy;
begin
list := TStringList.Create();
list.LoadFromFile(m_KTIPDependancyFilePath);
for i :=0 to list.Count-1 do
begin
dependancy := TKTipDependancy.create('','');
dependancy.QualityBarcode := Trim(list.Names[i]);
dependancy.Sign := Trim(list.Values[dependancy.QualityBarcode]);
m_KTIPDependancies.Add(dependancy);
end;
end;
Freundliche Grüße