1:

ExtractStrings([' '], [' '], PChar(deinstring),eineStringliste);					

1:
2:
3:
4:
5:
6:
7:
8:

SL := TStringList.Create;
try
    SL.Duplicates := False;
    SL.CommaText := DeinText;
    OutputMemo.Lines.Text := SL.Text;
finally
    SL.Free;
end;					

1:
2:
3:
4:
5:
6:
7:

Textaufbau := '';
PruefString := '';
eineStringliste.Add(RichEdit1.Text);
for i := 0 to eineStringliste.Count -1 do begin
  Textaufbau := Textaufbau + eineStringliste[i]+';';
end;
Richtextbox2.text := Textaufbau;					

1:
2:
3:

For i:=0 to OutputMemo.Lines.Count-1 do
    if Length(OutputMemo.Lines[i])<gewuenschteMindestlaenge then
       DelLine(OutputMemo,i);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure redundanteDatenLoeschen();
var  i,j:Int;
     doppeltesGefunden:bool;
begin
for i:=0 to OutputMemo.Lines.Count-1 do //diesen Befehl kannst Du ja mit meinem Vorschlag von Gestern zusammen nutzen!
     for j:=0 to i-1 do
            if (not doppeltesGefunden)then
                if(OutputMemo.Lines[i]=OutputMemo.Lines[j]) then
                     begin
                     DelLine(OutputMemo,j);
                     doppeltesGefunden:=true;
                     end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure redundanteUndZuKurzeZeilenLoeschen();
var  i,j:Int;
     doppeltesGefunden:bool;
begin
For i:=0 to OutputMemo.Lines.Count-1 do //diesen Befehl kannst Du ja mit meinem Vorschlag von Gestern zusammen nutzen!
    begin
    //hier erst mal wieder sagen, dass noch nichts doppeltes gefunden wurde (ist ja ein neuer Wert!):
    doppeltesGefunden:=false;
    // Löschen, wenn die gewünschte Mindestlänge nicht erreicht wurde: 
    if Length(OutputMemo.Lines[i])<gewuenschteMindestlaenge then
       DelLine(OutputMemo,i)
    else //also wenn die aktuelle Zeile lang genug ist:
       // Gucken, ob es diesen Wert schon gab - wenn ja, dann den gerade bei der Suche gefundenen löschen:
       for j:=0 to i-1 do
            if (not doppeltesGefunden)then
                if(OutputMemo.Lines[i]=OutputMemo.Lines[j]) then
                     begin
                     DelLine(OutputMemo,j);
                     doppeltesGefunden:=true;
                     end;                
    end;
end;					

1:

sErg := Copy(s,Start,Ende-Start);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

   µ03033€pˆ4€gˆ0321€2ˆ€kˆ     @
J
Ml µ03033€pˆ4€gˆ0321€2ˆ€kˆ     @
J
Ml

              1Auto€ ‹audi AUTO� 

¶AUTO 

              1Auto€ ‹audi AUTO� 

¶AUTO             von hier>>//1AUTO.€Xˆ  AUTO€n� AUTOXX€ –€n„  co€v–AUTO“  986627   AUTO€o //<--Bis hier•12345678901“|½
  íƒ¦I    âg             
 985þ
X½
    27   AUTO€o•  þ
Õ¼
    234904€ Ü  µ03033€pˆ4€gˆ0321€2ˆ€kˆ     @
J
Ml

              1Auto€ ‹audi AUTO� 

¶AUTO 1‘  98566ƒAUTO©
4Ü  µ012345ˆ
543210,543210þ
q¶
    27   AUTO€ •  þ
¸
    ›   @
@
P€ ‰
ƒ€