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;