String in TStringList finden verschnellern?

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

[DeddyH]

Müssen? War es nicht eher andersherum, wenn Duplikate ausgeschlossen werden sollen, muss Sorted auf true gesetzt werden?

[Uwe Raabe]

Zitat von DeddyH:

Müssen? War es nicht eher andersherum, wenn Duplikate ausgeschlossen werden sollen, muss Sorted auf true gesetzt werden?

Das Duplicates-Property wird sowieso nur dann ausgewertet, wenn Sorted auf true steht. Erst dann kann man einstellen, ob Duplikate einfach ignoriert werden, aufgenommen werden oder eine Exception generieren.

Das Zulassen von Duplikaten bei einer sortierten Liste ist allerdings etwas zweischneidig: man weiß nie, welches er beim IndexOf/Find zurückliefert.

[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

[a.def]

Zitat von p80286:

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

Danke für den Hinweis. Das Schöne ist ja, dass es keine doppelten Einträge geben kann. Jedenfalls theoretisch. Ich habe noch nie zwei identische Dateinamen im selben Verzeichnis auf meiner Festplatte gesehen.

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