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
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?
