lllegal character in put file

Question

edit1.Text:=treeview1.Selected.Text;edit2.Text:=treeview1.Selected.Parent.Text;
edit5.Text:=edit1.Text + "/" + edit2.Text;提示lllegal character in put file:""($22)
错误出现在edit5.Text:=edit1.Text + "/" + edit2.Text;
错误在哪

Answer 1

edit5.Text:=edit1.Text + ‘/ ’+ edit2.Text;
改双引号为单引号

Answer 2

procedure Tf_yxszk.TreeView1Click(Sender: TObject);
begin
edit1.Text:=treeview1.Selected.Text;
if treeview1.Selected.Parent.Index<>-1 then
edit2.Text:=treeview1.Selected.Parent.Text;
edit5.Text:=edit2.Text + '/' + edit1.Text;
else
edit2.Text:='全部';
end;
提示[Error] Fyxszk.pas(97): ';' not allowed before 'ELSE'
改成(删除前面的;)
edit1.Text:=treeview1.Selected.Text;
if treeview1.Selected.Parent.Index<>-1 then
edit2.Text:=treeview1.Selected.Parent.Text;
edit5.Text:=edit2.Text + '/' + edit1.Text
else
edit2.Text:='全部';
end;
提示[Error] Fyxszk.pas(97): ';' not allowed before 'ELSE'
改成
procedure Tf_yxszk.TreeView1Click(Sender: TObject);
begin
edit1.Text:=treeview1.Selected.Text;
if treeview1.Selected.Parent.Index<>-1 then
edit2.Text:=treeview1.Selected.Parent.Text;
edit5.Text:=edit2.Text + '/' + edit1.Text
end;能正常运行,但这不是我要的效果,delphi就是麻烦

Answer 3

.....楼主刚用delphi吧，现看下pascal基本语法吧~~，delphi一点不麻烦只是你还没用习惯
procedure Tf_yxszk.TreeView1Click(Sender: TObject);
begin
  edit1.Text:=treeview1.Selected.Text;
  if treeview1.Selected.Parent.Index<>-1 then
  begin // 多个语句加begin end框起来
    edit2.Text:=treeview1.Selected.Parent.Text;
    edit5.Text:=edit2.Text + '/' + edit1.Text;
  end // else前面语句最后不要加分号~
  else
    edit2.Text:='全部';
end;

Answer 4

是的,刚学delphi,以前用vb ,谢谢