'writing a component' Thread RSS Feed

writing a component

Mon, 21 Apr 2003 18:08:07 -0700

Hi,
I'm writing a component which extends TCustomRichEdit and has its own
AddLine procedure. However whenever I do a second AddLine it starts
doing crazy things like changing some of my variables when I use
SelText. Any ideas as to what is happening?

Thanks

Re: writing a component

Tue, 22 Apr 2003 05:27:01 -0700

: Hi,
: I'm writing a component which extends TCustomRichEdit and has its own
: AddLine procedure. However whenever I do a second AddLine it starts
: doing crazy things like changing some of my variables when I use
: SelText. Any ideas as to what is happening?

Without seeing your code, probably not.

Re: writing a component

Tue, 22 Apr 2003 17:03:33 -0700

ok, here is my code for the addline procedure

procedure TSyntaxEdit.AddLine(Value: string);
var
nPos: PChar;
begin
nPos := PChar(Value);
nextLine := Value; // nextLine is a string
currentSpelling := ''; //string
currentChar := char(nPos[0]); // char
currentPos := 1; // integer

nWord := scanToken; // gets next token from nextLine string
while nWord <> '' do
begin
doSyntax; // performs syntax highlighting
SelText := nWord;
endSyntax;
nWord := scanToken;
end;
SelText := #10;
endLine;

OnChange := DoChange;
end;

when SelText is performed on the 2nd use of addline (1st works fine) it puts garbage into some of my variables like currentPos and currentChar, which stuffs up the scanToken function and puts the procedure in an infinite loop.
Any ideas why this is happening? Any help would be greatly appreciated.

Thanks.

Re: writing a component

Fri, 25 Apr 2003 07:02:36 -0700

Try to add "override" after the declaration.

-----------------
Dima Gornushkin