Ja das will ich ja die ganze Zeit
Aber wie schon 2x gesagt - ich weiß nicht, wo ich das tun muss. Für mich mit meinem einfachen Delphi-Gemüt liest sich der Code nicht so einfach
Delphi-Quellcode:
step1:
for i := 0 to hlplst.Count -1 do begin
for n := 1 to length(astring) do begin
npw := hlplst.Strings[i]+astring[n];
Cluster.Add(npw); //wenn ich das hier entferne, gehts nichtmehr
//dann kommt nur aa bis a0, aber nicht aaa-aa0 etc
//sonst hätte ich es hier abgegriffen
//desweiteren loopt es dann die aa-a0 immer wieder
if length(npw) >= startlen then
begin
Results.Add(npw);
end;
end;
HlpLst.Clear ;
hlplst.AddStrings(Cluster);
Cluster.Clear ;
if length(npw) + 1 <= endlen then goto step1;
hlplst.Clear;
end;
result := 0;
Label1.Visible := False;
€dit - Und mir ist schon bewusst, dass das für euch wahrscheinlich eine blöde Frage ist.... Sorry^^