Doppelte Einträge entfernen?

[dahead]

Zitat von smart:

Ich habe folgendes mal versucht:

Delphi-Quellcode:

sl := TStringList.Create;
       try
          For Z := 0 To Memo.Lines.Count -1 do
              begin
                   with sl do
                       begin
                             Sorted := True; //hier
                             Duplicates := dupIgnore; //hier
                             Add(Memo.Lines[Z]);
                        end;
                  Memo.Lines.Assign(sl);
               end;
           finally
           sl.Free;
          end;

Klappt aber nicht. Wohl ein Denkfehler!

du solltest die zuweisung von eigenschaften auch niemals in einer schleife aufrufen.
am besten weist du "Sorted := True; Duplicates := dupIgnore" nach dem Create zu.
so als allgemeiner tipp.

[smart]

Habt schon mal vielen Dank, für die zahlreichen Antworten und Anregungen. Bin aber noch am testen! Ich hatte schonmal - vor einiger Zeit - das gleiche Probl. und auch ne ganz einfache Lösung. Leider finde ich die nicht mehr.

Heike.

[shmia]

Zitat von smart:

Hallo Hallo Blabla..
Und sollte das rauskommen:
Hallo Blabla..

Also ist das Problem doch reduziert auf
"doppelte Wörter getrennt durch Whitespaces aus einem STRING entfernen."
Also liest man ein Wort nach dem anderen, und bucht es in eine Stringliste ein.
Sollte ein frisch gelesenes Wort nicht in der Stringliste vorhanden sein,
dann wird es in den Ausgabestring geschrieben.
Mit diesem Kochrezept dürfte es dann kein Problem sein, dies in Delphi Code umzusetzen.

[smart]

Zitat von shmia:

Zitat von smart:

Hallo Hallo Blabla..
Und sollte das rauskommen:
Hallo Blabla..

Also ist das Problem doch reduziert auf
"doppelte Wörter getrennt durch Whitespaces aus einem STRING entfernen."
Also liest man ein Wort nach dem anderen, und bucht es in eine Stringliste ein.
Sollte ein frisch gelesenes Wort nicht in der Stringliste vorhanden sein,
dann wird es in den Ausgabestring geschrieben.
Mit diesem Kochrezept dürfte es dann kein Problem sein, dies in Delphi Code umzusetzen.

Das Problem ist nur, wie willst Du den Text Wort für Wort einlesen? Die Wörter sind ja nicht einzeln abgespeichert!

[Nils_13]

An deiner Stelle würde ich alle verschiedenen Wörter in eine ListBox hinzufügen, die im TMemo stehen (es muss die richtige Reihenfolge sein, sonst läufts nicht).
Dann überprüfst du ob in der ListBox mehrere vesrchiedene Einträge sind und wie viele (in Zahlen, es uss ja immer einer übrig bleiben, oder ?). Letztendlich musst du noch die ganzen Einträge im Memo hintereinander schreiben.

[smart]

Gibt es in Delphi eine Routine oder Befehl, wo man sagen kann, lösche alle Zeichen vom Anfang der Zeile bis zum nächsten Leerzeichen in dieser Zeile? Denn im Prinzip, sind die Doppelten Wörter immer am Anfang.

„Hallo Hallo Herr Mustermann“

[shmia]

Zitat von smart:

Gibt es in Delphi eine Routine oder Befehl, wo man sagen kann, lösche alle Zeichen vom Anfang der Zeile bis zum nächsten Leerzeichen in dieser Zeile? Denn im Prinzip, sind die Doppelten Wörter immer am Anfang.

„Hallo Hallo Herr Mustermann“

Ja, geklaut aus der JCL:

Delphi-Quellcode:

function StrToken(var S: AnsiString; Separator: AnsiChar): AnsiString;
var
  I: Integer;
begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
    Result := Copy(S, 1, I - 1);
    Delete(S, 1, I);
  end
  else
  begin
    Result := S;
    S := '';
  end;
end;

[100nF]

hi,

hab da auch mal was gecodet...
ist aber noch nicht fertig aber hab jetzt keine zeit mehr, ich denke, das kannst du auch selber noch fertig schreiben

Delphi-Quellcode:

function Split(const fText: String; const fSep: Char; fTrim: Boolean=false; fQuotes: Boolean=false):TStringList;
var vI: Integer;
    vBuffer: String; 
    vOn: Boolean; 
begin
  Result:=TStringList.Create; 
  vBuffer:=''; 
  vOn:=true;
  for vI:=1 to Length(fText) do 
  begin 
    if (fQuotes and(fText[vI]=fSep)and vOn)or(Not(fQuotes) and (fText[vI]=fSep)) then
    begin 
      if fTrim then vBuffer:=Trim(vBuffer); 
      if vBuffer='' then vBuffer:=fSep;
      if vBuffer[1]=fSep then 
        vBuffer:=Copy(vBuffer,2,Length(vBuffer)); 
      Result.Add(vBuffer);
      vBuffer:='';
    end;
    if fQuotes then
    begin
      if fText[vI]='"' then
      begin
        vOn:=Not(vOn);
        Continue;
      end;
      if (fText[vI]<>fSep)or((fText[vI]=fSep)and(vOn=false)) then
        vBuffer:=vBuffer+fText[vI];
    end else
      if fText[vI]<>fSep then
        vBuffer:=vBuffer+fText[vI];
  end;
  if vBuffer<>'' then
  begin
    if fTrim then vBuffer:=Trim(vBuffer);
    Result.Add(vBuffer);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var s1: tstringlist;
    i, i2: integer;
    s: string;
begin
  s1 := tstringlist.Create;
  for i:=0 to memo1.Lines.Count-1 do
  begin
    s1.Clear;
    s := memo1.Lines.Strings[i];
    s1 := split(s, ' ', true);
    s := s1.Strings[0];       // nicht sicher, falls s1.count = 0, musst du ändern
    for i2:=1 to s1.Count-1 do
      if pos(s1.Strings[i2], s) = 0 then  // das darf man nicht mit pos() lösen, den fehler bemerkst du sicher selbst.
        s := s+' '+s1.Strings[i2];
    memo1.Lines.strings[i] := s;
  end;
end;

[smart]

Vielen Dank an Euch alle! Damit weiter gekommen.