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€ ‰
ƒ€                    

1:

RIFFjB
 AVI LISTŒ  hdrlavih8   @B ¼                   2  A
  A                    

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

Offset(o) 00 01 02 03 04 05 06 07 10 11 12 13 14 15 16 17

00000000  52 49 46 46 6A 42 01 00 41 56 49 20 4C 49 53 54  RIFFjB..AVI LIST
00000020  8C 05 00 00 68 64 72 6C 61 76 69 68 38 00 00 00  Œ...hdrlavih8...
00000040  40 42 0F 00 BC 1B 00 00 00 00 00 00 10 08 00 00  @B..¼...........
00000060  0C 00 00 00 00 00 00 00 02 00 00 00 00 32 00 00  .............2..
00000100  41 01 00 00 41                                   A...A