TStringList nach Dupplikaten suchen - Standard Pascal

[jaenicke]

Also erstens ist es keine gute Idee, dass deine lokale Variable genauso heißt wie der Parameter. Deshalb setzt man Parametern üblicherweise ein A voran, z.B. AIndex.

Du möchstest herausfinden, ob der per Index angegebene Eintrag noch einmal in der Liste vorkommt? Und was soll dann passieren? (Denn zurück wird ja ein String geliefert...)

Und deine Liste enthält Werte in der Form und du möchtest den rechten Teil nach dem Gleichheitszeichen suchen? (Weil du auf Values zugreifst)

Zitat:

A=Wert1
B=Wert2
Test=Wert3

[paule32.jk]

ja, die .Value Einträge.

Die Liste:
name=123
name=abc
name=zupf
content=quatschpillepalle

"name" kommt mehrmals vor (als key: name) ... aber die Value's sind anders.

wenn Dupplikat gefunden wurde, soll der Suchvorgang abbrechen,
und eine ShowMessage anzeigen.

[Papaschlumpf73]

Das hier wäre dann auch ein Duplikat?

name=123
content=123

[himitsu]

Zitat von jaenicke:

Also erstens ist es keine gute Idee, dass deine lokale Variable genauso heißt wie der Parameter. Deshalb setzt man Parametern üblicherweise ein A voran, z.B. AIndex.

Keine Sorge, eine ordentliche Programmiersprache erlaubt sowas eh nicht.

Zitat von Zeile 25 = das VAR:

[dcc32 Fehler] Unit27.pas(25): E2004 Bezeichner redeklariert: "index"
[dcc32 Fataler Fehler] Project27.dpr(5): F2063 Verwendete Unit 'Unit27.pas' kann nicht compiliert werden

Zitat:

 if MetaList[index].Values['name'] = ... <--- hier

Values oder Strings?

MetaList[index]{.Values['name']}
entspricht
MetaList.Strings[index]{.Values['name']}
aber du meinst bestimmt
MetaList.ValueFromIndex[index]

[Rollo62]

http://www.delphibasics.co.uk/RTL.php?Name=TStringlist

Vieleicht suchst Du sowas wie ValueFromIndex?

Delphi-Quellcode:

for i := 0 to names.Count-1 do
  begin
    ShowMessage(names.Names[i]+' is '+names.ValueFromIndex[i]);
  end;

[paule32.jk]

ValueFromIndex kommt schon sehr nah dran, danke.

[himitsu]

Mir war so, als gab es auch ein Array (oder notfalls Enumerator) für die Values alleine, aber nee,
nur Namen bzw. Keys, sowie Strings (also 'Name=Value'), sonst würde auch sowas gehn:

Delphi-Quellcode:

if MatchStr('abc', MetaList.ToValues) then  // oder MatchText() für case-insensitive
  ValueInListeGefunden;

[Blup]

Erst MetaList (oder eine Kopie davon) mit eigener Vergleichsfunktion nach ValueFromIndex sortieren.
In der sortierten Liste stehen danach gleiche Values hintereinander.
Einfach Schritt für Schritt durchgehen und mit dem jeweiligen Vorgänger vergleichen.

[himitsu]

Leider fehlen viele Funktionen für Values.

Dass es nur ein Values[Name] und kein Values[Index] gibt (ja, das doppelt gemoppelte ValuesFromIndex[Index] ignoriere ich mal), liegt lag am Delphi 1-7, da sich dort Default-IndexProperty nicht überladen ließen, aber das geht nun seit vielen Jahren,
dann fehlt ein IndexOfValue (IndexOf, IndexOfName und IndexOfObject gibt es ja auch),
dann noch die fehlenden ToNameArray und ToValueArray (zu den ToStringArray und ToObjectArray)
sowie Duplicates für Names und Values

und schon hätten wir viele Fälle abgedeckt, welche hier und die letzten Monate über immer mal welche hatten.



Und warum wir Duplicates=dupError ignoriert, wenn Sorted=False?
Wenn es beim Zuweisen ignoriert wird, sollte es beim Zuweisen bereits einen Fehler gegen,
außerdem gibt es keinen Grund, dass es nicht funktioniert ... nur weil jemand bei Borland/Emba zu faul war das für den unsortieren Fall zu implementieren, abgesehn davon dass IndexOf sowohl sortiert als auch unsortiert funktioniert.