zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
I,pos,start,ende:integer;
next,bla: string;
begin
while I < RichEdit1.Lines.Count do
      begin
        while Pos('<?', RichEdit1.Lines.Strings[I]) > 0 do
             begin
             start := Pos('<?',RichEdit1.Lines.Strings[I]);
             next := Copy(RichEdit1.Lines.Strings[I],Pos('<?',RichEdit1.Lines.Strings[I]),10);
             ende := Pos('?>',next);
             RichEdit1.SelStart := start;
             RichEdit1.SelLength := start - ende;
             RichEdit1.SelAttributes.Color := clLime;
             end;
        end;
end;

Ich will mit dem code alles zwischen dem <? und dem ?> farbig markieren.
Doch Delphi meldet, dass ein Operator oder Simikolon bei der fuktion pos() fehlt und das bei jeder einzellnen, was mich verwirrt ist ,dass

markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var S: string;

begin
  S := ' 123,5 ';
  { Leerzeichen in Nullen umwandeln }
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
  showmessage(S);
end;

einwandfrei funktioniert...

was kann ich tun?

Herzlich willkommen in der Delphi PRAXiS, Desmulator!

Zitat von Desmulator:

was kann ich tun?

Es könnte helfen, die lokale Variable pos unzubenennen.

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I,pos,start,ende:integer; // pos hat Vorrang vor System.Pos()

Gruß Hawkeye