Using variables in insert field

Return to index

Author

Message

Peter

Posted: 01/11/2003 8:05:53

I have searched the posts and the demo's and hope I am not wasting your time

bit

I am using the

Var St1 : Pchar;

begin

Station := '';

TagStr1 := '';

Addtagbool := False;

OKRightDlg.ShowModal;

If AddTagBool then

Begin

//station and tagstr are set to something in another form

Station := Station + '.' + TagStr;

For i := 1 to Length(station) do

St1[i] := Station[i];

RichViewEdit1.InsertStringTag(station + '.' + TagStr, Integer(StrNew(St1)));

RichViewEdit1.SetFocus;

the app throws an access violation where I do the InsertStringTag.

The interesting thing is if I change that line to

RichViewEdit1.InsertStringTag('Wind speed km', Integer(StrNew('wsak')));

and take out the code above it, it will insert the tag. If I then leave that

line there but reinsatll the code above it, the

RichViewEdit1.InsertStringTag('Wind speed km', Integer(StrNew('wsak')));

throws errors again.... So it is most what I am doing in the

Station := Station + '.' + TagStr;

For i := 1 to Length(station) do

St1[i] := Station[i];

but I cannot work it out.