Ich habe folgende Funktion, um Strings in Stringlisten zu kürzen.
Dabei kommt folgende Fehlermeldung: "Operation für sortierte Listen nicht zulässig".
Wie kann ich trotzdem die Listeneinträge manipulieren?
Delphi-Quellcode:
const
SOIdLen = 8;
var
i : Integer;
s : String;
len : Integer;
begin
if SLSONumber.Count > 0 then begin
for I := 0 to SLSONumber.Count -1 do begin
s := SLSONumber[i];
len := length(s);
if len > SOIdLen then begin
Delete(s, 9, len - SOIdLen);
SLSONumber[i] := s;
end;
end;
end;
end;
Die Listen sind wie folgt erzeugt:
Delphi-Quellcode:
vSPSSO := TStringList.Create;
vSPSSO.Duplicates := dupIgnore;
vSPSSO.Sorted := True;