also hier ist die Zeile die den Fehler:
Delphi-Quellcode:
Zeile := mAnzeige.lines.strings[i];
Zeilenarray:=Split(Zeile, ';');
So Split ist wie folgt deklariert:
Der Interface Teil:
Delphi-Quellcode:
type
TStringArray = array of String;
function Split(strring, trennzeichen: String): TStringArray;
Der Implementation Teil:
Delphi-Quellcode:
function Split(strring, trennzeichen: String): TStringArray;
var
I, L: Integer;
begin
SetLength(Result, 0);
if strring = '' then
Exit;
I := Pos(trennzeichen, strring);
L := Length(trennzeichen);
while I > 0 do
begin
Result[High(Result)] := copy (strring,1,I-1);
delete(strring,1,I);
end;
Ich brauche das Array als Result, nur nen String bringt nichts!