Was stimmt an dem Template nicht?

[EDatabaseError]

XML-Code:

<?xml version="1.0" encoding="utf-8" ?>
<codetemplate   xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
            version="1.0.0">
   <template name="asyncr" invoke="manual">
      <point name="form"><text>TForm1</text><hint>TForm</hint></point>
      <point name="kp"><text>Comm1</text><hint>TComm</hint></point>
      <point name="start"><text>[</text><hint>Startzeichen</hint></point>
      <point name="end"><text>]</text><hint>Endzeichen</hint></point>
      <point name="internbuffer"><text>buffer</text><hint>Interner Puffer</hint></point>
      <point name="externbuffer"><text>inputbuffer</text><hint>Externer Puffer</hint></point>
      <point name="workvar"><text>OnWork</text><hint>Variable Aktive Übertragung</hint></point>
      <point name="procedure"><text>CommandInputReady</text><hint>Prozedur bei beendeter Übertragung...</hint></point>
      <point name="log"><text>Memo1</text><hint>Logwindow</hint></point>
      <description>
         RS232 über Async lesen...
      </description>
      <author>
         Tobias Hocke
      </author>
      <code language="Delphi" delimiter="|"><![CDATA[
procedure |form|.|kp|RxChar(Sender: TObject; Count: Integer);
var
   |internbuffer|                                : Array[0..1024] of Char;
   i                                             : Integer;
   c                                             : Char;
begin
 Fillchar(|internbuffer|, SizeOf(buffer), 0);
 count := |kp|.Read(|internbuffer|, Count);
 if count > 0 then
  begin
   for i := 1 to Count do
     begin
         c := |internbuffer|[i-1];
         if |workvar| = true then
               begin
                    if (c = #13) or (c = #10) then c := #0;

               if c = |end| then
                       begin
                                 |log|.Lines.Add(' -> ' + |externbuffer|);
                                 |procedure|;
                                 |workvar| := false;
                                 |externbuffer| := '';
                       end
                    else
                        begin
                                 |externbuffer| := |externbuffer| + c;
                        end;
               end
            else
                begin
                if c = |start| then
                        begin
                          |externbuffer| := '';
                                  |workvar| := true;
                        end;
                end;
    end;
  end;
end;
]]>
      </code>
   </template>
</codetemplate>

ich kann es zwar speichern aber er zeight es nicht in der Liste an...

mfg

[EDatabaseError]

weiß denn niemand rat?

[Daniel]

Ich habe derzeit nur Word und kein Delphi am Laufen. Aber versuche mal, die Umlaute zu entfernen und eventuell ist "start" ein reserviertes Wort? Letzteres ist aber nur eine Vermutung, ich weiß nicht, ob es bei den Templates sowas wie reservierte Worte überhaupt gibt.

[EDatabaseError]

es lag an den Umlauten... Kann man ja irgentwo vermerken.

Danke chäffe

mfg

[igel457]

Ich habe das selbe Problem.
Heißt das, ich darf unter Author nicht "Andreas Stöckel" schreiben?

Ich habe mich nämlich schon dumm und daemlich gesucht.

[3_of_8]

Sollte man vielleicht mal den Borländern melden, damit die das beheben.

[Daniel]

Zitat von igel457:

Heißt das, ich darf unter Author nicht "Andreas Stöckel" schreiben?

Tja, schnell heiraten und den anderen Namen annehmen. *g* Natuerlich nur, wenn dieser keine Umlaute enthaelt.

[igel457]

Ok.

Ich habe naemlich das Template mit der Liste (da ich diese oft brauche) aus deinem schoenen Video nach zu machen versucht, hat aber nicht geklappt.

Jetzt gehts!

[Daniel]

Das Template beginnt mit dem Statement encoding="utf-8" ... kann es nicht daran hängen? Ich bin mir in diesem Fall nicht sicher, ob das ein echter Fehler ist.

[3_of_8]

Oder Namensänderung beantragen.

Da werden die ganz schön dumm schauen im Standesamt (denke mal, das wird da geregelt), wenn du als Begründung angibst "BDS Live-Templates akzeptieren keien Umlaute."