Schleifen-Problem

[Tommy1988]

habs folgender maßen probiert:

Delphi-Quellcode:

for i := CurPosition downto 0 do // ab CursorPosition bis Position 0 im Memo zählen
 begin
  while aTag <> '<a' do
   begin
    aTag := Copy(SynMemo1.Text, i-1, 2);
    Caption := aTag;
   end;
 end;

Da hängt er auch