Mal abgesehen von deiner Art, Quellcode zu formatieren, hast du dir da mal Gedanken über diese Konstruktion gemacht:
Delphi-Quellcode:
Function explode(
const Separator,S:
string;Limit:Integer = 2):TStringDynArray;
var
Form1: TForm1;
xmlDoc:IXMLDOMDocument2;
ID: IXMLDOMNodeList;
//Enthällt alle Schüler
db:Textfile;
zaehler:integer=0;
fAppPath:
string;
x:integer=0;
subNode:IXMLDOMNode;
//enthält alle Daten der Schüler
zahl:integer;
Const
DATABASE_FNAME= '
db.xml';
implementation
{$R *.dfm}
//#########################################################
//########### Funktion zum auseinanderbringen des Strings #
//#########################################################
//Funktion by Delphi-Praxis.net
Function explode(
const Separator,S:
string;Limit:Integer = 2):TStringDynArray;
var SepLen: Integer;
F, P:PChar;
ALen,
Index: Integer;
Begin
SetLength(result,0);
If (S='
')
or(Limit<0)
then Exit;
If Separator='
'
Then
Begin
{...}
Das beste dürfte ein kompletter Neuanfang sein. Wenn ich die Zeit finde (heute nicht mehr, sorry) schau ich´s mir morgen mal an. Aber versprechen kann und will ich nichts.