Wie kann man aus einem TMemo doppelte Einträge löschen ?

Wie liegen denn diese doppelten Einträge vor ?

Hallo bla blabla Hallo

oder:

Hallo
Bla Babla
Hallo
blablabla

Zitat von smart:

Wie kann man aus einem TMemo doppelte Einträge ?

Da fehlt das löschen in deinem Satz.
Wie meinst du das? In einer Memo steht üblichwerweise nur Text und meinst du da doppelte Wörter? Naja, wahrscheinlich icht. Ich gehe mal davon aus, dass du eine Memo dafür "mißbrauchst" wofür es eigentlich TListBox gibt. Du hast nämlich in jeder Zeile ein WOrt und du willst die doppelten finden.
Dann stellt sich noch die Frage, ob die Liste sortiert ist. Das würde die Sache nämlcih vereinfachen. Anosnsten einfach alles mit allem vergleichen:

markieren

Delphi-Quellcode:

for i :=Memo.Lines.Count -1 downto 1 do for i2 :=Memo.Lines.Count -1 downto 1 do
begin
    if (i<>i2) and (Memo.Lines.Strings[i] =Memo.Lines.Strings[i2]) then Memo.Lines.Delete(i2);
end;

Also so ungefähr. Musst du mal probieren... Oder noch ein paar Infos posten. Ich fürchte mein Code ist nicht so ganz richtig, aber der Grundgedanke hilft dir villeicht...

Zitat von turboPASCAL:

Wie liegen denn diese doppelten Einträge vor ?

Hallo bla blabla Hallo

oder:

Hallo
Bla Babla
Hallo
blablabla

So

Hallo Hallo Blabla..

Und sollte das rauskommen:

Hallo Blabla..

Ich habe folgendes mal versucht:

zusammenfalten · markieren

Delphi-Quellcode:

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

Klappt aber nicht. Wohl ein Denkfehler!

Also erstmal solltest du den String aufteilen, bei jedem Leerzeichen einen neuen String anfangen. Dazu hilft dir bestimmt die TStringList und die Properties Delimiter und[/oh]DelimitedText[/oh]. Du solltest auch über die Suche fündig werden...

Wenn du dann die "neue" Stringliste hast, kannst du anfangen zu suchen. Du könntest dir nun z.B. den ersten Eintrag nehmen und dann per Schleife die StringListe durchgehen. Wenn ein doppelter Eintrag gefunden wurde --> Löschen. Sollte mit 2 For-Schleifen leicht zu machen sein

Du brauchst aber keine Doppelposts zu machen. Dieses Board unterstützt eine sogenannte Edit-Funktion (@Mods: Evtl. Beiträge zusammenfassen...)

//edit: Auf deinen Code kann ich jetzt nicht näher eingehen, da müsste ich mich erstmal näher mit den Properties Duplicate und Sorted auseinandersetzen

Zitat von yankee:

Zitat von smart:

Wie kann man aus einem TMemo doppelte Einträge ?

Da fehlt das löschen in deinem Satz.
Wie meinst du das? In einer Memo steht üblichwerweise nur Text und meinst du da doppelte Wörter? Naja, wahrscheinlich icht. Ich gehe mal davon aus, dass du eine Memo dafür "mißbrauchst" wofür es eigentlich TListBox gibt. Du hast nämlich in jeder Zeile ein WOrt und du willst die doppelten finden.
Dann stellt sich noch die Frage, ob die Liste sortiert ist. Das würde die Sache nämlcih vereinfachen. Anosnsten einfach alles mit allem vergleichen:

markieren

Delphi-Quellcode:

for i :=Memo.Lines.Count -1 downto 1 do for i2 :=Memo.Lines.Count -1 downto 1 do
begin
    if (i<>i2) and (Memo.Lines.Strings[i] =Memo.Lines.Strings[i2]) then Memo.Lines.Delete(i2);
end;

Also so ungefähr. Musst du mal probieren... Oder noch ein paar Infos posten. Ich fürchte mein Code ist nicht so ganz richtig, aber der Grundgedanke hilft dir villeicht...

Es handel sich dabei um ein Editor. Klappt auch nicht. Doppelte bleiben.

Zitat von smart:

Hallo Hallo Blabla..

Und sollte das rauskommen:

Hallo Blabla..

Also schon sortiert und hintereinander.
Das einfachste ist wohl das:
besorg dir Explode und mach dann folgendes (ungetetste):

zusammenfalten · markieren

Delphi-Quellcode:

procedure antidoppelte(theMemo: TMemo);
var temp: TStringDynArray;
    i2: integer;
begin
    for i:=0 to theMemo.Lines.Count -1 do
    begin
        temp :=Explode(' ', theMemo.Lines.Strings[i]);
        theMemo.Lines.Strings[i] :='';
        for i2:=0 to length(temp) -1 do if (i2 =length(temp) -1) or (temp[i2] <> temp[i2+1]) then theMemo.Lines.Strings[i] :=theMemo.Lines.Strings[i]+ ' ' +temp[i];
    end;
end;

Also so mal vom Grundgedanke her. Könnte sogar sien, dass diese procedure sofort läuft *gg*

sry doppelpost, da stand immer nur Sending request to... udn dann dachte ich, der htte sich aufgehangen, war nicht der Fall.

EDIT:
@smart: Bei deiner Methode stehen dann nachher die wörter in einer anderen Rheinfolge da, weil du sortierst!

Moin, moin, Heike,

also ich würde vom Prinzip alle Wörter des Memos in eine sowie ihre Startpostion Stringliste eintragn und dann hier nach doppelten suchen. Dafür kannst Du auf MEmo.Lines.Text zugreifen, dann hast Du keine Zeilenprobleme, da Deine Wiederholungen ehedem nicht Zeilengebunden sind.

Na so´n Teilansatz kommt hier ma´n an:

zusammenfalten · markieren

Delphi-Quellcode:

      function PosCharEnh
      ( const Ch : Char;
          const S : string;
                Start : Integer = 1)
                      : Integer;
      var
              I, N: Integer;
      begin
              Result := 0;
              N := Length (S);
              if Start < 1 then
                      Start := 1;
              if (N = 0) or (Start > N) then
                      Exit;

              for I := Start to N do
              begin
                      if S [I] = Ch then
                      begin
                              Result := I;
                              Exit;
                      end;
              end;
      end;


  procedure BuildList
  var MyList : TStringList;
  vat MyPosFront : integer;
  vat MyPosEnd : integer;
  begin
      MyPosFront := 1
      MyPosEnd := 2;
      while PosCharEnh( ' ', MemoLines.Text, MyPosFront ) > 0 do
      begin
            // Wortende ermitteln
            MyPosEnd := PosCharEnh( ' ', MemoLines.Text, MyPosEnd );
            // Wort in Liste
           MyList.Add( copy (MyPosFront, MyPosEnd-MyPosFront, Inttostr(MyPosFront) + '|' Inttostr(MyPosEnd) + '|'MemoLines.Text) );
             
           // Suchpostionen neu setzen
           MyPosFront := MyPosEnd;
           MyPosEnd := MyPosFront+1;
      end;
  end;

Soweit zum Listenaufbau, irgendwie lauert da wieder Arbeit für mich...

Grüße // Martin