Einzelnen Beitrag anzeigen

Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Item eines arrays anhand eines strings?

  Alt 7. Dez 2004, 04:57
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
  Mit Zitat antworten Zitat