OK, habe es jetzt so geändert:
Delphi-Quellcode:
type
TSplitStrArray = array of String;
type TSplitString = class
private
FString2Split : String;
FSepChar : Char;
FStrings : TSplitStrArray;
FStringsCount : Integer;
FSepPos : array of Integer;
procedure SetSplitString(SplitStr: String);
procedure SetSepChar(sep: Char);
procedure SetSepPos;
procedure SplitString(sArray: TSplitStrArray);
public
constructor create(SplitStr: String; sep: Char);
function StringsCount: Integer;
property String2Split: String read FString2Split write SetSplitString;
property SepChar: Char read FSepChar write SetSepChar;
property SplitStringEx: TSplitStrArray read FStrings write SplitString(sArray: TSplitStrArray); { Zeile 192 }
end;
Jetzt sagt er mir in der gleichen Zeile wie oben:
Zitat:
[Fehler] AdressDB.dpr(192): ';' erwartet, aber '(' gefunden
[Fehler] AdressDB.dpr(192): 'END' erwartet, aber ')' gefunden
Bei der ersten Meldung steht der Cursor direkt vor sArray. Beim zweiten vor dem Abschließenden Semikolon.