TStringList nach Dupplikaten suchen - Standard Pascal

[paule32.jk]

Hallo,
ich habe gerade eine kleine Blockade, um vorhandene items in einer TStringList zu finden.
wenn gefunden, dann soll found := true; ansonsten false; einnehmen.

die Suchfunktion unten iteriert von 0 auf Count-1 - aber was ist, wenn weitere Einträge vorhanden sind ?

Delphi-Quellcode:

function TCustomMetaName.get(index: Integer): String;
var found: Boolean;
var index: Integer;
begin
    // index out of bounds ?
    if (index > MetaList.Count-1)
    or (index < 0)
    or ((MetaList.Count-1) < 0) then
    begin
        if debugMode then
        begin
            ShowMessage(
            Locale.tr('Error: meta name is empty/out of bounds.') + #13#10 +
            Locale.tr('A Exception should stop the build.'));
            raise Exception.Create(Locale.tr('internal error'));
        end;
        raise Exception.Create(Locale.tr('internal error'));
    end;
    
    // duplicates in list ?
    found := false;
    for index := 0 to MetaList.Count - 1 do
    begin
        if MetaList[index].Values['name'] =  ...   <--- hier
    end;
end;