Hi,
für meinen Editor würde ich gerne noch als Syntax VB integrieren. Dort wird ein Kommentar ja mit dem zeichen ' eingleitet. Nur funktioniert das jetzt nicht ganz:
Delphi-Quellcode:
procedure Tcomment.Button1Click(Sender: TObject);
begin
case Form1.ComboBox2.ItemIndex
of
0: Form1.SynEdit1.SelText:='
//'+Memo1.Text;
//C++
1: Form1.SynEdit1.SelText:='
/*'+Memo1.Text+'
*/';
//CSS
2: Form1.SynEdit1.SelText:='
';
//HTML
3: Form1.SynEdit1.SelText:='
//'+Memo1.Text;
//JAVA
4: Form1.SynEdit1.SelText:='
{'+Memo1.Text+'
}';
//PASCA
5: Form1.SynEdit1.SelText:='
#'+Memo1.Text;
//PERL
6: Form1.SynEdit1.SelText:='
#'+Memo1.Text;
//PHP
7: Form1.SynEdit1.SelText:='
#'+Memo1.Text;
//PYTHON
8: Form1.SynEdit1.SelText:='
--'+Memo1.Text;
//SQL
9: Form1.SynEdit1.SelText:='
';
//XML
10: Form1.SynEdit1.SelText:='
' '
+Memo1.Text; //VB --> hier funzt das nicht ganz.
end;
Memo1.Clear;
comment.Close;
end;
10: Form1.SynEdit1.SelText:=' ' '+Memo1.Text; //VB --> das geht nicht
10: Form1.SynEdit1.SelText:=' ' ' '+Memo1.Text; //VB --> würde gehen, ist aber falsch
Wer weiß Rat??