Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   FreePascal (https://www.delphipraxis.net/74-freepascal/)
-   -   Wie ein ' Zeichen zwischen ' ' (https://www.delphipraxis.net/129206-wie-ein-zeichen-zwischen.html)

Störtebeker 14. Feb 2009 14:04


Wie ein ' Zeichen zwischen ' '
 
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??

Meflin 14. Feb 2009 14:09

Re: Wie ein ' Zeichen zwischen ' '
 
Zitat:

Zitat von Störtebeker
10: Form1.SynEdit1.SelText:=' ' ' '+Memo1.Text; //VB --> würde gehen, ist aber falsch

Was wäre daran falsch? Das sollte doch genau ein ' einfügen :gruebel:

Störtebeker 14. Feb 2009 14:12

Re: Wie ein ' Zeichen zwischen ' '
 
Irgendwie nicht. Es ergibt nämlich gar nichts. Leider.

Meflin 14. Feb 2009 14:13

Re: Wie ein ' Zeichen zwischen ' '
 
Zitat:

Zitat von Störtebeker
Irgendwie nicht. Es ergibt nämlich gar nichts. Leider.

WTF? Wie gibst du das denn aus? Bzw. Woran siehst du, dass es "nichts" einfügt?
edit: bzw. versuch doch einfach mal sowas wie ShowMessage('''') ;)

stoxx 14. Feb 2009 14:21

Re: Wie ein ' Zeichen zwischen ' '
 
ein Hochkomma wird einfach ersetzt durch 2 Hochkommas
ShowMessage('Beispiel: ''Hochkomma'' ... genau');

Störtebeker 14. Feb 2009 16:38

Re: Wie ein ' Zeichen zwischen ' '
 
Danke. Jetzt funktioniert es. :oops: Weiß auch nicht, wodran es gelegen aht, dass es nicht funktioniert hat. Jetzt geht es auf jeden Fall. Und zwar so, wie ihr es beschrieben habt. Mit den zwei ''. :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz