Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Delete funzt nich? (https://www.delphipraxis.net/75257-delete-funzt-nich.html)

Dt2158 16. Aug 2006 19:14


Delete funzt nich?
 
Was kommt hier raus? (Konsole)

Delphi-Quellcode:
input_str :='12345678';
delete(input_str,0,3);
writeln(input_str);
Eigentlich
Delphi-Quellcode:
45678
oder?

stattdessen kommt aber
Delphi-Quellcode:
12345678
heraus.

Habe das ganze aufs niedrigste reduziert, irgendwie geht die delete funktion hier nicht???? :/

Was soll das?

Gruß dt2158

mkinzler 16. Aug 2006 19:15

Re: Delete funzt nich?
 
Versuchs mal mit:
Delphi-Quellcode:
delete(input_str,1,3);

Dt2158 16. Aug 2006 19:21

Re: Delete funzt nich?
 
oh man klappt, aber warum beginnt ein INDEX hier überraschenderweiße mit 1??? naja juti danke

mkinzler 16. Aug 2006 19:22

Re: Delete funzt nich?
 
Zitat:

Zitat von Dt2158
oh man klappt, aber warum beginnt ein INDEX hier überraschenderweiße mit 1??? naja juti danke

Weil er bei String immer mit 1 beginnt. Auf Index 0 steht bei ShortString die Länge.

RavenIV 17. Aug 2006 08:51

Re: Delete funzt nich?
 
Zitat:

Zitat von Dt2158
oh man klappt, aber warum beginnt ein INDEX hier überraschenderweiße mit 1??? naja juti danke

weil es in der Delphi-Hilfe so drin steht...
Code:
Delphi-Syntax:

procedure Delete(var S: string; Index, Count:Integer);

Beschreibung

In Delphi entfernt Delete, beginnend mit S[Index], Count Zeichen aus dem String S. S ist eine String-Variable. Index und Count sind Integer-Ausdrücke.

Wenn index größer als die Länge von String oder kleiner als 1 ist, werden keine Zeichen gelöscht.

Werden mit Count mehr Zeichen angegeben, als beginnend bei Index im String vorhanden sind, wird der Rest des Strings gelöscht. Wenn Count kleiner oder gleich 0 ist, werden keine Zeichen gelöscht.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz