TEdit. Append it.

[captian jaster]

Im using a TEdit to work with my program. im trying to open a XML and write something to the TEdit. But theres no Append.

Code: [Select]

Form1.ForEdit.Text := Child.Attributes.Item[0].NodeValue;
This raises an error and all i want to work on now is editing the TEdit.

[Wodzu]

What kind of error is raised?

[skalogryz]

Code: [Select]

Form1.ForEdit.Text := Child.Attributes.Item[0].NodeValue;

captian jaster, are you sure you have following objects existing?
Child
Child.Attributes
Child.Attributes.Item[0]

if any of these objects is nil you'll get the access violation

[captian jaster]

thatts the only way i know how to write it. any other way it raises an error on compile.

[eny]

What skalogryz is trying to say is that you have to test if the node ('Child') has attributes at all.
If not then it will raise an error as soon as you hit a node without one.

[captian jaster]

ok im going to rewrite that part and see what i can do..
i tryed writting it this way:

Code: [Select]

procedure TForm1.OpenBtnClick(Sender: TObject);
var
 Doc:TXMLDocument;
 ForNode,NoteNode,TopicNode:TDOMNode;
begin
  IF(OpenD.Execute)Then
  begin
    Form1.NoteBox.Clear;
    Form1.TopicEdit.Clear;
    Form1.ForEdit.Clear;
    ReadXMLFile(Doc,SaveD.FileName);
    TopicNode := Doc.DocumentElement.FindNode('Topic');
    Form1.TopicEdit := TopicNode.FirstChild.NodeValue;
    ForNode := Doc.DocumentElement.FindNode('For');
    Form1.ForEdit := ForNode.FirstChild.NodeValue;
    NoteNode := Doc.DocumentElement.FindNode('NOTE');
    Form1.NoteBox.Append(NoteNode.FirstChild.NodeValue);
  end;
end;  

it says got widestring expected TEdit. in compile
Just fixed the problem now testing