HAr brug for noget hjælp, jeg kan ikke installer synedit så jeg prøver at bruge en memo istedet og det virker da også noget af vejen. jeg har læst kasper's artikle.
her er min kode
function TForm1.FindTitle : string;
var
i : integer;
start, stop : TPoint;
kode : string;
begin
for i := 0 to memo1.Lines.Count - 1 do
begin
kode := memo1.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 := memo1.SelText;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := FindTitle;
end;
det eneste der ikke virker er
Editor.BlockBegin := Start;
Editor.BlockEnd := Stop;
men kan jeg godt finde en <title> uden synedit?? kan jeg godt bruge en memo??
[Redigeret d. 01/04-04 16:32:46 af hasan]