problem mit Stringlist, test auf vorhandensein einer phrase?

[marabu]

Zitat von richard_boderich:

bitte nur eine ja / nein antwort

Was verlangst du da. Sieh selbst. Ich habe auch bei deinem Code eine sortierte Liste vorausgesetzt - ansonsten läufst du außer Konkurrenz. Mit sortierter Liste bist du nur noch zwischen 10 und 40 Prozent langsamer.

Delphi-Quellcode:

const
  IMAX = 10000;

procedure TDemoForm.MarabuClick(Sender: TObject);
var
  i: Integer;
  s: String;
  tc: Cardinal;
  sl: TStringList;
begin
  sl := TSTringList.Create;
  sl.Sorted := true;
  sl.Duplicates := dupIgnore;

  tc := GetTickCount;
  for i := 1 to IMAX do
  begin
    s := RandomStr(3);
    sl.Add(s);
  end;
  tc := GetTickCount - tc;
  ShowMessage(Format('%d dupes, %d ticks', [IMAX - sl.Count, tc]));

  sl.Free;
end;

procedure TDemoForm.RichardClick(Sender: TObject);
var
  i: Integer;
  s: String;
  tc: Cardinal;
  sl: TStringList;
begin
  sl := TSTringList.Create;
  sl.Sorted := true;

  tc := GetTickCount;
  for i := 1 to IMAX do
  begin
    s := RandomStr(3);
    if sl.IndexOf(s) = -1 then
      sl.Add(s);
  end;
  tc := GetTickCount - tc;
  ShowMessage(Format('%d dupes, %d ticks', [IMAX - sl.Count, tc]));

  sl.Free;
end;

marabu

[Die Muhkuh]

Wo ist RandomStr deklariert? Ich finde das in meiner OH nicht.

[marabu]

Das nenne ich einen aufmerksamen Leser. Hier hast du:

Delphi-Quellcode:

function RandomStr(size: integer): string;
var
  i: integer;
begin
  SetLength(Result, size);
  for i := 1 to Length(Result) do
    Result[i] := Chr(Ord('A') + Random(26));
end;

marabu

[Die Muhkuh]

Zitat von marabu:

Das nenne ich einen aufmerksamen Leser. Hier hast du:

Nunja, ich wollte das ausprobieren und als ich nirgends RandomStr fand, fragte ich nach

Danke

[richard_boderich]

@marabu

*zitat*
bitte nur eine ja / nein antwort
*zitat ende*

beachte bitte den smiley dahinter gg

danke dir fuer deine ausfuehrungen. dein besipiel werd ich mal genau unter die lupe nehmen.

gruß richard



//edit warum willst du die liste eigentlich unbedingt sortieren?

wobei mir auffaellt das deine RandomStr routine, wesentlich mehr unterschiedliche strings liefert
als gleiche

[marabu]

Hallo Richard.

Zitat von richard_boderich:

beachte bitte den smiley dahinter

Freundschaft (keiner sagt das so schön wie Hans Süper).

Zitat von richard_boderich:

warum willst du die liste eigentlich unbedingt sortieren?

In meiner Routine lege ich wert auf Sortierung, damit ich vom binary search profitiere. Wenn du willst kannst du ja mal in deiner Routine die Sortierung auf Kommentar setzen und dann vergleichen.

Zitat von richard_boderich:

wobei mir auffaellt das deine RandomStr routine, wesentlich mehr unterschiedliche strings liefert als gleiche

Setze mal den Parameter auf 2.

marabu

[richard_boderich]

ok marabu,

du hast mich ueberzeugt. hab mir grad deinen code angeschaut und ausprobiert. ich versteh zwar nich genau was binaery suche bedeutet und warum es schneller ist, aber egal. die zahlen luegen ja nich. danke dir nochmal fuer deine hilfe

gruß richard