Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language
    Delphi
    by Luckie, 1. Nov 2002
  Kann es sein, dass dein Fehler irgendwo hier
  
  if IntToStr(php_comment) = 1 then
  PHPhigh.CommentAttri.Style := fsBold;
  if IntToStr(php_comment) = 1 then
  PHPhigh.CommentAttri.Style := fsItalic;
  if IntToStr(php_comment) = 1 then
  PHPhigh.CommentAttri.Style := fsUnderline;
  if IntToStr(php_comment) = 1 then
  PHPhigh.CommentAttri.Style := fsStrikeOut;
• Forum: Object-Pascal / Delphi-Language
    Delphi
    by Luckie, 1. Nov 2002
  Dann hast du irgendwo eine ungültige Zeile drin. Bei dem Parser ist das Trennzeichen ein ";" du hast aber ein ",". Also in der Parse-Funktion anpassen.
• Forum: Object-Pascal / Delphi-Language
    Delphi
    by Luckie, 1. Nov 2002
  In der zeile:
  
  result:=copy(zeile,pos+1,pos-1-pos);
  
  war noch ein Fehler drin. Ich habe ihn noch mal korrigiert.
• Forum: Object-Pascal / Delphi-Language
    Delphi
    by Luckie, 1. Nov 2002
  Also bei mir tut es die Funktion jedes mal. Keinen Plan, was du da gemacht hast. :?
• Forum: Object-Pascal / Delphi-Language
    Delphi
    by Luckie, 1. Nov 2002
  ACHTUNG, ACHTUNG der Coderformatierer hat ein paar 's geschluckt. Ich habe es korrigiert. Bitte überprüf noch mal deinen Code. Danke
• Forum: Object-Pascal / Delphi-Language
    Delphi
    by Luckie, 31. Okt 2002
  php_comment
  
  Das ist doch schon ein String. Kuck dir doch mal die Typdeklarartion von TZeile an: array of String.
• Forum: Object-Pascal / Delphi-Language
    Delphi
    by Luckie, 31. Okt 2002
  type TZeile = array of string;
  
  { Zeile parsen }
  function Parse(zeile: string;zeilennummer:longint ):TZeile;
  var i :longint;
  anzahl:longint;
  pos :array of integer;
  begin
  anzahl:=0;
  SetLength(pos,0);