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

                   s:=' ';
                       for i:= 0 to richedit1.Lines.Count -1 do begin
                        m:=richedit1.Lines.IndexOf(s);
                         for m:= m to richedit1.Lines.Count -1 do begin
                          application.ProcessMessages;
                           richedit1.Lines.Delete(m);
                         end;
                          end;					

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

procedure TForm1.Button1Click(Sender: TObject);
VAR leerpos : Integer;
    temp : STRING;
begin
  leerpos:=Pos(' ',RichEdit1.Text);
  if leerpos > 0 THEN
  begin
    temp:=RichEdit1.Text;
    Delete(Temp,leerpos+1,Length(temp)-leerpos+1);
    RichEdit1.text:=temp;
  END;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
VAR leerpos,i : Integer;
begin
  for leerpos:=0 TO RichEdit1.Lines.Count-1 DO
  IF RichEdit1.Lines[leerpos]='' THEN break;
  FOR i:=RichEdit1.Lines.Count-1 DOWNTO leerpos+1 DO
  RichEdit1.Lines.Delete(i);
end;					

1:
2:
3:

 Ende := Pos(#$D#$A#$D#$A,Memo1.Text);
 IF Ende > 0 then
  Memo1.Text := Copy(Memo1.Text,0,Ende-1);					

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

procedure TForm1.Button2Click(Sender: TObject);
var F : TextFile;
    S : String;
begin
  Memo1.Lines.Clear;

  AssignFile(F,'F:\ReadLnTest.txt');
  Reset(F);
  Repeat
    ReadLn(F,S);
    Memo1.Lines.Add(S);
  until (S = '') OR EOF(F);
  CloseFile(F);
end;					

1:

\par					

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

VAR datei : TextFile;
    s : STRING;
begin
  AssignFile(datei,'c:\test.rtf');
  Reset(datei);
  Readln(datei,s);

  RichEdit1.Clear;
  while not ((s='\par') or EOF(datei)) do
  begin
    RichEdit1.Lines.Add(s);
    Readln(datei,s);
  end;
  if s='\par' then RichEdit1.Lines.Add('\par }');
  CloseFile(datei);
end;