Forum: Object-Pascal / Delphi-Language
FreePascal
by PhilmacFLy,
14. Nov 2012
Problem gelöst:
loadfunc hatte mir während dem schleifen durchlauf changefuncs wieder verkleinert
Forum: Object-Pascal / Delphi-Language
FreePascal
by PhilmacFLy,
14. Nov 2012
Ja du weist doch wie das ist, da bastelt man und bastelt man und passt die Kommentare am Schluss erst an. (Desweitern waren das mal am Anfang gneua die gleichen Statements)
Changefuncs wie schon erwähnt Sorry hatte deinen Beitrag nicht gesehen (den oberen)
private
changefuncs: array of state;
Tante Edit meinte noch:
Die Funktion läuft in einer Schleife solang Result falsch ist, denn...
Forum: Object-Pascal / Delphi-Language
FreePascal
by PhilmacFLy,
14. Nov 2012
Wesentlich weiter oben, ich post mal den ganzen funktions code:
function TForm1.extractfuncs(var statevar: string; const endswitch: integer;
code: TStrings): boolean;
var
kommentar: boolean;
newfunc: boolean;
k: integer;
j, i, l: integer;
tmp: integer;
Count, count2: integer;
Forum: Object-Pascal / Delphi-Language
FreePascal
by PhilmacFLy,
14. Nov 2012
Ja array of state.
Habs ausgetauscht, aber selber Fehler.