bis zu einem bestimmten zeichen suchen?

[DeddyH]

Obwohl ich die Aufgabenstellung immer noch nicht ganz verstanden habe:

Delphi-Quellcode:

var start, ende, i: integer;
begin
  start := Memo.Lines.IndexOf('DE');
  ende := -1;
  if (start > -1) then
    begin
      i := start;
      while (i < Memo.Lines.Count - 1) and (ende < 0) do
        begin
          inc(i);
          if Memo.Lines[i] = 'GH' then
            ende := i; 
        end;
    end;
end;

Kann man zwar alles mit IndexOf machen, aber Du musst ja wissen, was Du willst.