bis zu einem bestimmten zeichen suchen?

[shadow999]

Edit:

habe nochmal ü+berlegt das ist rausgekommen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i, x, StartPos, Ende: Integer;
Text: String;
begin
Text := Memo1.Lines.Text;

for i := 1 to Length(Text) do
 begin
  if (Text[i] = 'D') then
    begin
     StartPos := i;
     Caption := '1. Schleife: '+IntToStr(i);

       for x := StartPos to Length(Text) do
        if (Text[x] = 'F') then
          begin
           Caption := '2. Schleife: '+Copy(Text, x, 1);
          end;
    end;
 end;

So.. das ist die grundidee, denke ich.

Nur was nicht funktioniert ist zb.
(Text[x] = 'GH') ..