Da die vorgeschlagenen Methoden irgendwas als Objekt zu speichern irgendwie nicht funktionieren, versuche ich jetzt über die Methode mit dem Sortieren der Stringliste zu gegehn. Problem habe ich im mersten Posting beschrieben. Ich bin jetzt so weit:
Delphi-Quellcode:
procedure Tform1.SortSlFiles(slTemplate: TStringlist);
var
slTemp: TStringList;
i: Integer;
//idx: Integer;
s: string;
begin
i := 0;
slTemp := TStringList.Create;
try
while slTemp.Count <= slTemplate.Count do
begin
s := slFiles.Strings[i];
if pos(slTemplate.Strings[i], s) > 0 then
begin
slTemp.Add(s);
Writeln(s);
end;
Inc(i);
end;
slFiles.Clear;
for i := 0 to slTemp.Count -1 do
begin
slFiles.Add(sltemp.Strings[i])
end;
finally
FreeAndNil(slTemp);
end;
end;
Der Aufmerksame Leser wird sehen was passiert. Ich renne über den Listenidex hinaus, da i jedesmal erhöht wird und irgendwann ist i größer als Count - 1 und ich habe noch nicht alle Einträge in der neuen Liste. Es wäre schön, wenn mir da jemand helfen könnte, ich wollte die Software in den nächsten Tagen ausliefern.