-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
2. Nov 2002
hehe, musst mich net für doof halten... hatte nur die meldung falsch abgeschrieben ! das is natürlich .exe ! das mit .php war nur reine gewohnheit !
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
2. Nov 2002
Danke euch beiden (Christian und Mathias) !
Habe nun alles richtig und mein Programm läuft perfekt !
Vielen Dank nochmal !
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
1. Nov 2002
Hm, ok, Problem auch wieder gelöst !
Mein aktueller Code:
function TMain.Intialize_Highlight(Highlight: TSynHighlighterAttributes; Section: String; Part: String; Standard: String): Bool;
var
ini: TIniFile;
tmp_style: TStringList;
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'highlight.cfg');
try
tmp_style := TStringList.Create;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
1. Nov 2002
Hm, ok, Problem auch wieder gelöst !
Mein aktueller Code:
function TMain.Intialize_Highlight(Highlight: TSynHighlighterAttributes; Section: String; Part: String; Standard: String): Bool;
var
ini: TIniFile;
tmp_style: TStringList;
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'highlight.cfg');
try
tmp_style := TStringList.Create;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
1. Nov 2002
Wow, Christian !
OK, habe deine 2. Methode mit der Stringlist genommen !
Einizger Fehler:
tmp_style := StringReplace(ini.ReadString(Section,Part,Standard),',',#13#10,);
main_unit.pas(197): Inkompatible Typen: 'TStringList' und 'String'
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
1. Nov 2002
Halt, Stopp !
Kommando zurück !
Fehler-Stelle gefunden:
Highlight.Foreground := StrToInt(tmp_style);
Highlight.Background := StrToInt(tmp_style);
Lag an meiner Funktion !
Da ja hier bei tmp_style "clNone" drin steht und nicht zu Integer umgewandelt werden kann !
Wie kann ich sonst von String in TColor umwandeln ?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
1. Nov 2002
Jo, hab das jetzt korrigiert !
Wenn ich in der Funktion Parse()
if zeile = ',' then
Kommt nurnoch dieser Fehler:
"clNone ist kein gültiger Integerwert"
Das liegt an
pos: array of integer;
Aber dieser String
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
1. Nov 2002
Hm, dann sagt er mir beim Aufruf "clNone ist kein gültiger Integerwert"
Das liegt an
pos: array of integer;
Aber dieser lange String
Comment=$0045CDFA,clNone,0,1,0,0
Kann ja Buchstaben und Zahlen enthalten !
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
1. Nov 2002
Hm, trotzdem sagt er beim Start meines Programmes:
"Zugriffsverletzung auf Adresse 004A8725 in Modul 'project1.php'. Lesen von Adresse 00000000."
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
1. Nov 2002
Ja, is klar...
Blick nur nich durch, was daran geändert werden muss (welcher array wert dort hineingehört)
Habe nun eine extra funktion für den aufruf von parse() geschrieben:
function TMain.Intialize_Highlight(Highlight: TSynHighlighterAttributes; Section: String; Part: String; Standard: String): Bool;
var
ini: TIniFile;
tmp_style: TZeile;
begin
ini :=...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
1. Nov 2002
OK, Alles nochmal:
type TZeile = array of string;
.
public
{ Public-Deklarationen }
function Intialize_Highlight(): Bool;
function Parse(zeile: string;zeilennummer:longint ):TZeile;
.
function TMain.Parse(zeile: string;zeilennummer:longint ):TZeile;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
31. Okt 2002
Habe es nun so gemacht:
type TZeile = array of string;
.
.
.
//Deine Funktion
.
.
.
-
Forum: Object-Pascal / Delphi-Language
Delphi
by rebugger,
31. Okt 2002
Hallo,
habe einen String, der folgendermaßen aussieht:
var1:='$0045CDFA,clNone,0,1,0,0'
Nun möchte ich var1 in ein Array zerlegen, dass in $var2 '$0045CDFA'
und in $var2 'clNone', usw. steht !
Wie kann ich das machen ?
Wie lautet der Befehl ?