Find en title Artikel - BlockBegin/BlockEnd fejl?

Prøv at vise den kode du har problemer med.

Hej Jonas...

Hvis du havde gået ind på det link jeg skrev ville du have fundet koden, men her er den:

// Husk at deklarere funktionen
  ..
  public
    { Public declarations }
    function FindTitle : string;
  ..	
	
// Selve funktioen	
function TForm1.FindTitle : string;
var
 i :integer;
 start, stop:TPoint;
 Titel,Kode:string;
begin
for i := 0 to Editor.Lines.Count - 1 do
 begin
  Kode := Editor.Lines[i];
   If Pos('<title>', Lowercase(Kode)) > 0 then
   begin
    Start.x := Pos('<title>', Lowercase(Kode))+7;
    Start.y := i+1;
   end;
  If Pos('</title>', Lowercase(Kode)) > 0 then
   begin
    Stop.x := Pos('</title>', Lowercase(Kode));
    Stop.y := i+1;
   end;
 end;
Editor.BlockBegin := Start;
Editor.BlockEnd := Stop;
Result := Editor.SelText;
end;

Håber du nu kan hjælpe

Never mind....


Fandt det selv...


Jeg skulle tilføje SynEditTypes til uses og ændre lidt kode:

fra:

Editor.BlockBegin := Start;
Editor.BlockEnd := Stop;

til:

Editor.BlockBegin := BufferCoord(Start.X,Start.Y);
Editor.BlockEnd := BufferCoord(Stop.X,Stop.Y);