Stringliste indexOfName IndexofValue

[bernhard_LA]

bin jetzt hier gelandet :

Delphi-Quellcode:

Type      TStringlistHelper = class helper for TStringlist

           function IndexofValue( ValueStr : string) : Integer;
        
         end;

function TStringlistHelper.IndexofValue ( ValueStr : string) : Integer;
  var   i : Integer;
begin
    i := 0;
    repeat
        if ( Pos(ValueStr, self[i])>0 ) then
            begin
              Result := i;
              exit
            end;

        Inc(i);

    until i >  Self.Count-1;

    if i >  Self.Count-1 then  Result := -1;

end;

gibt es bessere / schnellere Lösungen ?

[Neutral General]

Zitat von bernhard_LA:

gibt es bessere / schnellere Lösungen ?

Ja: ValueFromIndex benutzen statt pos.
Edit: Und eine for-Schleife.. Es sei denn du willst es extra umständlich machen
Edit2:

Delphi-Quellcode:

function TStringlistHelper.IndexofValue(AValueStr : string): Integer;
var i : Integer;
begin
  Result := -1;
  for i:= 0 to Count-1 do
  begin
    if ValueFromIndex[i] = AValueStr then // StrUtils.AnsiSameText ggf falls Case-Insensitiv
    begin  
      Result := i;
      break;
    end;
  end;
end;

[hoika]

Hallo,
Pos('=Value2',StringList.DelimitedText) ?

[Uwe Raabe]

Zitat von hoika:

Hallo,
Pos('=Value2',StringList.DelimitedText) ?

Das würde aber auch bei einem Eintrag 'Value22' anschlagen.

[hoika]

Hallo,
hach
Pos('=Value2;',StringList.DelimitedText+';') ?

mit ; als Delimiter

so

[Redeemer]

Zitat von bernhard_LA:

gibt es bessere / schnellere Lösungen ?

Schreit eigentlich nach

Zitat von Jumpy:

TDictionary verwenden?

und Ausgabe mit TStringBuilder.

[freimatz]

z.B. ja.

Zitat von bernhard_LA:

gibt es bessere / schnellere Lösungen ?

Ja, fast alle die nicht TStringlist verwenden
Alle Lösungen mit TStringlist sind nur Murks. Allenfalls für die reine Ausgabe könnte man eine verwenden.
Meine 2ct

[himitsu]

Zitat von Neutral General:

Zitat von bernhard_LA:

gibt es bessere / schnellere Lösungen ?

Ja: ValueFromIndex benutzen statt pos.

Der Witz ist, dass dein Code zwar "richtig" funktioniert, im Gegensatz zur ursprünglichen Schleife, da dort das POS irgendwas findet, auch X oder geb in xXx=Ergebnis.
Und der Code ist viel einfacher zu lesen, ist genauso schnell wie das normale IndexOfName,
aber es muß zwangsläufiger langsamer werden, als die einfache Pos-Variante.

Also besser ja, aber schneller ne.

Original wurde im String (ganze Zeile) nur gesucht/verglichen,
während ValueFromIndex erstmal langsam einen neuen String erzeugt (Teil aus Zeile kopiert) und dort dann schneller den ganzen String richtig/vollsändig vergleicht.

Zitat von Uwe Raabe:

Zitat von hoika:

Hallo,
Pos('=Value2',StringList.DelimitedText) ?

Das würde aber auch bei einem Eintrag 'Value22' anschlagen.

EndsStr statt Pos wäre hier fast richtiger, aber das würde auch Ergebnis in xXx=abc=Ergebnis finden, obwohl der Wert eigentlich abc=Ergebnis wäre.
Gut, wenn man ausschließt, dass dort ein = drin vorkommt, dann reicht EndsStr aus.
Man müsste also auch noch prüfen, sodass vor dem Gefundenen kein weiteres = vorkommt.

Ansonsten ist die "einfache" Lösung mit ValueFromIndex.


Tipp: eine Zweiphasensuche
Erst schnell mit EndsStr suchen und dann jeden gefundenen Eintrag nochmal "genauer" mit ValueFromIndex nachprüfen,
falls es unbedingt schnell sein muß, auch in einer StringListe.


Schneller geht es sonst nur mit einer Liste, wo Name und Value bereits getrennt in zwei Variablen gespeichert wurden,
am Besten noch, wenn die Liste gehasht und womöglich sogar sortiert wurde.

[Koloss]

Diese Funktion reicht doch, das er sehr performant sein muss habe ich hier nicht heraus gelesen

Code:

function IsValueInStringList(strList: TStrings; Value: String): Boolean;
var
  i: integer;
begin
  Result := False;
  for i := 0 to strList.Count do
    if strList.ValueFromIndex[i] = Value then
    begin
      Result := true;
      break;
    end;
end;

Wenn man die TStrings als TStringList anlegt kann man auch davor strList.Sort verwenden.
Die TStrings sollten mit TStringList erstellt werden