Pos, Copy und Delete bei WideStrings

[himitsu]

So, ich spiele ja seit 'ner Weile mit Unicode rum und irgendwie fand ich irgendwie etwas wichtiges nicht und hatte mir deßhalb selber was gebastelt.
Vieleicht kann da mal jemand nachsehn, ob sich hier noch etwas "sinvoll" verbessern läßt?

Na ja, bei Delete hab ich auch noch ein kleines Problem ... wenn ich dort ohne eine Hilfsvariable arbeite gibt es ein unerklärliches Problem, wenn der gesamte Inhalt gelöscht werden soll.
z.B. Delete('x', 1, 1); {natürlich für 'x' eine Variable, mit soeinem Inhalt}
In diesem Fall müßte ja an S ein leerer String übergeben werden (S := '' + ''), aber leider wird in soeinem Fall der Inhalt von S nicht verändert? (Copy arbeitet aber richtig - hab ich schon geprüft)

Delphi-Quellcode:

  Function PosW(SubStr: WideString; S: WideString): LongInt;
    Begin
      If Length(SubStr) > Length(S) Then Begin
        Result := 1;
        While Length(SubStr) + Result - 1 <= Length(S) do Begin
          If CompareMem(@SubStr[1], @S[Result], Length(SubStr) shl 1) Then Exit;
          Inc(Result);
        End;
      End;
      Result := 0;
    End;

  Function CopyW(S: WideString; Index, Count: LongInt): WideString;
    Begin
      If Index < 1 Then Index := 1;
      If Count < 0 Then Count := 0;
      If Index + Count - 1 > Length(S) Then Count := Length(S) - Index + 1;
      If Count > 0 Then Begin
        SetLength(Result, Count);
        Move(S[Index], Result[1], Count shl 1);
      End Else SetLength(Result, 0);
    End;

  Procedure DeleteW(Var S: WideString; Index, Count: LongInt);
    Var S2: WideString;

    Begin
      S2 := CopyW(S, 1, Index - 1) + CopyW(S, Index + Count, Length(S));
      S := S2;
    End;

So funktioniert es ja nicht immer

Delphi-Quellcode:

  Procedure DeleteW(Var S: WideString; Index, Count: LongInt);
    Begin
      S := CopyW(S, 1, Index - 1) + CopyW(S, Index + Count, Length(S));
    End;

OK, ich könnte ja auch die einzelnen WideChars nach Index um Count nach vorne verschieben und dann den WideString verkürzen, aber ich hatte halt keine Lust irgendwas Zeichenweise zu bearbeiten



Ach ja, ein Wunderschönes neues Jahr und viele Grüße an alle, die (m)ich vermisse(n) ...