TStringList nach Dupplikaten suchen - Standard Pascal

[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.

[Sinspin]

Ich versuche in letzter Zeit auf die Stringliste zu verzichten wenn ich Wertepaare habe.
Mit einer Memtable kann man sowas deutlich angenehmer lößen.