Zitat von
Christian Seehase:
iIndex := FMyArray.IndexOf(sIndex);
TStingList (bzw. TStrings) macht's aber auch über eine lineare Suche:
Delphi-Quellcode:
function TStrings.IndexOf(const S: string): Integer;
begin
for Result := 0 to GetCount - 1 do
if CompareStrings(Get(Result), S) = 0 then Exit;
Result := -1;
end;
Es sei denn die Eigenschaft "Sorted" von TStringList ist "true", dann wird irgendwie was anderes gemacht (habs nicht ganz geschnallt was genau
).
Wollte ich nur angemerkt haben -> ohne Schleife (wenn auch in der
RTL versteckt) geht's nicht.
Gruss,
Fabian
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel