String in TStringList finden verschnellern?

[p80286]

Zitat von Uwe Raabe:

Zitat von p80286:

wenn du mit .sorted:=True; arbeitest, dann mußt Du noch eine Behandlung von doppelten Datensätzen mit einbauen z.B. .Duplicates:=dupIgnore;

Das entspricht aber auch der Standardeinstellung. Lediglich für ein anderes Verhalten muss das explizit gesetzt werden.

Wobei "Standard" wohl von Version zu Version verschieden ist. Unter D7 war es wohl dupError
Gruß
K-H

[Uwe Raabe]

Zitat von p80286:

Wobei "Standard" wohl von Version zu Version verschieden ist. Unter D7 war es wohl dupError

Kann ich zumindest bei meinem Delphi 7 nicht bestätigen. Dort ist ebenso TDuplicates = (dupIgnore, dupAccept, dupError); und da es im Create oder anderswo nicht gesetzt wird, entspricht der Standardwert auch dort TDuplicates(0) = dupIgnore .

[nahpets]

Unter Delphi 7 erfolgt das Einfügen von Daten mit dieser Routine:

Delphi-Quellcode:

function TStringList.Add(const S: string): Integer;
begin
  Result := AddObject(S, nil);
end;

function TStringList.AddObject(const S: string; AObject: TObject): Integer;
begin
  if not Sorted then
    Result := FCount
  else
    if Find(S, Result) then
      case Duplicates of
        dupIgnore: Exit;
        dupError: Error(@SDuplicateString, 0);
      end;
  InsertItem(Result, S, AObject);
end;

dupIgnore ist der "Normalfall", d. h.: Beim Auftreten von Dubletten werden diese nicht eingefügt. Die Stringliste hat also einen eindeutigen Inhalt.
Mit dupError kann man sich aber auch 'nen Fehler ausgeben lassen.

Egal welche Wahl man trifft: Sofern Sorted = True, gibt es keine Dubletten in der Stringliste.

[Uwe Raabe]

Zitat von nahpets:

Egal welche Wahl man trifft: Sofern Sorted = True, gibt es keine Dubletten in der Stringliste.

Das sehe ich anders! Bei dupAccept trifft keines der case-Labels zu und der Code springt direkt zum InsertItem . Hast du es mal probiert?

[nahpets]

Upps, Du hast recht.

Da hab' ich wohl mal wieder nur halb gelesen oder nur das gesehen, was ich sehen wollte oder so

[a.def]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 sl: TStringList;
begin
 sl := TStringList.Create;

 try
  sl.Sorted := False;

  sl.Add('123');
  sl.Add('456');
  sl.Add('123');

  ShowMessage('Sorted False:' + sLineBreak + sl.Text);

  sl.Sorted := True;
  ShowMessage('Sorted True:' + sLineBreak + sl.Text);
 finally
  sl.Free;
 end;

Keinerlei Fehler beim Setzen von Sorted True im Nachhinein, selbst wenn Einträge Doppelt vorhanden sind.

[Fritzew]

Zitat:

Keinerlei Fehler beim Setzen von Sorted True im Nachhinein, selbst wenn Einträge Doppelt vorhanden sind.

Das ist auch richtig so da ja nur sortiert wird beim setzen von sorted.
Irgendwann muss man sich halt entscheiden ob man duplicate will oder nicht.
Wenn ja kann man sorted später setzen, im anderen Fall entweder von Anfang an sorted oder selber prüfen. Dann sind wir wieder am Anfang

[p80286]

Zitat von a.def:

Keinerlei Fehler beim Setzen von Sorted True im Nachhinein, selbst wenn Einträge Doppelt vorhanden sind.

Das setzen von Sorted im Nachhinein ist ja auch nicht der "Standardfall". Entweder, Du machst es hinterher Liste.Sort; dann hast du alle Daten oder vorher Liste.Sorted:=true; .
Und es gibt bestimmt viele Möglichkeiten beides zu kombinieren und möglichst viel Chaos anzurichten.

Gruß
K-H

[Uwe Raabe]

Zitat von a.def:

Keinerlei Fehler beim Setzen von Sorted True im Nachhinein, selbst wenn Einträge Doppelt vorhanden sind.

Das Duplicates wird auch nur beim Hinzufügen ausgewertet, nicht beim Sort . Das Property ist eben keine Garantie für den Inhalt der Stringlist. Es kann insbesondere jederzeit zwischen zwei Add -Aufrufen geändert werden.