Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
14. Okt 2011
Ist nichts anders als PosEx, jedoch bei 0 statt 1 beginnend und für Stringlisten statt für Strings .
Versuche vielleicht deshalb erst die normale PosEx zu verstehen (ist etwas anschaulicher und fast das gleiche).
function PosEx (const Substr, S: string; const Index: integer): integer;
var
I, J, A, B: integer;
begin
Result:= 0;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
8. Okt 2011
Wenn du alle Results haben möchtest, dann kann man z.B. die bereits gefundenen aus der Liste rauslöschen.
function FindSubList(const SubList, List: TStringList; var Index: integer): integer;
var
I, J, A, B: integer;
begin
Result:= 0;
A:= List.Count;
B:= SubList.Count;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
7. Okt 2011
Hab auch noch einen: 8-)
function FindSubList (const SubList, List: TStringList; const Index: integer): integer;
var
I, J, A, B: integer;
begin
Result:= 0;
A:= List.Count;
B:= SubList.Count;