Pos, Copy und Delete bei WideStrings

[Gruber_Hans_12345]

Dein Problem etwas vereinfacht .....

Delphi-Quellcode:

    function keinCopy(s : WideString) : WideString;
    begin
        Result  := '';
    end;

    Procedure KeinDelete(Var S: WideString);
    begin
        s := keinCopy(s) + keinCopy(s);
    end;

    Procedure KeinDeleteOK(Var S: WideString);
    begin
        s := keinCopy(s) + keinCopy(s) + '';
    end;

procedure TForm1.Button2Click(Sender: TObject);
var s       : WideString;
begin
    s       := 'H';
    KeinDelete(s);          // liefert H zurück
    Edit1.Text  := s;

    s       := 'H';
    KeinDeleteOK(s);        // liefer leeren String zurück
    Edit2.Text  := s;
end;