Text aus einem Richedit kopieren

[Delphi.Narium]

Ehrlichgesagt hab' ich nicht verstanden, was Du genau haben möchtest. Sinngemäß sowas?

Code:

1 : [[Bertus Aafjes]] (1914–1993), NL
2 : [[Jeppe Aakjær]] (1866–1930), DK
3 : [[Johannes Aal]] (um 1500–1551), CH
4 : [[Hans Aanrud]] (1863–1953), NO
5 : [[Emil Aarestrup]] (1800–1856), DK
6 : [[Soazig Aaron]] (* 1949), FR
7 : [[Ivar Aasen]] (1813–1896), NO

nur hingedaddelt:

Delphi-Quellcode:

  x := 0;
  for i := 0 to RichEdit.Lines.Count - 1 do begin
    if Copy(RichEdit.Lines[i],1,4) = ': [[' then begin
      x := x + 1;
      Dummy_StringList.Add(Format('%d %s',[x,RichEdit.Lines[i]]);
    end;
  end;